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

more slideshow docs/refinements

Browse Source 
svn: r7751

original commit: cc2a099a32ac04fd3e2dab62194218104afe84c4
This commit is contained in:
Matthew Flatt 2007-11-16 21:58:33 +00:00
parent 969e3c9e4b
commit e8d4ccf1d4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scribble/manual.ss
View File

@ -1051,7 +1051,8 @@
(schemeparenfont "("))))) (schemeparenfont "(")))))
(to-flow (if (or (null? fields) (to-flow (if (or (null? fields)
(short-width . < . max-proto-width)) (short-width . < . max-proto-width))
(to-element (map field-view fields)) (make-element #f (list (to-element (map field-view fields))
(schemeparenfont ")")))
(to-element (field-view (car fields))))))) (to-element (field-view (car fields)))))))
(if (short-width . < . max-proto-width) (if (short-width . < . max-proto-width)
null null
@ -1070,7 +1071,7 @@
#f #f
(list e (list e
(schemeparenfont (schemeparenfont
(if (and (not immutable?) (if (and immutable?
(not transparent?)) (not transparent?))
"))" "))"
")")))) ")"))))
@ -1398,7 +1399,7 @@
(provide cite) (provide cite)
(define (cite #:key key #:title title #:author author #:location location #:date date) (define (cite #:key key #:title title #:author author #:location location #:date date #:url [url #f])
"[...]" "[...]"
#; #;
(make-bibliography-element (make-bibliography-element