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

scribble/base: handle special characters in URLs

Browse Source 
For characters in the URL that give LaTeX trouble, convert
them to % encoding.

original commit: 967021ca6305dc70488a277c90bed0bb4d6b3e02
This commit is contained in:
Matthew Flatt 2013-05-14 11:33:19 -06:00
parent b66e924310
commit 378d6ee9c9
2 changed files with 28 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
collects/scribble/latex-render.rkt
View File

@ -374,7 +374,7 @@
[(italic) (wrap e "textit" tt?)]
[(bold) (wrap e "textbf" tt?)]
[(tt) (wrap e "Scribtexttt" #t)]
[(url) (wrap e "nolinkurl" 'exact)]
[(url) (wrap e "Snolinkurl" 'url)]
[(no-break) (wrap e "mbox" tt?)]
[(sf) (wrap e "textsf" #f)]
[(subscript) (wrap e "textsub" #f)]
@ -422,12 +422,15 @@
(let ([v (car l)])
(cond
[(target-url? v)
(define target (regexp-replace* #rx"%"
(let ([p (target-url-addr v)])
(if (path? p)
(path->string p)
p))
"\\\\%"))
(define target (let* ([s (let ([p (target-url-addr v)])
(if (path? p)
(path->string p)
p))]
[s (regexp-replace* #rx"\\\\" s "%5c")]
[s (regexp-replace* #rx"{" s "%7b")]
[s (regexp-replace* #rx"}" s "%7d")]
[s (regexp-replace* #rx"%" s "\\\\%")])
s))
(if (regexp-match? #rx"^[^#]*#[^#]*$" target)
;; work around a problem with `\href' as an
;; argument to other macros, such as `\marginpar':
@ -790,8 +793,20 @@
[else ses])))
(define/private (display-protected s)
(if (eq? (rendering-tt) 'exact)
(display s)
(define rtt (rendering-tt))
(cond
[(eq? rtt 'exact)
(display s)]
[(eq? rtt 'url)
(for ([c (in-string s)])
(case c
[(#\%) (display "\\%")]
[(#\#) (display "\\#")]
[(#\\) (display "\\%5c")]
[(#\{) (display "\\%7b")]
[(#\}) (display "\\%7d")]
[else (display c)]))]
[else
(let ([len (string-length s)])
(let loop ([i 0])
(unless (= i len)
@ -1051,7 +1066,7 @@
c)]
[else c])])])
c)])))
(loop (add1 i)))))))
(loop (add1 i)))))]))
(define/private (box-character c)

3
collects/scribble/scribble.tex
View File

@ -219,6 +219,9 @@
% within other macros:
\newcommand{\Shref}[3]{\href{#1\##2}{#3}}
% For URLs:
\newcommand{\Snolinkurl}[1]{\nolinkurl{#1}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Scribble then generates the following: