Method: (GENERATE-PART CODE-PART LATEX-GENERATOR)

Documentation

Generate link to the code

Source

(defmethod generate-part ((part code-part) (generator latex-generator))
  "Generate link to the code"
  (if (descriptor part)
      (progn
        (latex-command "label" (descriptor-link-id (descriptor part)))
        (format *latex-stream*
                "\\hyperref[~a]{~a ~a}"
                (descriptor-ref-id (descriptor part))
                (pretty-label-prefix (descriptor part))
                (safe-latex-id (princ-to-string (name (descriptor part)))))
        (terpri *latex-stream*)
        (when (docstring (descriptor part))
          (write-line " - " *latex-stream*)
          (write-line (docstring-first-sentence (descriptor part)) *latex-stream*)))
      (write-source (text part) generator)))