suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

right kind of angle brackets

Browse Source 
svn: r9139

original commit: 526bf71b249df479e8d554a58fef8e446744642f
This commit is contained in:
Matthew Flatt 2008-04-02 16:57:56 +00:00
parent 08270b7361
commit f531e51b90
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/bnf.ss
View File

@ -50,9 +50,9 @@
(define BNF-etc "...")
(define/kw (nonterm #:body s)
(make-element #f (append (list 'lsaquo)
(make-element #f (append (list 'lang)
(list (make-element 'italic (decode-content s)))
(list 'rsaquo))))
(list 'rang))))
(define/kw (optional #:body s)
(make-element #f (append (list "[") (decode-content s) (list "]"))))

8
collects/scribble/latex-render.ss
View File

@ -138,8 +138,8 @@
(case (string-length s)
[(0) (void)]
[else
(printf "{\\mytexttt{~a}}"
(regexp-replace* #rx"." s "~"))]))]
(printf "{~a}"
(regexp-replace* #rx"." s "\\\\hphantom{\\\\mytexttt{x}}"))]))]
[(newline) (printf "\\\\")]
[else (error 'latex-render "unrecognzied style symbol: ~s" style)])]
[(string? style)
@ -317,8 +317,8 @@
[(rarr) "$\\rightarrow$"]
[(alpha) "$\\alpha$"]
[(infin) "$\\infty$"]
[(lsaquo) "$\\langle$"]
[(rsaquo) "$\\rangle$"]
[(lang) "$\\langle$"]
[(rang) "$\\rangle$"]
[else (error 'render "unknown symbol element: ~e" i)]))]
[else (display-protected (format "~s" i))])
null)

4
collects/scribble/text-render.ss
View File

@ -89,8 +89,8 @@
[(ndash) "\U2013"]
[(ldquo) "\U201C"]
[(rdquo) "\U201D"]
[(lsaquo) ">"]
[(rsaquo) "<"]
[(lang) ">"]
[(rang) "<"]
[(rarr) "->"]
[(nbsp) " "]
[else (error 'text-render "unknown element symbol: ~e" i)]))]