add 'no-header-controls style property for parts

Also, correct some mistakes in the documentation.

Author: mflatt

scribble-doc/scribblings/scribble/base.scrbl

@@ -115,10 +115,12 @@ removed.}
 @def-section-like[subsubsection part-start?]{ Like @racket[section], but
  generates a @racket[part-start] of depth @racket[2].}
 
-@def-section-like[subsubsub*section paragraph?]{ Similar to
- @racket[section], but merely generates a paragraph that looks like an
- unnumbered section heading (for when the nesting gets too deep to
- include in a table of contents).}
+@defproc[(subsubsub*section [#:tag tag (or/c #f string? (listof string?)) #f]
+                            [pre-content pre-content?] ...+)
+         paragraph?]{
+Similar to @racket[section], but merely generates a paragraph that
+ looks like an unnumbered section heading (for when the nesting gets
+ too deep to include in a table of contents).}
 
 @defform[(include-section module-path)]{ Requires @racket[module-path]
  and returns its @racket[doc] export (without making any imports

scribble-doc/scribblings/scribble/core.scrbl

@@ -480,6 +480,10 @@ The recognized @tech{style properties} are as follows:
        document, causes the HTML output to not include an ``on this 
        page'' margin box.}
 
+ @item{@indexed-racket['no-header-controls] --- Suppresses link and
+       link-information icons (if any) as part of a section header in
+       HTML output.}
+
  @item{@indexed-racket['no-index] --- Has no effect as a @tech{style
        property} on a @racket[part], but as a style property on a
        @racket[title] or @racket[part-start] that provides a
@@ -585,7 +589,8 @@ The @racket[parts] field contains sub-parts.
          #:changed "1.26" @elem{Added @racket[link-render-style] support.}
          #:changed "1.27" @elem{Added @racket['no-toc+aux] support.}
          #:changed "1.54" @elem{Changed @racket[tag-prefix] field to allow a
-                                @tech{part context} hash table.}]}
+                                @tech{part context} hash table.}
+         #:changed "1.57" @elem{Added @racket['no-header-controls] support.}]}
 
 
 @defstruct[paragraph ([style style?] [content content?])]{
@@ -1191,7 +1196,7 @@ such as when @racket[element->string] is used before the @tech{collect
 pass}.}
 
 
-@defstruct[part-relative-element ([resolve (collect-info? . -> . content?)]
+@defstruct[part-relative-element ([collect (collect-info? . -> . content?)]
                                   [sizer (-> any/c)]
                                   [plain (-> any/c)])]{
 

scribble-lib/info.rkt

@@ -23,7 +23,7 @@
 
 (define pkg-authors '(mflatt eli))
 
-(define version "1.56")
+(define version "1.57")
 
 (define license
   '((Apache-2.0 OR MIT)

scribble-lib/scribble/html-render.rkt

@@ -1188,23 +1188,25 @@
                      ,@(if (part-title-content d)
                            (render-content (part-title-content d) d ri)
                            null)
-                     (span ([class "button-group"])
-                           ,@(match (part-tags d)
-                               ['() '()]
-                               [(cons t _)
-                                (list `(a ([href ,(format "#~a" (anchor-name
-                                                                 (add-current-tag-prefix
-                                                                  (tag-key t ri))))]
-                                           [class "heading-anchor"]
-                                           [title "Link to here"])
-                                          "🔗"))])
-                           ,@(if (and src taglet)
-                                 (list '(a ([class "heading-source"]
-                                            [title "Internal Scribble link and Scribble source"]) "ℹ"))
-                                 '())
-                           ;; this is a dummy node so that the line height of heading-anchor
-                           ;; and heading-source are correct (even when their font size is not 100%)
-                           (span ([style "visibility: hidden"]) " "))))])
+                     ,@(if (part-style? d 'no-header-controls)
+                           null
+                           `((span ([class "button-group"])
+                                   ,@(match (part-tags d)
+                                       ['() '()]
+                                       [(cons t _)
+                                        (list `(a ([href ,(format "#~a" (anchor-name
+                                                                         (add-current-tag-prefix
+                                                                          (tag-key t ri))))]
+                                                   [class "heading-anchor"]
+                                                   [title "Link to here"])
+                                                  "🔗"))])
+                                   ,@(if (and src taglet)
+                                         (list '(a ([class "heading-source"]
+                                                    [title "Internal Scribble link and Scribble source"]) "ℹ"))
+                                         '())
+                                   ;; this is a dummy node so that the line height of heading-anchor
+                                   ;; and heading-source are correct (even when their font size is not 100%)
+                                   (span ([style "visibility: hidden"]) " "))))))])
              ,@(let ([auths (extract-authors d)])
                  (if (null? auths)
                      null