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

fix link search to walk up sections, instead of using the global table

Browse Source 
svn: r6264

original commit: 58828e96a1335c0611f0a5c4e793a4eb30b46667
This commit is contained in:
Matthew Flatt 2007-05-24 10:16:15 +00:00
parent f9019a651f
commit 7fb6f9e3f9
2 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -131,6 +131,19 @@
(list (index-element-plain-seq i)
(index-element-entry-seq i))))
(define/public (lookup part ht key)
(let ([v (hash-table-get (if part
(collected-info-info (part-collected-info part))
ht)
key
#f)])
(or v
(and part
(lookup (collected-info-parent
(part-collected-info part))
ht
key)))))
;; ----------------------------------------
;; render methods
@ -192,7 +205,7 @@
(cond
[(and (link-element? i)
(null? (element-content i)))
(let ([v (hash-table-get ht (link-element-tag i) #f)])
(let ([v (lookup part ht (link-element-tag i))])
(if v
(render-content v part ht)
(render-content (list "[missing]") part ht)))]
@ -265,7 +278,7 @@
(or (not (car number))
((car number) . > . 1)))
(cons (list (make-flow (list (make-paragraph (list
(make-element 'hspace (list " ")))))))
(make-element 'hspace (list "")))))))
l)
l))))

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

@ -27,7 +27,8 @@
collect-part
install-file
get-dest-directory
format-number)
format-number
lookup)
(define/override (get-suffix) #".html")
@ -131,7 +132,7 @@
[(target-element? e)
`((a ((name ,(target-element-tag e))) ,@(render-plain-element e part ht)))]
[(link-element? e)
(let ([dest (hash-table-get ht (link-element-tag e) #f)])
(let ([dest (lookup part ht (link-element-tag e))])
(if dest
`((a ((href ,(format "~a~a~a"
(from-root (car dest)