Commit e575ce1d authored by Gail Zacharias's avatar Gail Zacharias

Handle :underline tag

parent da7f04ce
......@@ -186,6 +186,9 @@
(:texttt (htm (:tt (dolist (element (list-elements (the elements)))
(write-the-object element cl-who-base)))))
(:underline (htm (:span :style "text-decoration: underline;"
(dolist (element (list-elements (the elements)))
(write-the-object element cl-who-base)))))
(:quote (htm (:blockquote (dolist (element (list-elements (the elements)))
(write-the-object element cl-who-base)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment