- cl-who-devel@common-lisp.net - mailman3.common-lisp.net

[cl-who-devel] problem with w-h-o-t-s using str
by Alok Thapa 10 Sep '11

10 Sep '11

Hi all, When I evaluate this on the repl, it works as expected: (with-html-output-to-string (*empty-stream*) (:li :id "hello" :class "active" (:a :href "#" "hello"))) "<li id=\"hello\" class=\"active\"><a href=\"#\">hello</a></li>" but when I convert it into a function, then it gives me this: (defun tab (page active) (with-html-output-to-string (*empty-stream*) (:li :id (str page) :class (when (string-equal page active) (str "active")) (:a :href "#" (str page))))) TAB (tab "home" "home") "<lihome id=\"home\"active class=\"active\"><a href=\"#\">home</a></li>" Is there something I am doing wrong? I've already tried substituting str with fmt and esc with no luck. Thanks. Alok

1 0

[cl-who-devel] My open source libraries (aka "ediware")
by Edi Weitz 31 Aug '11

31 Aug '11

[My apologies if you receive multiple copies of this email.] Hi everybody! As some of you will know, I'll start on a new job tomorrow. This new job won't involve much hacking, if at all, and thus it doesn't look like I'll have a lot of time to maintain my open source libraries in the near future. I have no plans to suddenly disappear from the CL world, but don't expect new releases of any of my libs any time soon. (At least none published by me or on my server.) Luckily, Hans Hübner - who already did most of the maintenance and development work for Hunchentoot in the last two years or so - offered to coordinate further development via github. See his full announcement at <http://netzhansa.blogspot.com/2011/08/ediware-moving-to-github.html>. I'll continue to read the mailing lists for my libs and I'm still interested in fixing bugs you might find in the release tarballs available on my web server. However, I will likely not bother to discuss or work on new features or compatibility code for implementations other than LispWorks (which happens to be the one I'm using). Lastly, I hope to see a lot of you in Amsterdam <http://weitz.de/eclm2011/> in October. The number of registrations so far has been pretty disappointing, but you still have three weeks left to change your mind... :) Take care, Edi.

1 0

[cl-who-devel] Interpolate lisp code inside the tag body
by Matus Kmit 04 Aug '11

04 Aug '11

Hello i just starting working with cl-who and i have one very basic question: How does one properly embed and evaluate lisp code inside the tag body? Let's say i have a function "fn" which returns a string and i want to embed its value in a tag, like: (: p (fn)) -> that does not work. Thanks for help Matus

2 7

[cl-who-devel] macroexpansion
by Glen 01 Aug '11

01 Aug '11

Are there any plans to include the suggestions at http://lisp-univ-etc.blogspot.com/2009/03/cl-who-macros.html in the main release?

2 3

[cl-who-devel] Problems with indent
by Marco Antoniotti 29 Apr '11

29 Apr '11

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

2 6

[cl-who-devel] Evaluating forms inside of with-html-output-to-string
by Andrew Pennebaker 03 Mar '11

03 Mar '11

According to the documentation, with-html-output-to-string can evaluate Lisp forms. In my experience, this is not the case. (cl-who:with-html-output-to-string (*standard-output* nil :prologue nil :indent t) (:p (concatenate 'string "abc" "def"))) Should return " abcdef " but it actually returns " " Specs: - Lispbox CCL 1.6 - Mac OS X 10.6.6 and Ubuntu 10.10 Maverick Cheers, Andrew Pennebaker

3 3

[cl-who-devel] Expected behavior?
by Andrei Stebakov 26 Oct '10

26 Oct '10

I wonder if following two statements should produce the same result: (with-html-output-to-string (*standard-output* nil :indent t) (:p "text")) and (with-html-output-to-string (*standard-output* nil :indent t) (:p (str (concatenate 'string "te" "xt")))) So far the first statement gives: " text " The second: " text " What happens to the indentation in the second case? I am using cl-who 0.11.1 with sblc 1.0.37 on Linux Thank you, Andrei

2 1

[cl-who-devel] Adding support for HTML5 doctype
by Chaitanya Gupta 13 Oct '10

13 Oct '10

Hi, I needed to emit some HTML5 from cl-who the other day. Attached is a patch which adds support for an :HTML5 mode to cl-who. Essentially, it just sends the correct doctype. Hope this patch is fine. Chaitanya -- http://chaitanyagupta.com/blog/

2 8

[cl-who-devel] Case sensitive tags with cl-who
by rrl 05 Sep '10

05 Sep '10

Hi, I know that by setting *DOWNCASE-TOKENS-P* to NIL, keyword symbols representing a tag or attribute name will not be automatically converted to lowercase. The problem is most of the time, the default behavior is just fine. But I want to generate case-sensitive XML in just one function. Which is annoying since I need to rewrite all the other tags in the form :|html| if I set *DOWNCASE-TOKENS-P* to NIL. The attached patch just adds an additional keyword argument :downcase-tokens-p to WITH-HTML-OUPUT, WITH-HTML-OUTPUT-TO-STRING and SHOW-HTML-EXPANSION whose default value is the same as *DOWNCASE-TOKENS-P*, but whose scope is local to the generated code. Best regards,

2 2

[cl-who-devel] empty web page
by a 04 Jun '10

04 Jun '10

Hi. When I try to open a web page generated by cl-who I get an empty web page: ------------------------------------------------------------ (start (make-instance 'acceptor :port 8000)) (push (create-prefix-dispatcher "/index.html" 'index) *dispatch-table*) (defun index () (with-html-output (*standard-output* nil :indent t) (:html (:head (:title "Test page")) (:body (dotimes (x 10) (:htm (:p "Text")))))) ----------------------------------------------------------- and page on http://localhost:8000/index.html is empty. The source of the page is just: ---------------- </body> </html> -------------- Where is the problem ? If I remove dynamic code "(dotimes (x 10) ..." then it renders the page correctly. Thanks

3 2