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

added image/plain

Browse Source 
svn: r8644

original commit: 603246a15a1fc6ee623735ea7756324693e77143
This commit is contained in:
Matthias Felleisen 2008-02-13 15:36:57 +00:00
parent 91c33286c1
commit f5f65790ca
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/scribble/manual.ss
View File

@ -244,7 +244,7 @@
litchar litchar
verbatim) verbatim)
(provide image onscreen menuitem defterm emph (provide image image/plain onscreen menuitem defterm emph
schemefont schemevalfont schemeresultfont schemeidfont schemevarfont schemefont schemevalfont schemeresultfont schemeidfont schemevarfont
schemeparenfont schemekeywordfont schememetafont schememodfont schemeparenfont schemekeywordfont schememetafont schememodfont
filepath exec envvar Flag DFlag PFlag DPFlag filepath exec envvar Flag DFlag PFlag DPFlag
@ -261,6 +261,13 @@
(make-image-file filename-relative-to-source) (make-image-file filename-relative-to-source)
(decode-content alt)))) (decode-content alt))))
;; MF! -- the centerline is used in the drscheme manual
;; otherwise I'd switch
(define (image/plain filename-relative-to-source . alt)
(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)