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

fix 'hidden style property for main document title

Browse Source
This commit is contained in:
Matthew Flatt 2019-12-08 09:49:47 -07:00
parent aa5f0b767a
commit 84607f796c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scribble-lib/scribble/latex-render.rkt
View File

@ -151,7 +151,9 @@
(install-file style-file)))) (install-file style-file))))
(when whole-doc? (when whole-doc?
(printf "\\begin{document}\n\\preDoc\n") (printf "\\begin{document}\n\\preDoc\n")
(when (part-title-content d) (when (and (part-title-content d)
(not (and (part-style? d 'hidden)
(equal? "" (content->string (part-title-content d))))))
(let ([vers (extract-version d)] (let ([vers (extract-version d)]
[date (extract-date d)] [date (extract-date d)]
[pres (extract-pretitle-content d)] [pres (extract-pretitle-content d)]
@ -166,7 +168,6 @@
(do-render-nested-flow pre d ri #t #f #t)])) (do-render-nested-flow pre d ri #t #f #t)]))
(when date (printf "\\date{~a}\n" date)) (when date (printf "\\date{~a}\n" date))
(printf "\\titleAnd~aVersionAnd~aAuthors~a{" (printf "\\titleAnd~aVersionAnd~aAuthors~a{"
(if (equal? vers "") "Empty" "") (if (equal? vers "") "Empty" "")
(if (null? auths) "Empty" "") (if (null? auths) "Empty" "")
(if short "AndShort" "")) (if short "AndShort" ""))