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

fix scribble/jfp

Browse Source
This commit is contained in:
Robby Findler 2016-05-27 14:01:42 -05:00
parent 5edbe0fc85
commit 0ca977aecd
3 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scribble-lib/scribble/jfp/lang.rkt
View File

@ -41,7 +41,9 @@
"\\let\\amalg\\relax\n")) "\\let\\amalg\\relax\n"))
(scribble-file "jfp/style.tex") (scribble-file "jfp/style.tex")
(list cls-file) (list cls-file)
#f)) #f
#:replacements
(hash "scribble-load-replace.tex" (scribble-file "jfp/replacements.tex"))))
(unless (or (not (path? cls-file)) (unless (or (not (path? cls-file))
(file-exists? cls-file)) (file-exists? cls-file))

1
scribble-lib/scribble/jfp/replacements.tex Normal file
View File

@ -0,0 +1 @@
\renewcommand{\packageRelsize}{}

17
scribble-lib/scribble/private/defaults.rkt
View File

@ -21,7 +21,8 @@
(define (add-defaults doc pfx styl extras version? (define (add-defaults doc pfx styl extras version?
#:html [html #f] #:html [html #f]
#:properties [properties null]) #:properties [properties null]
#:replacements [replacements #F])
(struct-copy part doc [style (make-style (style-name (part-style doc)) (struct-copy part doc [style (make-style (style-name (part-style doc))
((if version? add-property (lambda (x y z) x)) ((if version? add-property (lambda (x y z) x))
(add-property (add-property
@ -32,9 +33,15 @@
html-defaults? html-defaults?
html) html)
latex-defaults? latex-defaults?
(make-latex-defaults (if replacements
pfx (make-latex-defaults+replacements
styl pfx
extras)) styl
extras
replacements)
(make-latex-defaults
pfx
styl
extras)))
document-version? document-version?
(make-document-version (version))))])) (make-document-version (version))))]))