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

fix latex rendering of superscripts; fix CSS inclusion in subsections rendered on separate pages

Browse Source 
svn: r13880

original commit: 95cc90e0e47271e75ac65d54e37e48a66d288173
This commit is contained in:
Matthew Flatt 2009-02-28 15:27:09 +00:00
parent 1b4c0c027c
commit 4563ae1d7b
4 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/scribble/base-render.ss
View File

@ -47,11 +47,17 @@
;; ----------------------------------------
(define/public (extract-part-style-files d tag stop-at-part?)
(let loop ([p d])
(define/public (extract-part-style-files d ri tag stop-at-part?)
(let loop ([p d][up? #t][only-up? #f])
(let ([s (part-style p)])
(apply
append
(if up?
(let ([p (collected-info-parent (part-collected-info p ri))])
(if p
(loop p #t #t)
null))
null)
(if (list? s)
(filter
values
@ -63,11 +69,13 @@
(cadr s)))
s))
null)
(map (lambda (p)
(if (stop-at-part? p)
null
(loop p)))
(part-parts p))))))
(if only-up?
null
(map (lambda (p)
(if (stop-at-part? p)
null
(loop p #f #f)))
(part-parts p)))))))
;; ----------------------------------------

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

@ -614,6 +614,7 @@
(append style-extra-files
(extract-part-style-files
d
ri
'css
(lambda (p) (part-whole-page? p ri)))))
,(scribble-js-contents script-file script-path))

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

@ -52,6 +52,7 @@
(append style-extra-files
(extract-part-style-files
d
ri
'tex
(lambda (p) #f)))))
(printf "\\begin{document}\n\\preDoc\n")

4
collects/scribble/scribble.tex
View File

@ -40,8 +40,8 @@
\newcommand{\schemeerrorcol}[1]{\inColor{red}{#1}}
\newcommand{\schemeerror}[1]{{\schemeerrorcol{\textrm{\textit{#1}}}}}
\newcommand{\schemeopt}[1]{#1}
\newcommand{\textsub}[1]{$_{#1}$}
\newcommand{\textsuper}[1]{$^{#1}$}
\newcommand{\textsub}[1]{$_{\hbox{\textsmaller{#1}}}$}
\newcommand{\textsuper}[1]{$^{\hbox{\textsmaller{#1}}}$}
\newcommand{\refcolumn}[1]{#1}
\newcommand{\refcontent}[1]{#1}
\newcommand{\intextcolor}[2]{\textcolor{#1}{#2}}