diff --git a/exscribe-typeset.lisp b/exscribe-typeset.lisp index 9518b57cc9b0d7a5bdc4737e336a8294a4758a93..1f0cd65edd5c231fa40f57d8d2ca1a632115028d 100644 --- a/exscribe-typeset.lisp +++ b/exscribe-typeset.lisp @@ -386,8 +386,6 @@ Also, some code stolen from com.gigamonkeys.markup, then mutilated. (let ((*significant-whitespace* t)) (process (string #\Newline)))) - - ((tag :author options list) (destructuring-bind (&key name url) options (when name @@ -412,6 +410,10 @@ Also, some code stolen from com.gigamonkeys.markup, then mutilated. (put-string ,href)) ")"))) + ((tag :tt () body) + (emit `(with-style (:font "Helvetica" :font-size 12) + ,@(process body)))) + ((tag :ref (list :bib entry) *) (emit `(format-string "[~a]" ,entry))) diff --git a/exscribe.asd b/exscribe.asd index ae5537e874548fd1950e238eeb659c455c906050..3a2cc964124f5b39c810f2c6051586fd22e96420 100644 --- a/exscribe.asd +++ b/exscribe.asd @@ -1,9 +1,9 @@ ;;; -*- Lisp -*- ;; Add your favorite implementation if you manage to get cl-pdf working with it. -#|#+(or sbcl clisp clozure lispworks) +#+(or sbcl clisp clozure lispworks) (eval-when (:compile-toplevel :load-toplevel :execute) - (pushnew :exscribe-typeset *features*))|# + (pushnew :exscribe-typeset *features*)) (defsystem :exscribe :description "Programmatically create HTML documents from a high-level syntax"