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

commit d2552556d5e8a9779d23ce3bf783fda6d0e5bcfb
parent 28f34349dd3538a10c1993a1accc4a00717bd66a
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Mon, 14 Jul 2008 09:19:29 +0000

* use version/utils instead of a private copy of the same code
* removed planet/private/test.ss which was testing that code
* changed angle brackets used in syntax renderings (got lumped in this
  commit by mistake)

svn: r10759

original commit: 91eb4687daafe4177b3c0aa9e40a78535a8511f0

Diffstat:
M
collects/scribble/html-render.ss
 | 
12
++++++++++--

1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
@@ -1011,8 +1011,16 @@
                       `(span ([class "mywbr"]) " "))
                     (render-other (substring i (cdar m)) part ri))
              (ascii-ize i)))]
-        [(eq? i 'mdash) `(" " ndash " ")]
-        [(symbol? i) (list i)]
+        [(symbol? i)
+         (case i
+           [(mdash) '(" " ndash " ")]
+           ;; use "single left/right-pointing angle quotation mark"
+           ;; -- it's not a correct choice, but works best for now
+           ;;    (see the "Fonts with proper angle brackets"
+           ;;    discussion on the mailing list from June 2008)
+           [(lang) '(8249)]
+           [(rang) '(8250)]
+           [else (list i)])]
         [else (list (format "~s" i))]))
 
     (define/private (ascii-ize s)