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

add 'url style to Scribble

Browse Source 
svn: r15059
This commit is contained in:
Matthew Flatt 2009-06-02 19:13:23 +00:00
parent e0bab0cea2
commit 77843f5e8e
4 changed files with 52 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/scribble/html-render.ss
View File

@ -979,6 +979,7 @@
[(italic) (render* 'i)] [(italic) (render* 'i)]
[(bold) (render* 'b)] [(bold) (render* 'b)]
[(tt) (render* '([class "stt"]))] [(tt) (render* '([class "stt"]))]
[(url) (render* '([class "url"]))]
[(no-break) (render* '([class "nobreak"]))] [(no-break) (render* '([class "nobreak"]))]
[(sf) `((b ,@(render* '(font ([size "-1"] [face "Helvetica"])))))] [(sf) `((b ,@(render* '(font ([size "-1"] [face "Helvetica"])))))]
[(subscript) (render* 'sub)] [(subscript) (render* 'sub)]

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

@ -173,6 +173,7 @@
[(italic) (wrap e "textit" #f)] [(italic) (wrap e "textit" #f)]
[(bold) (wrap e "textbf" #f)] [(bold) (wrap e "textbf" #f)]
[(tt) (wrap e "Scribtexttt" #t)] [(tt) (wrap e "Scribtexttt" #t)]
[(url) (wrap e "nolinkurl" 'exact)]
[(no-break) (super render-element e part ri)] [(no-break) (super render-element e part ri)]
[(sf) (wrap e "textsf" #f)] [(sf) (wrap e "textsf" #f)]
[(subscript) (wrap e "textsub" #f)] [(subscript) (wrap e "textsub" #f)]
@ -187,6 +188,8 @@
[(newline) (printf "\\\\")] [(newline) (printf "\\\\")]
[else (error 'latex-render [else (error 'latex-render
"unrecognzied style symbol: ~s" style)])] "unrecognzied style symbol: ~s" style)])]
[(target-url? style)
(wrap e (format "href{~a}" (target-url-addr style)) #f)]
[(string? style) [(string? style)
(wrap e style (regexp-match? #px"^scheme(?!error)" style))] (wrap e style (regexp-match? #px"^scheme(?!error)" style))]
[(and (pair? style) (memq (car style) '(bg-color color))) [(and (pair? style) (memq (car style) '(bg-color color)))
@ -439,6 +442,8 @@
null) null)
(define/private (display-protected s) (define/private (display-protected s)
(if (eq? (rendering-tt) 'exact)
(display s)
(let ([len (string-length s)]) (let ([len (string-length s)])
(let loop ([i 0]) (let loop ([i 0])
(unless (= i len) (unless (= i len)
@ -482,7 +487,7 @@
[(#\∞) "$\\infty$"] [(#\∞) "$\\infty$"]
[(#\à) "\\`{a}"] [(#\à) "\\`{a}"]
[else c]))) [else c])))
(loop (add1 i)))))) (loop (add1 i)))))))
;; ---------------------------------------- ;; ----------------------------------------

2
collects/scribblings/scribble/scheme.scrbl
View File

@ -148,7 +148,7 @@ Provided @scheme[for-syntax]; returns @scheme[#t] if @scheme[v] is an
@defproc[(make-variable-id [sym (or/c symbol? identifier?)]) @defproc[(make-variable-id [sym (or/c symbol? identifier?)])
variable-id?]{ variable-id?]{
Provided @scheme[for-syntax]; like @scheme[element-id-transformer] for Provided @scheme[for-syntax]; like @scheme[make-element-id-transformer] for
a transformer that produces @scheme[sym] typeset as a variable (like a transformer that produces @scheme[sym] typeset as a variable (like
@scheme[schemevarfont])---unless it appears under quote or quasiquote, @scheme[schemevarfont])---unless it appears under quote or quasiquote,
in which case @scheme[sym] is typeset as a symbol.} in which case @scheme[sym] is typeset as a symbol.}

2
collects/scribblings/scribble/struct.scrbl
View File

@ -502,7 +502,7 @@ The @scheme[style] field is normally either
a macro name for Latex output (see @secref["extra-style"]);} a macro name for Latex output (see @secref["extra-style"]);}
@item{one of the symbols that all renderers recognize: @scheme['tt], @item{one of the symbols that all renderers recognize: @scheme['tt],
@scheme['italic], @scheme['bold], @scheme['sf], @scheme['italic], @scheme['bold], @scheme['sf], @scheme['url],
@scheme['subscript], @scheme['superscript], @scheme['hspace], @scheme['subscript], @scheme['superscript], @scheme['hspace],
or @scheme['newline] (which renders a line break independent of or @scheme['newline] (which renders a line break independent of
the @scheme[content]);} the @scheme[content]);}