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

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

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

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

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

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

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

4
collects/scribble/scribble.tex
View File

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