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

Source

(defmethod generate-permuted-index ((generator html-generator) book)
  (declare (ignore generator))
  (<qbook-page :title "Permuted Index"
               :file-name "index/permutated.html"
               :stylesheet "../style.css"
               :printsheet "../print.css"
               (<:div :class "api-index"
                      (<:h1 (<:as-html "Permuted Index"))
                      (<:div :class "contents"
                             (<:table :class "permuted-index-table"
                                      (dolist* ((prefix suffix part) (permutated-global-index book))
                                        (<:tr
                                         (<:td :align "right"
                                               (<:a :href (strcat "../" (make-anchor-link (descriptor part)))
                                                    (<:as-html prefix)))
                                         (<:td (<:a :href (strcat "../" (make-anchor-link (descriptor part)))
                                                    (<:as-html suffix)))
                                         (<:td (<:a :href (strcat "../" (make-anchor-link (descriptor part)))
                                                    " [" (<:as-html (pretty-label-prefix (descriptor part))) "] ")))))))))