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

Source

(defmethod generate-part-reference ((part code-part) (generator latex-generator))

  (when (docstring (descriptor part))
    (write-latex-escaped (docstring (descriptor part)) *latex-stream*)
    (terpri *latex-stream*)
    (write-line "\\vskip 0.1in" *latex-stream*))

  (write-code-descriptor (descriptor part) part generator)

  (write-source (text part) generator)
  (terpri *latex-stream*)
  (format *latex-stream* "\\hyperref[~a]{[Source Context]}"
          (descriptor-link-id (descriptor part)))
  (terpri *latex-stream*)
  (terpri *latex-stream*))