Method: (WRITE-CODE-DESCRIPTOR T T HTML-GENERATOR)

Source

(defmethod write-code-descriptor ((descriptor t) part (generator html-generator))
  (let ((text (text part)))
    (setf text (yaclml::escape-as-html text))
    (setf text (regex-replace-all "(\\(|\\))"
                                  text
                                  "<span class=\"paren\">\\1</span>"))
    (setf text (regex-replace "^.*"
                              text
                              (strcat "<span class=\"first-line\">\\&</span><span class\"body\">")))
    (<:pre (<:code :class "code" (<:as-is text) (<:as-is "</span>")))))