(let ((*significant-whitespace* t))
(process (string #\Newline))))
-
-
((tag :author options list)
(destructuring-bind (&key name url) options
(when name
(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)))
;;; -*- 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"