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

new gui reference work

Browse Source 
svn: r7106

original commit: 33d7e3ded3aece1850cdf02e9d9db6702dec146d
This commit is contained in:
Matthew Flatt 2007-08-16 18:48:47 +00:00
parent cc4e99778e
commit 96172c025d
5 changed files with 27 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -296,7 +296,9 @@
(let ([number (collected-info-number (part-collected-info part))])
(let ([subs
(if (quiet (and (styled-part? part)
(eq? 'quiet (styled-part-style part))
(let ([st(styled-part-style part)])
(or (eq? 'quiet st)
(and (list? st) (memq 'quiet st))))
(not (= base-len (sub1 (length number))))))
(apply
append

8
collects/scribble/basic.ss
View File

@ -22,17 +22,17 @@
(let ([content (decode-content str)])
(make-title-decl (or tag (gen-tag content)) style content)))
(define (section #:tag [tag #f] . str)
(define (section #:tag [tag #f] #:style [style #f] . str)
(let ([content (decode-content str)])
(make-part-start 0 (or tag (gen-tag content)) content)))
(make-part-start 0 (or tag (gen-tag content)) style content)))
(define (subsection #:tag [tag #f] . str)
(let ([content (decode-content str)])
(make-part-start 1 (or tag (gen-tag content)) content)))
(make-part-start 1 (or tag (gen-tag content)) #f content)))
(define (subsubsection #:tag [tag #f] . str)
(let ([content (decode-content str)])
(make-part-start 2 (or tag (gen-tag content)) content)))
(make-part-start 2 (or tag (gen-tag content)) #f content)))
(define (subsubsub*section #:tag [tag #f] . str)
(let ([content (decode-content str)])

13
collects/scribble/decode.ss
View File

@ -18,6 +18,7 @@
[content list?])]
[part-start ([depth integer?]
[tag (or/c false/c string?)]
[style any/c]
[title list?])]
[splice ([run list?])]
[part-index-decl ([plain-seq (listof string?)]
@ -136,10 +137,11 @@
((part-start-depth (car l)) . <= . part-depth))
(part? (car l))))
(let ([para (decode-accum-para accum)]
[s (decode-part (reverse s-accum)
(part-start-tag s)
(part-start-title s)
(add1 part-depth))]
[s (decode-styled-part (reverse s-accum)
(part-start-tag s)
(part-start-style s)
(part-start-title s)
(add1 part-depth))]
[part (decode-flow* l keys tag style title part-depth)])
(make-styled-part (part-tags part)
(part-title-content part)
@ -179,6 +181,9 @@
(define (decode-part l tag title depth)
(decode-flow* l null tag #f title depth))
(define (decode-styled-part l tag style title depth)
(decode-flow* l null tag style title depth))
(define (decode-flow l)
(part-flow (decode-flow* l null #f #f #f #f)))

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

@ -454,7 +454,9 @@
(define/private (toc-part? d)
(and (styled-part? d)
(eq? 'toc (styled-part-style d))))
(let ([st (styled-part-style d)])
(or (eq? 'toc st)
(and (list? st) (memq 'toc st))))))
(define/override (collect-part d parent ht number)
(let ([prev-sub (collecting-sub)])

12
collects/scribble/manual.ss
View File

@ -84,10 +84,14 @@
#f
(map (lambda (s)
(list (make-flow (list (make-paragraph
(let ([spaces (cdar (regexp-match-positions #rx"^ *" s))])
(list
(hspace spaces)
(make-element 'tt (list (substring s spaces))))))))))
(let loop ([s s])
(let ([spaces (regexp-match-positions #rx"(?:^| ) +" s)])
(if spaces
(append
(loop (substring s 0 (caar spaces)))
(list (hspace (- (cdar spaces) (caar spaces))))
(loop (substring s (cdar spaces))))
(list (make-element 'tt (list s)))))))))))
strs))))
(define-syntax indexed-scheme