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

scribble: preserve order of ".js", ".css", and ".tex" additions

Browse Source 
original commit: 08604b027740e515d69b677d8542eb45fc8791b2
This commit is contained in:
Matthew Flatt 2013-02-18 11:12:33 -07:00
parent a9141a3c3d
commit 34f12bcd59
3 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -118,9 +118,9 @@
;; ----------------------------------------
(define/public (extract-part-style-files d ri tag stop-at-part? pred extract)
(define/public (extract-part-style-files d ri stop-at-part? pred extract)
(let ([ht (make-hash)])
(let loop ([p d][up? #t][only-up? #f])
(let loop ([p d] [up? #t] [only-up? #f])
(let ([s (part-style p)])
(when up?
(let ([p (collected-info-parent (part-collected-info p ri))])
@ -137,14 +137,19 @@
(unless (stop-at-part? p)
(loop p #f #f)))
(part-parts p)))))
(for/list ([k (in-hash-keys ht)]) (if (or (bytes? k) (url? k))
k
(main-collects-relative->path k)))))
(map cdr
(sort
(for/list ([(k v) (in-hash ht)])
(cons v (if (or (bytes? k) (url? k))
k
(main-collects-relative->path k))))
<
#:key car))))
(define/private (extract-style-style-files s ht pred extract)
(for ([v (in-list (style-properties s))])
(when (pred v)
(hash-set! ht (extract v) #t))))
(hash-update! ht (extract v) values (hash-count ht)))))
(define/private (extract-flow-style-files blocks d ri ht pred extract)
(for ([b (in-list blocks)])

2
collects/scribble/html-render.rkt
View File

@ -704,7 +704,6 @@
(append (extract-part-style-files
d
ri
'css
(lambda (p) (part-whole-page? p ri))
css-addition?
css-addition-path)
@ -720,7 +719,6 @@
(extract-part-style-files
d
ri
'css
(lambda (p) (part-whole-page? p ri))
js-addition?
js-addition-path))

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

@ -89,7 +89,6 @@
(append (extract-part-style-files
d
ri
'tex
(lambda (p) #f)
tex-addition?
tex-addition-path)