Method: (GENERATE-INDEX HTML-GENERATOR T T)

Source

(defmethod generate-index ((generator html-generator) book index-class)
  (declare (ignore generator))
  (<qbook-page :title (strcat (pretty-label-prefix (make-instance index-class))
                              " Index")
               :file-name (strcat "index/" (label-prefix (make-instance index-class)) ".html")
               :stylesheet "../style.css"
               :printsheet "../print.css"
               (<:div :class "api-index"
                      (<:h1 (<:as-html (strcat (pretty-label-prefix (make-instance index-class))
                                               " Index")))
                      (<:div :class "contents"
                             (<:dl
                              (dolist (part (sort-parts-with-descriptors (hash-table-values (gethash index-class (indexes book)))))
                                (<:dt (<:a :href (strcat "../" (make-anchor-link (descriptor part)))
                                           (<:as-html (name (descriptor part)))))
                                (when (docstring (descriptor part))
                                  (<:dd (<:as-html (docstring-first-sentence (descriptor part))))))))))
  t)