Try to reenable PDF backend, adding tt support. Got a white-on-white PDF :-(
authorFrancois-Rene Rideau <fare@tunes.org>
Sun, 15 Jul 2012 16:22:13 +0000 (12:22 -0400)
committerFrancois-Rene Rideau <fare@tunes.org>
Sun, 15 Jul 2012 16:22:13 +0000 (12:22 -0400)
exscribe-typeset.lisp
exscribe.asd

index 9518b57..1f0cd65 100644 (file)
@@ -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)))
 
index ae5537e..3a2cc96 100644 (file)
@@ -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"