bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 969e3c9e4b7e50e61dc7b53fa87b397dcb3c406b
parent 96ea4eba63766210e5de12274bce6a697b2cfe70
Author: Matthias Felleisen <matthias@racket-lang.org>
Date:   Fri, 16 Nov 2007 20:33:59 +0000

images for scribblings

svn: r7750

original commit: fd0d99f1583f1782a19d36b881f4fd849c61e423

Diffstat:
M
collects/scribble/basic.ss
 | 
2
+-
M
collects/scribble/manual.ss
 | 
10
+++++++++-

2 files changed, 10 insertions(+), 2 deletions(-)
diff --git 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
@@ -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)