Method: (WRITE-CODE-DESCRIPTOR DEFCLASS-DESCRIPTOR T LATEX-GENERATOR)

Source

(defmethod write-code-descriptor ((descriptor defclass-descriptor) part (generator latex-generator))
  (flet ((write-class-link (class)
           (format *latex-stream*
                   "\\hyperref[class:~a]{~a}"
                   (class-name class)
                   (class-name class))))
    (when (slots descriptor)
      (latex-command "subsection*" "Slots")
      (latex-command "begin" "itemize")
      (dolist (slot (slots descriptor))
        (write-string "\\item " *latex-stream*)
        (princ (name slot) *latex-stream*)
        (when (docstring slot)
          (write-string " - " *latex-stream*)
          (write-string (docstring slot) *latex-stream*))
        (terpri *latex-stream*))
      (latex-command "end" "itemize"))

    (latex-command "subsection*" "Hierarchy")
    (latex-command "subsubsection*" "Precedence list")

    (latex-command "begin" "itemize")
    (dolist (class (mopp:class-direct-superclasses (find-class (name descriptor))))
      (write-string "\\item " *latex-stream*)
      (write-class-link class)
      (terpri *latex-stream*))
    (latex-command "end" "itemize")

    (awhen (mopp:class-direct-subclasses (find-class (name descriptor)))
      (latex-command "subsection*" "Sub Classes")
      (latex-command "begin" "itemize")
      (dolist (sub it)
        (write-string "\\item " *latex-stream*)
        (write-class-link sub)
        (terpri *latex-stream*))
      (latex-command "end" "itemize"))))