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

scribble/latex-properties: add `command-extras'

Browse Source 
This style property is a way to add to the Latex output that is
ignored for HTML and other output.

original commit: 17865bfa841e7c6fd235717bde6b03f16c77e124
This commit is contained in:
Matthew Flatt 2013-01-23 17:26:34 -05:00
parent 24b3905faa
commit d96626896d
3 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribble/latex-properties.rkt
View File

@ -6,4 +6,5 @@
[tex-addition ([path (or/c path-string? (cons/c 'collects (listof bytes?)) bytes?)])] [tex-addition ([path (or/c path-string? (cons/c 'collects (listof bytes?)) bytes?)])]
[latex-defaults ([prefix (or/c bytes? path-string? (cons/c 'collects (listof bytes?)))] [latex-defaults ([prefix (or/c bytes? path-string? (cons/c 'collects (listof bytes?)))]
[style (or/c bytes? path-string? (cons/c 'collects (listof bytes?)))] [style (or/c bytes? path-string? (cons/c 'collects (listof bytes?)))]
[extra-files (listof (or/c path-string? (cons/c 'collects (listof bytes?))))])]) [extra-files (listof (or/c path-string? (cons/c 'collects (listof bytes?))))])]
[command-extras ([arguments (listof string?)])])

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

@ -418,6 +418,10 @@
(color->string (background-color-property-color v))) (color->string (background-color-property-color v)))
(loop (cdr l) tt?) (loop (cdr l) tt?)
(printf "}")] (printf "}")]
[(command-extras? (car l))
(loop (cdr l) tt?)
(for ([l (in-list (command-extras-arguments (car l)))])
(printf "{~a}" l))]
[else (loop (cdr l) tt?)])))))) [else (loop (cdr l) tt?)]))))))
(when part-label? (when part-label?
(printf "}")) (printf "}"))

16
collects/scribblings/scribble/core.scrbl
View File

@ -823,6 +823,9 @@ The following @tech{style properties} are currently recognized:
name} is a string, render the elements content exactly name} is a string, render the elements content exactly
(without escapes).} (without escapes).}
@item{@racket[command-extras] structure --- For Latex output,
adds strings as arguments to the Latex command.}
]} ]}
@ -1502,14 +1505,7 @@ rendering.
See also @racketmodname[scribble/latex-prefix].} See also @racketmodname[scribble/latex-prefix].}
@defstruct[latex-auto-extra-files ([paths (listof (or/c path-string? @defstruct[command-extras ([arguments (listof string?)])]{
(cons/c 'collects (listof bytes?))))])]{
Used as a @tech{style property} for the main @racket[part] of a Used as a @tech{style property} on an @racket[element] to add extra
document to supply extra files needed to build the document via the arguments to the element's command in Latex output.}
@exec{scribble} command-line tool (for @DFlag{latex} and @DFlag{pdf}
mode).
Languages (used with @hash-lang[]) like
@racketmodname[scribble/sigplan] add this property to a document to specify
appropriate extra files.}