bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 1624b95c70e627776616c9df53da1242c808d66c
parent ab1fe071d1c7d3f61e8e60ec02f940cff3461109
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Fri,  7 Jan 2011 09:33:45 -0700

Scribble: prevent linebreaks after leading hyphens on identifiers

original commit: 7852408f8afa77b2e26917995a1f49b9868d3cd4

Diffstat:
M
collects/scribble/racket.rkt
 | 
29
++++++++++++++++++++++-------

1 file changed, 22 insertions(+), 7 deletions(-)
diff --git a/collects/scribble/racket.rkt b/collects/scribble/racket.rkt
@@ -94,17 +94,32 @@
 
   (define-struct (spaces element) (cnt))
 
-  (define (literalize-spaces i)
+  ;; We really don't want leading hypens (or minus signs) to
+  ;; create a line break after the hyphen. For interior hyphens,
+  ;; line breaking is usually fine.
+  (define (nonbreak-leading-hyphens s)
+    (let ([m (regexp-match-positions #rx"^-+" s)])
+      (if m
+          (if (= (cdar m) (string-length s))
+              (make-element 'no-break s)
+              (let ([len (add1 (cdar m))])
+                (make-element #f (list (make-element 'no-break (substring s 0 len))
+                                       (substring s len)))))
+          s)))
+
+  (define (literalize-spaces i [leading? #f])
     (let ([m (regexp-match-positions #rx"  +" i)])
       (if m
           (let ([cnt (- (cdar m) (caar m))])
             (make-spaces #f
                          (list
-                          (literalize-spaces (substring i 0 (caar m)))
+                          (literalize-spaces (substring i 0 (caar m)) #t)
                           (hspace cnt)
                           (literalize-spaces (substring i (cdar m))))
                          cnt))
-          i)))
+          (if leading?
+              (nonbreak-leading-hyphens i)
+              i))))
 
 
   (define line-breakable-space (make-element 'tt " "))
@@ -139,9 +154,9 @@
                             (list
                              (case (car tag)
                                [(form)
-                                (make-link-element syntax-link-color (list s) tag)]
+                                (make-link-element syntax-link-color (nonbreak-leading-hyphens s) tag)]
                                [else
-                                (make-link-element value-link-color (list s) tag)]))
+                                (make-link-element value-link-color (nonbreak-leading-hyphens s) tag)]))
                             (list 
                              (make-element "badlink"
                                            (make-element value-link-color s))))))
@@ -225,8 +240,8 @@
                               (not (or it? is-var?)))
                          (if (pair? (identifier-label-binding c))
                              (make-id-element c s)
-                             s)
-                         (literalize-spaces s))
+                             (nonbreak-leading-hyphens s))
+                         (literalize-spaces s #t))
                      (cond
                       [(positive? quote-depth) value-color]
                       [(let ([v (syntax-e c)])