From c0bbc701941f9af9b101228d358a4065accf1cab Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 14 Nov 2015 09:53:26 -0600
Subject: [PATCH] fix newline insertion position calculation
closes #21
---
gui-lib/scribble/private/indentation.rkt | 18 ++++++++++++++++--
1 file changed, 16 insertions(+), 2 deletions(-)
diff --git a/gui-lib/scribble/private/indentation.rkt b/gui-lib/scribble/private/indentation.rkt
index 73190d15..0a28a7d1 100644
--- a/gui-lib/scribble/private/indentation.rkt
+++ b/gui-lib/scribble/private/indentation.rkt
@@ -380,7 +380,7 @@
at-sign-posi
(for/first ([posi (in-range width (- len 1))]
#:when (equal? 'text (list-ref classify-lst posi)))
- posi))))
+ (+ start posi)))))
;;adjust-spaces for text
;;(adjust-spaces : a-racket:text para amount posi) → boolean?
@@ -721,7 +721,21 @@
(let ([new-break (insert-break-text t 0 5 8)])
(send t delete (add1 new-break) 'back)
(send t insert #\newline new-break)
- (send t get-text))) "aaaa\nbbbb")
+ (send t get-text))) "aaaa\nbbbb")
+
+ (let ([t (new racket:text%)])
+ (define before-newline
+ (string-append
+ "#lang scribble/base\n\n"
+ "@hyperlink"
+ "[\"http://aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa.com\"]{"))
+ (define after-newline "link}\n")
+ (send t insert (string-append before-newline after-newline))
+ (send t freeze-colorer)
+ (send t set-position (string-length before-newline) (string-length before-newline))
+ (reindent-paragraph t 'whatever-not-an-evt)
+ (check-equal? (string-append before-newline "\n " after-newline)
+ (send t get-text)))
)
(provide determine-spaces adjust-para-width paragraph-indentation