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

commit ab1fe071d1c7d3f61e8e60ec02f940cff3461109
parent 6c51ec9a9c7afec827c30b1359fe7ba4e4b66420
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Fri,  7 Jan 2011 09:15:12 -0700

Scribble soft-hyphen support for Latex rendering; `?-' in `scribble/base'

original commit: 21d324a1696daa84954959696052163fa5488021

Diffstat:
M
collects/scribble/base.rkt
 | 
3
++-
M
collects/scribble/latex-render.rkt
 | 
1
+
M
collects/scribblings/scribble/base.scrbl
 | 
6
++++++

3 files changed, 9 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/base.rkt b/collects/scribble/base.rkt
@@ -262,11 +262,12 @@
 
 ;; ----------------------------------------
 
-(provide ._ .__ ~ -~-)
+(provide ._ .__ ~ ?- -~-)
 
 (define ._ (make-element (make-style "Sendabbrev" null) "."))
 (define .__ (make-element (make-style "Sendsentence" null) "."))
 (define ~ "\uA0")
+(define ?- "\uAD")
 (define -~- "\u2011")
 
 ;; ----------------------------------------
diff --git a/collects/scribble/latex-render.rkt b/collects/scribble/latex-render.rkt
@@ -626,6 +626,7 @@
                                     c)]
                      [(#\# #\% #\& #\$) (format "\\~a" c)]
                      [(#\uA0) "~"] ; non-breaking space
+                     [(#\uAD) "\\-"] ; soft hyphen; unfortunately, also disables auto-hyphen
                      [(#\uDF) "{\\ss}"]
                      [else
                       (if ((char->integer c) . > . 127)
diff --git a/collects/scribblings/scribble/base.scrbl b/collects/scribblings/scribble/base.scrbl
@@ -367,6 +367,12 @@ which is equivalent to @racket['nbsp] as an element.}
 A string containing the non-breaking hyphen character.}
 
 
+@defthing[?- string?]{
+
+A string containing the soft-hyphen character (i.e., a suggestion of
+where to hyphenate a word to break it across lines when rendering).}
+
+
 @defthing[._ element?]{
 
 Generates a period that ends an abbreviation in the middle of a