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

images for scribblings

Browse Source 
svn: r7750

original commit: fd0d99f1583f1782a19d36b881f4fd849c61e423
This commit is contained in:
Matthias Felleisen 2007-11-16 20:33:59 +00:00
parent 96ea4eba63
commit 969e3c9e4b
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/basic.ss
View File

@ -65,7 +65,7 @@
(define (subsubsub*section #:tag [tag #f] . str) (define (subsubsub*section #:tag [tag #f] . str)
(let ([content (decode-content str)]) (let ([content (decode-content str)])
(make-paragraph (list (make-element 'bold content))))) (make-paragraph (list (make-element 'bold content)))))
(define-syntax (include-section stx) (define-syntax (include-section stx)
(syntax-case stx () (syntax-case stx ()
[(_ mod) [(_ mod)

10
collects/scribble/manual.ss
View File

@ -149,7 +149,7 @@
litchar litchar
verbatim) verbatim)
(provide onscreen menuitem defterm (provide image onscreen menuitem defterm
schemefont schemevalfont schemeresultfont schemeidfont schemefont schemevalfont schemeresultfont schemeidfont
schemeparenfont schemekeywordfont schememetafont schememodfont schemeparenfont schemekeywordfont schememetafont schememodfont
filepath exec envvar Flag DFlag filepath exec envvar Flag DFlag
@ -157,6 +157,14 @@
link procedure link procedure
idefterm) idefterm)
;; String String *-> Element
;; an in-lined image, relative to the current directory
(define (image filename-relative-to-source . alt)
(centerline ;; this doesn't do anything?
(make-element
(make-image-file filename-relative-to-source)
(decode-content alt))))
(define (onscreen . str) (define (onscreen . str)
(make-element 'sf (decode-content str))) (make-element 'sf (decode-content str)))
(define (menuitem menu item) (define (menuitem menu item)