More space and line break fudge abouts

darcs-hash:20070827142638-3cc5d-b8fa5b4712cb42c18754fab59e694d8ffa6ff4fe.gz
kanru · Aug 27, 2007 · 0c526d5 · 0c526d5
1 parent 205e28a
commit 0c526d5
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/dev/html.lisp b/dev/html.lisp
@@ -22,6 +22,13 @@
 
 (defvar *magic-line-p* 0)
 
+(defparameter *magic-space* #\Space)
+
+(defparameter *magic-line* nil)
+
+#+(or)
+(setf *magic-space* #\| *magic-line* #\~)
+
 (defgeneric render-to-html (stuff encoding-method)
   (:documentation ""))
 
@@ -93,7 +100,7 @@
 (defmethod render-to-html ((line string) encoding-method)
   (when *magic-space-p* 
     (setf *magic-space-p* nil)
-    (princ #\Space *output-stream*))
+    (princ *magic-space* *output-stream*))
   (when (> *magic-line-p* 0)
     (when *magic-line*
       (princ *magic-line* *output-stream*))