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

commit ff5f3c508a9a7525d2b4fcad55a5eece6b14254a
parent e1f8c00bdffd1d04f55d305f6b732d38055f9fd1
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon, 16 Feb 2009 16:35:06 +0000

added smaller to scribble/basic

svn: r13668

original commit: 76042d8b4c268acdf064bdb246d1abd370300e8d

Diffstat:
M
collects/scribble/basic.ss
 | 
5
++++-
M
collects/scribblings/scribble/basic.scrbl
 | 
4
+++-

2 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/collects/scribble/basic.ss b/collects/scribble/basic.ss
@@ -199,7 +199,7 @@
 
 (provide hspace
          elem aux-elem
-         italic bold
+         italic bold smaller
          tt span-class
          subscript superscript)
 
@@ -225,6 +225,9 @@
 (define (bold . str)
   (make-element 'bold (decode-content str)))
 
+(define (smaller . str)
+  (make-element "smaller" (decode-content str)))
+
 (define (tt . str)
   (let* ([l (decode-content str)]
          [l (let ([m (and (pair? l)
diff --git a/collects/scribblings/scribble/basic.scrbl b/collects/scribblings/scribble/basic.scrbl
@@ -23,7 +23,7 @@
 @(define-syntax def-style-proc
    (syntax-rules ()
      [(_ id)
-      @def-elem-proc[id]{Like @scheme[elem], but with style @scheme['id]}]))
+      @def-elem-proc[id]{Like @scheme[elem], but with style @scheme['id].}]))
 
 @title[#:tag "basic"]{Basic Document Forms}
 
@@ -163,6 +163,8 @@ an element with style @scheme[#f].}
 @def-style-proc[subscript]
 @def-style-proc[superscript]
 
+@def-elem-proc[smaller]{Like @scheme[elem], but with style @scheme["smaller"].}
+
 @defproc[(hspace [n exact-nonnegative-integer?]) element?]{
 
 Produces an element containing @scheme[n] spaces and style