From 969e3c9e4b7e50e61dc7b53fa87b397dcb3c406b Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Fri, 16 Nov 2007 20:33:59 +0000 Subject: [PATCH] images for scribblings svn: r7750 original commit: fd0d99f1583f1782a19d36b881f4fd849c61e423 --- collects/scribble/basic.ss | 2 +- collects/scribble/manual.ss | 10 +++++++++- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/collects/scribble/basic.ss b/collects/scribble/basic.ss index 9ff87fcb..781d6693 100644 --- a/collects/scribble/basic.ss +++ b/collects/scribble/basic.ss @@ -65,7 +65,7 @@ (define (subsubsub*section #:tag [tag #f] . str) (let ([content (decode-content str)]) (make-paragraph (list (make-element 'bold content))))) - + (define-syntax (include-section stx) (syntax-case stx () [(_ mod) diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss index fb29cedb..31635e04 100644 --- a/collects/scribble/manual.ss +++ b/collects/scribble/manual.ss @@ -149,7 +149,7 @@ litchar verbatim) - (provide onscreen menuitem defterm + (provide image onscreen menuitem defterm schemefont schemevalfont schemeresultfont schemeidfont schemeparenfont schemekeywordfont schememetafont schememodfont filepath exec envvar Flag DFlag @@ -157,6 +157,14 @@ link procedure 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) (make-element 'sf (decode-content str))) (define (menuitem menu item)