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

fix missing page numbers in index of latex output

Browse Source 
svn: r12024

original commit: d3e26ef74d6147cc9fae0b1f7fd3c8b086a84510
This commit is contained in:
Matthew Flatt 2008-10-13 20:34:45 +00:00
parent 21f5773171
commit 611fb883c7
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,6 +11,7 @@
(define current-table-mode (make-parameter #f)) (define current-table-mode (make-parameter #f))
(define rendering-tt (make-parameter #f)) (define rendering-tt (make-parameter #f))
(define show-link-page-numbers (make-parameter #f)) (define show-link-page-numbers (make-parameter #f))
(define done-link-page-numbers (make-parameter #f))
(define disable-images (make-parameter #f)) (define disable-images (make-parameter #f))
(define-struct (toc-paragraph paragraph) ()) (define-struct (toc-paragraph paragraph) ())
@ -123,7 +124,8 @@
(pair? (link-element-tag e)) (pair? (link-element-tag e))
(eq? 'part (car (link-element-tag e))) (eq? 'part (car (link-element-tag e)))
(null? (element-content e)))]) (null? (element-content e)))])
(parameterize ([show-link-page-numbers #f]) (parameterize ([done-link-page-numbers (or (done-link-page-numbers)
(link-element? e))])
(when (target-element? e) (when (target-element? e)
(printf "\\label{t:~a}" (printf "\\label{t:~a}"
(t-encode (tag-key (target-element-tag e) ri)))) (t-encode (tag-key (target-element-tag e) ri))))
@ -199,7 +201,8 @@
(when part-label? (when part-label?
(printf "''")) (printf "''"))
(when (and (link-element? e) (when (and (link-element? e)
(show-link-page-numbers)) (show-link-page-numbers)
(not (done-link-page-numbers)))
(printf ", \\pageref{t:~a}" (printf ", \\pageref{t:~a}"
(t-encode (tag-key (link-element-tag e) ri)))) (t-encode (tag-key (link-element-tag e) ri))))
null)) null))