more interning related to Scribble xref

original commit: 17504a960eb552992818a9b303457d58f9171b2a

collects/scribble/core.rkt

@@ -326,7 +326,7 @@
    (or (current-load-relative-directory) (current-directory))))
 
 (provide/contract
- (struct delayed-element ([resolve (any/c part? resolve-info? . -> . list?)]
+ (struct delayed-element ([resolve (any/c part? resolve-info? . -> . content?)]
                           [sizer (-> any)]
                           [plain (-> any)])))
 
@@ -369,7 +369,7 @@
    (or (current-load-relative-directory) (current-directory))))
 
 (provide/contract
- (struct part-relative-element ([collect (collect-info? . -> . list?)]
+ (struct part-relative-element ([collect (collect-info? . -> . content?)]
                                 [sizer (-> any)]
                                 [plain (-> any)])))
 

collects/scribble/decode.rkt

@@ -81,6 +81,8 @@
  [decode-string (-> string? content?)]
  [clean-up-index-string (-> string? string?)])
 
+(define the-part-index-desc (make-part-index-desc))
+
 (define (clean-up-index-string s)
   ;; Collapse whitespace, and remove leading or trailing spaces, which
   ;; might appear there due to images or something else that gets
@@ -151,7 +153,7 @@
                             (regexp-replace #px"^\\s+(?:(?:A|An|The)\\s)?"
                                             (content->string title) "")))
                      (list (make-element #f title))
-                     (make-part-index-desc))
+                     the-part-index-desc)
                     l)
               l))
           (decode-accum-para accum)

collects/scribble/private/manual-bind.rkt

@@ -45,13 +45,12 @@
               [vtag (and tag `(sig-val ,taglet))]
               [stag (and tag `(sig-form ,taglet))]
               [sd (and stag (resolve-get/tentative sec ri stag))])
-         (list
+         (make-element
-          (make-element
+          symbol-color
-           symbol-color
+          (list
-           (list
+           (cond [sd (make-link-element  syntax-link-color (list s) stag)]
-            (cond [sd (make-link-element  syntax-link-color (list s) stag)]
+                 [vtag (make-link-element value-link-color (list s) vtag)]
-                  [vtag (make-link-element value-link-color (list s) vtag)]
+                 [else s])))))
-                  [else s]))))))
      (lambda () s)
      (lambda () s))))
 
@@ -68,16 +67,16 @@
    (lambda (render p ri)
      (let ([from (resolve-get/tentative p ri '(exporting-libraries #f))])
        (if (and from (pair? from))
-         (list (make-element
+           (make-element
-                (intern-hover-style
+            (intern-hover-style
-                 (string-append
+             (string-append
-                  "Provided from: "
+              "Provided from: "
-                  (let loop ([from from])
+              (let loop ([from from])
-                    (if (null? (cdr from))
+                (if (null? (cdr from))
-                      (format "~s" (car from))
+                    (format "~s" (car from))
-                      (format "~s, ~a" (car from) (loop (cdr from)))))))
+                    (format "~s, ~a" (car from) (loop (cdr from)))))))
-                e))
+            e)
-         (list e))))
+           e)))
    (lambda () e)
    (lambda () e)))
 
@@ -163,12 +162,12 @@
                                   ,@(if sig (list (syntax-e (sig-id sig))) null)
                                   ,(syntax-e id))))])
                (if (or sig (not dep?))
-                 (list (mk tag))
+                   (mk tag)
-                 (list (make-dep (list lib-taglet (syntax-e id))
+                   (make-dep (list lib-taglet (syntax-e id))
-                                 (mk tag)))))
+                             (mk tag))))
              content)))
-       (lambda () (car content))
+       (lambda () content)
-       (lambda () (car content))))))
+       (lambda () content)))))
 
 (define (defidentifier id 
                        #:form? [form? #f]
@@ -184,7 +183,7 @@
                     (definition-site (syntax-e id) id form?)
                     (to-element id))])
       (if maker
-          (maker (list elem)
+          (maker elem
                  (lambda (tag)
                    (let ([elem
                           (if index?

collects/scribble/private/manual-mod.rkt

@@ -127,20 +127,24 @@
         names
         modpaths))
       (append (map (lambda (modpath)
-                     (make-part-tag-decl `(mod-path ,(read-intern-literal
+                     (make-part-tag-decl 
-                                                      (element->string modpath)))))
+                      (intern-taglet
+                       `(mod-path ,(read-intern-literal
+                                    (element->string modpath))))))
                    modpaths)
               (flow-paragraphs (decode-flow content)))))))
 
+(define the-module-path-index-desc (make-module-path-index-desc))
+
 (define (make-defracketmodname mn mp)
   (let ([name-str (read-intern-literal (element->string mn))]
         [path-str (read-intern-literal (element->string mp))])
     (make-index-element #f
                         (list mn)
-                        `(mod-path ,path-str)
+                        (intern-taglet `(mod-path ,path-str))
                         (list name-str)
                         (list mn)
-                        (make-module-path-index-desc))))
+                        the-module-path-index-desc)))
 
 (define-syntax (declare-exporting stx)
   (syntax-case stx ()

collects/scribble/private/manual-scheme.rkt

@@ -234,12 +234,11 @@
   (let ([content (decode-content s)])
     (make-delayed-element
      (lambda (r p ri)
-       (list
+       (make-link-element
-        (make-link-element
+        #f
-         #f
+        content
-         content
+        (or (find-racket-tag p ri stx-id #f)
-         (or (find-racket-tag p ri stx-id #f)
+            `(undef ,(format "--UNDEFINED:~a--" (syntax-e stx-id))))))
-             `(undef ,(format "--UNDEFINED:~a--" (syntax-e stx-id)))))))
      (lambda () content)
      (lambda () content))))
 

collects/scribblings/scribble/core.scrbl

@@ -878,7 +878,7 @@ Like @racket[traverse-block], but the @racket[traverse] procedure must
 eventually produce @tech{content}, rather than a @tech{block}.}
 
 
-@defstruct[delayed-element ([resolve (any/c part? resolve-info? . -> . list?)]
+@defstruct[delayed-element ([resolve (any/c part? resolve-info? . -> . content?)]
                             [sizer (-> any/c)]
                             [plain (-> any/c)])]{
 
@@ -898,7 +898,7 @@ such as when @racket[element->string] is used before the @tech{collect
 pass}.}
 
 
-@defstruct[part-relative-element ([resolve (collect-info? . -> . list?)]
+@defstruct[part-relative-element ([resolve (collect-info? . -> . content?)]
                                   [sizer (-> any/c)]
                                   [plain (-> any/c)])]{