added make-module-language-tag and use it and make-section-tag

in a few places

collects/drracket/private/language-configuration.rkt

@@ -14,6 +14,7 @@
            setup/getinfo
            setup/xref
            scribble/xref
+           scribble/tag
            net/url
            syntax/toplevel
            browser/external
@@ -1342,7 +1343,8 @@
                   [else (void)])))
         (send t set-clickback before-docs after-docs 
               (λ (t start end)
-                (define-values (path tag) (xref-tag->path+anchor (load-collections-xref) `(mod-path ,(symbol->string lang))))
+                (define-values (path tag) (xref-tag->path+anchor (load-collections-xref) 
+                                                                 (make-module-language-tag lang)))
                 (define url (path->url path))
                 (define url2 (if tag
                                  (make-url (url-scheme url)

collects/drracket/private/unit.rkt

@@ -50,6 +50,7 @@ module browser threading seems wrong.
          
          scribble/xref
          setup/xref
+         scribble/tag
          (only-in scribble/base doc-prefix))
 
 (provide unit@)
@@ -1532,11 +1533,9 @@ module browser threading seems wrong.
                     [callback (λ (x y) 
                                 (define-values (path tag) 
                                   (xref-tag->path+anchor (load-collections-xref)
-                                                         `(part
+                                                         (make-section-tag
-                                                           ,(doc-prefix
+                                                          "follow-log"
-                                                             '(lib "scribblings/drracket/drracket.scrbl")
+                                                          #:doc '(lib "scribblings/drracket/drracket.scrbl"))))
-                                                             #f
-                                                             "follow-log"))))
                                 (define url (path->url path))
                                 (define url2 (if tag
                                                  (make-url (url-scheme url)

collects/games/show-scribbling.rkt

@@ -3,6 +3,7 @@
 (require setup/xref
          scribble/xref
          scribble/basic
+         scribble/tag
          scheme/promise
          net/url
          net/sendurl)
@@ -10,13 +11,13 @@
 (provide show-scribbling)
 
 (define (show-scribbling mod-path tag)
-  (let ([xref (delay (load-collections-xref))])
+  (define xref (load-collections-xref))
-    (lambda ()
+  (λ ()
-      (let-values ([(path anchor)
+    (define-values (path anchor)
       (xref-tag->path+anchor 
-                     (force xref)
+       xref
-                     (list 'part (list (module-path-prefix->string mod-path) tag)))])
+       (make-section-tag tag #:doc mod-path)))
     (if path
         (let ([u (path->url path)])
           (send-url (url->string u)))
-            (error 'show-scribbling "cannot find docs for: ~.s ~.s" mod-path tag))))))
+        (error 'show-scribbling "cannot find docs for: ~.s ~.s" mod-path tag))))

collects/meta/web/www/code.rkt

@@ -1,6 +1,7 @@
 #lang meta/web
 
-(require syntax-color/module-lexer setup/xref scribble/xref)
+(require syntax-color/module-lexer setup/xref 
+         scribble/xref scribble/tag)
 
 (provide code)
 
@@ -53,7 +54,8 @@
     (if (or always-orig? (syntax-original? mp-stx))
       (let ([mp (syntax->datum mp-stx)])
         (define-values [p a]
-          (xref-tag->path+anchor xref `(mod-path ,(format "~s" mp))
+          (xref-tag->path+anchor xref 
+                                 (make-module-language-tag mp)
                                  #:external-root-url doc-root))
         (if p
           (list (let ([pos (sub1 (syntax-position mp-stx))])

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))))

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?]{