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

commit e36ebc9823c14c9e073fb466f5cff38946f8c0c7
parent dce9a0e92add989e3622a8700815215b6ee2e023
Author: Robby Findler <robby@racket-lang.org>
Date:   Thu, 27 Dec 2012 11:10:40 -0600

added make-module-language-tag and use it and make-section-tag
in a few places

original commit: 353da62843a2b976e300fdd37abdd9b6d6c4894a

Diffstat:
M
collects/scribble/tag.rkt
 | 
4
++++
M
collects/scribblings/scribble/tag.scrbl
 | 
5
+++++

2 files changed, 9 insertions(+), 0 deletions(-)
diff --git a/collects/scribble/tag.rkt b/collects/scribble/tag.rkt
@@ -14,6 +14,7 @@
                       #:tag-prefixes (or/c #f (listof string?)))
                      . ->* .
                      tag?)]
+  [make-module-language-tag (-> symbol? tag?)]
   [taglet? (any/c . -> . boolean?)]
   [module-path-prefix->string (module-path? . -> . string?)]
   [module-path-index->taglet (module-path-index? . -> . taglet?)]
@@ -25,6 +26,9 @@
 (define (make-section-tag s #:doc [doc #f] #:tag-prefixes [prefix #f])
   `(part ,(doc-prefix doc prefix s)))
 
+(define (make-module-language-tag langname)
+  `(mod-path ,(symbol->string langname)))
+
 (define (taglet? v)
   (and (not (generated-tag? v))
        (tag? (list 'something v))))
diff --git a/collects/scribblings/scribble/tag.scrbl b/collects/scribblings/scribble/tag.scrbl
@@ -26,6 +26,11 @@ references a section in the document implemented by
 prefixes (for intermediate sections, typically) can be provided as
 @racket[tag-prefixes].}
 
+@defproc[(make-module-language-tag [lang symbol?]) tag?]{
+  Forms a @tech{tag} that refers to a section 
+  that contains @racket[defmodulelang] for the language
+  @racket[lang].
+}
 
 @defproc[(taglet? [v any/c]) boolean?]{