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))
(super get-dest-directory)))
(define/private (derive-filename d)
(format "~a.html" (regexp-replace*
"[^-a-zA-Z0-9_=]"
(or (format "~a" (part-tag d))
(content->string (part-title-content d)))
"_")))
(define/private (derive-filename d ht)
(let ([fn (format "~a.html" (regexp-replace*
"[^-a-zA-Z0-9_=]"
(or (format "~a" (part-tag 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)
(super collect ds (map (lambda (fn)
@ -297,7 +301,7 @@
1
(add1 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))
filename)])
(super collect-part d parent ht number)))
@ -417,7 +421,7 @@
(make-element
(if parent
(make-target-url (if prev
(derive-filename prev)
(derive-filename prev ht)
"index.html"))
"nonavigation")
prev-content)
@ -426,14 +430,14 @@
(if parent
(make-target-url
(if (toc-part? parent)
(derive-filename parent)
(derive-filename parent ht)
"index.html"))
"nonavigation")
up-content)
sep-element
(make-element
(if next
(make-target-url (derive-filename next))
(make-target-url (derive-filename next ht))
"nonavigation")
next-content))))))))
d
@ -447,7 +451,7 @@
(next-separate-page)))
;; Render as just a link, and put the actual
;; 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))
filename)])
(parameterize ([on-separate-page #t])