Hi,
I would like to use CL-WHO for a little project of mine and I am getting bogged down by the :indent behavior. Note that I am not trying to generate any PRE tags (yet). The following snippet illustrates the problem. Given the expansion of with-html-output, cl-who::*indent* does not behave as a special variable and this prevents me from producing "properly" indented HTML.
(use-package "CL-WHO")
(defun who-test (x &optional (out *standard-output*) (indent 2)) (let ((cl-who::*indent* indent)) (declare (special cl-who::*indent*)) (with-html-output (out out :indent 4 #| indent |#) (htm (:body (:frameset :rows "65px" :border 0 :noresize "noresize" (frame-stuff x))) ))))
(defun frame-stuff (x &optional (out *standard-output*)) (with-html-output (out out :indent 3) (htm (:frame :src x))))
If you remove the 4 and uncomment indent you will see what happens.
Any suggestions about how to "fix" this? Note that I do want the inner function pretty much 'as-is'.
Cheers
Marco