[cl-who-devel] Problems with indent

[Marco Antoniotti]

On Apr 28, 2011, at 18:09 , Edi Weitz wrote:

> Sorry for the late reply, but CL-WHO is essentially unmaintained these
> days.  I noticed that you're using an unexported variable, so I think
> you got what you deserved... :)
> 
> Patches (see <http://weitz.de/patches.html>) are welcome, but please
> take a look at the BKNR repository first where you'll find a
> preliminary 1.0.0 version of CL-WHO which might or might not do what
> you want.

Looking at the code I saw a couple of changes that should help.  But how do you access the SVN repository?  It is not WebDAV'ed.

Cheers
--
Marco







> 
> Cheers,
> Edi.
> 
> 
> On Sun, Apr 17, 2011 at 3:05 PM, Marco Antoniotti
> <antoniotti.marco at disco.unimib.it> wrote:
>> 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
>> 
>> _______________________________________________
>> cl-who-devel site list
>> cl-who-devel at common-lisp.net
>> http://common-lisp.net/mailman/listinfo/cl-who-devel
>> 
> 
> _______________________________________________
> cl-who-devel site list
> cl-who-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/cl-who-devel

--
Marco Antoniotti, Associate Professor				tel.	+39 - 02 64 48 79 01
DISCo, Università Milano Bicocca U14 2043		http://bimib.disco.unimib.it
Viale Sarca 336
I-20126 Milan (MI) ITALY

Please note that I am not checking my Spam-box anymore.
Please do not forward this email without asking me first.