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

doc work (fix long filename)

Browse Source 
svn: r6717

original commit: ff1189600adf28ca903c737637f6fa8651c99ec3
This commit is contained in:
Matthew Flatt 2007-06-22 12:19:03 +00:00
parent 011a1e08da
commit dcc29be853
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -272,12 +272,16 @@
(current-subdirectory)) (current-subdirectory))
(super get-dest-directory))) (super get-dest-directory)))
(define/private (derive-filename d) (define/private (derive-filename d ht)
(format "~a.html" (regexp-replace* (let ([fn (format "~a.html" (regexp-replace*
"[^-a-zA-Z0-9_=]" "[^-a-zA-Z0-9_=]"
(or (format "~a" (part-tag d)) (or (format "~a" (part-tag d))
(content->string (part-title-content d))) (content->string (part-title-content d)
"_"))) this d ht))
"_"))])
(when ((string-length fn) . >= . 100)
(error "file name too long (need a tag):" fn))
fn))
(define/override (collect ds fns) (define/override (collect ds fns)
(super collect ds (map (lambda (fn) (super collect ds (map (lambda (fn)
@ -297,7 +301,7 @@
1 1
(add1 prev-sub))]) (add1 prev-sub))])
(if (= 1 prev-sub) (if (= 1 prev-sub)
(let ([filename (derive-filename d)]) (let ([filename (derive-filename d ht)])
(parameterize ([current-output-file (build-path (path-only (current-output-file)) (parameterize ([current-output-file (build-path (path-only (current-output-file))
filename)]) filename)])
(super collect-part d parent ht number))) (super collect-part d parent ht number)))
@ -417,7 +421,7 @@
(make-element (make-element
(if parent (if parent
(make-target-url (if prev (make-target-url (if prev
(derive-filename prev) (derive-filename prev ht)
"index.html")) "index.html"))
"nonavigation") "nonavigation")
prev-content) prev-content)
@ -426,14 +430,14 @@
(if parent (if parent
(make-target-url (make-target-url
(if (toc-part? parent) (if (toc-part? parent)
(derive-filename parent) (derive-filename parent ht)
"index.html")) "index.html"))
"nonavigation") "nonavigation")
up-content) up-content)
sep-element sep-element
(make-element (make-element
(if next (if next
(make-target-url (derive-filename next)) (make-target-url (derive-filename next ht))
"nonavigation") "nonavigation")
next-content)))))))) next-content))))))))
d d
@ -447,7 +451,7 @@
(next-separate-page))) (next-separate-page)))
;; Render as just a link, and put the actual ;; Render as just a link, and put the actual
;; content in a new file: ;; content in a new file:
(let* ([filename (derive-filename d)] (let* ([filename (derive-filename d ht)]
[full-path (build-path (path-only (current-output-file)) [full-path (build-path (path-only (current-output-file))
filename)]) filename)])
(parameterize ([on-separate-page #t]) (parameterize ([on-separate-page #t])