Problems with indent

[Marco Antoniotti]

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

[Edi Weitz]

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.

Cheers,
Edi.


On Sun, Apr 17, 2011 at 3:05 PM, Marco Antoniotti

Post by Marco Antoniotti
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
http://common-lisp.net/mailman/listinfo/cl-who-devel

[Marco Antoniotti]

Post by Edi Weitz
Sorry for the late reply,

No problems.

Post by Edi Weitz
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... :)

Yeah. I know :) But I swear I went down to the unexported variable only after trying all other ways :)

Post by Edi Weitz
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.

Ok. Will do.

Thanks

--
Marco

Post by Edi Weitz
Cheers,
Edi.
On Sun, Apr 17, 2011 at 3:05 PM, Marco Antoniotti

Post by Marco Antoniotti
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
http://common-lisp.net/mailman/listinfo/cl-who-devel

_______________________________________________
cl-who-devel site list
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.

[Marco Antoniotti]

Post by Edi Weitz
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

Post by Edi Weitz
Cheers,
Edi.
On Sun, Apr 17, 2011 at 3:05 PM, Marco Antoniotti

Post by Marco Antoniotti
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
http://common-lisp.net/mailman/listinfo/cl-who-devel

_______________________________________________
cl-who-devel site list
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.

[Marco Antoniotti]

Post by Marco Antoniotti

Post by Edi Weitz
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.

I meant: how do you do a checkout?

Marco

Post by Marco Antoniotti
Cheers
--
Marco

Post by Edi Weitz
Cheers,
Edi.
On Sun, Apr 17, 2011 at 3:05 PM, Marco Antoniotti

Post by Marco Antoniotti
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
http://common-lisp.net/mailman/listinfo/cl-who-devel

_______________________________________________
cl-who-devel site list
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.
_______________________________________________
cl-who-devel site list
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.

[Edi Weitz]

On Thu, Apr 28, 2011 at 5:58 PM, Marco Antoniotti

Post by Marco Antoniotti
I meant: how do you do a checkout?

http://bknr.net/html/getting.html

Replace "trunk" with "ediware".

[Marco Antoniotti]

Thanks.

Marco

Post by Edi Weitz
On Thu, Apr 28, 2011 at 5:58 PM, Marco Antoniotti

Post by Marco Antoniotti
I meant: how do you do a checkout?

http://bknr.net/html/getting.html
Replace "trunk" with "ediware".
_______________________________________________
cl-who-devel site list
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.