suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

setup-plt scribbling

Browse Source 
svn: r8451

original commit: 68ae5ace16a40c0ea1bb4d5ed010d8c64fa3972a
This commit is contained in:
Matthew Flatt 2008-01-28 21:54:02 +00:00
parent 61db9850c1
commit 788660a9f1
5 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scribble/basic.ss
View File

@ -87,12 +87,15 @@
(provide itemize item item?) (provide itemize item item?)
(define (itemize . items) (define (itemize #:style [style #f] . items)
(let ([items (filter (lambda (v) (not (whitespace? v))) items)]) (let ([items (filter (lambda (v) (not (whitespace? v))) items)])
(for ([v items]) (for ([v items])
(unless (an-item? v) (unless (an-item? v)
(error 'itemize "expected an item, found something else: ~e" v))) (error 'itemize "expected an item, found something else: ~e" v)))
(make-itemization (map an-item-flow items)))) (let ([flows (map an-item-flow items)])
(if style
(make-styled-itemization flows style)
(make-itemization flows)))))
(define-struct an-item (flow)) (define-struct an-item (flow))
(define (item? x) (an-item? x)) (define (item? x) (an-item? x))

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

@ -576,6 +576,10 @@
(define/override (render-itemization t part ri) (define/override (render-itemization t part ri)
`((ul `((ul
,@(if (and (styled-itemization? t)
(string? (styled-itemization-style t)))
`(((class ,(styled-itemization-style t))))
null)
,@(map (lambda (flow) ,@(map (lambda (flow)
`(li ,@(render-flow flow part ri))) `(li ,@(render-flow flow part ri)))
(itemization-flows t))))) (itemization-flows t)))))

7
collects/scribble/manual.ss
View File

@ -1144,8 +1144,11 @@
tag))) tag)))
(car content))) (car content)))
(annote-exporting-library (annote-exporting-library
(to-element (make-just-context (extract-id prototype) (let ([sig (current-signature)])
stx-id))))])] (if sig
(*sig-elem (sig-id sig) (extract-id prototype))
(to-element (make-just-context (extract-id prototype)
stx-id))))))])]
[(flat-size) (+ (prototype-size args + +) [(flat-size) (+ (prototype-size args + +)
(prototype-depth prototype) (prototype-depth prototype)
(element-width tagged))] (element-width tagged))]

5
collects/scribble/scribble.css
View File

@ -441,6 +441,11 @@ i {
margin-right: 0.3em; margin-right: 0.3em;
} }
.compact li p {
margin: 0 0 0 0;
padding: 0 0 0 0;
}
/* A hack, inserted to break some Scheme ids: */ /* A hack, inserted to break some Scheme ids: */
.mywbr { .mywbr {
width: 0; width: 0;

1
collects/scribble/struct.ss
View File

@ -153,6 +153,7 @@
[(auxiliary-table table) ()] [(auxiliary-table table) ()]
[delayed-flow-element ([resolve (any/c part? resolve-info? . -> . flow-element?)])] [delayed-flow-element ([resolve (any/c part? resolve-info? . -> . flow-element?)])]
[itemization ([flows (listof flow?)])] [itemization ([flows (listof flow?)])]
[(styled-itemization itemization) ([style any/c])]
[blockquote ([style any/c] [blockquote ([style any/c]
[paragraphs (listof flow-element?)])] [paragraphs (listof flow-element?)])]
;; content = list of elements ;; content = list of elements