suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Scribble: prevent linebreaks after leading hyphens on identifiers

Browse Source 
original commit: 7852408f8afa77b2e26917995a1f49b9868d3cd4
This commit is contained in:
Matthew Flatt 2011-01-07 09:33:45 -07:00
parent ab1fe071d1
commit 1624b95c70
1 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
collects/scribble/racket.rkt
View File

@ -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)])