Method: (GENERATE-PART-REFERENCE AROUND CODE-PART T)

Source

(defmethod generate-part-reference :around ((part code-part) generator)
  (when (descriptor part)
    (latex-command "section*" (strcat (pretty-label-prefix (descriptor part))
                                     ": "
                                     (safe-latex-id (princ-to-string (name (descriptor part))))))
    (latex-command "label" (descriptor-ref-id (descriptor part)))
    (latex-command "index" (strcat (pretty-label-prefix (descriptor part)) " "
                                   (safe-latex-id (princ-to-string (name (descriptor part))))))
    (call-next-method)))