March 2009 - cl-who-devel@common-lisp.net

None
by None 14 Mar '09

14 Mar '09

1 0

[cl-who-devel] regression for *attribute-quote-char* in cl-who-0.11.1
by Andrei Stebakov 09 Mar '09

09 Mar '09

in cl-who-0.11.0 the *attribute-quote-char* works well: (let ((cl-who:*attribute-quote-char* #\")) (with-html-output-to-string (*standard-output* nil :prologue nil :indent nil) (:p :onmouseover "func()"))) produces: "<p onmouseover=\"func()\"></p>" in cl-who-0.11.1 it produces "<p onmouseover='func()'></p>" Thank you, Andrei

2 1

[cl-who-devel] Sharing indentation info
by Slawek Zak 05 Mar '09

05 Mar '09

Hi, I'd like to propose a small patch to cl-who, which allows for *indent* retention across function calls. Regards, /S

2 1

[cl-who-devel] Double sexp tree traversal
by Slawek Zak 05 Mar '09

05 Mar '09

Hi, Is it necessary to walk the tree two times in cl-who? CL-USER> (cl-who:with-html-output-to-string (*standard-output*) (:one (:two))) 0[7]: (CL-WHO::TREE-TO-TEMPLATE ((:ONE (:TWO)))) 1[7]: (CL-WHO::PROCESS-TAG (:ONE (:TWO)) #<Function TREE-TO-TEMPLATE>) 2[7]: (CL-WHO::TREE-TO-TEMPLATE ((:TWO))) 3[7]: (CL-WHO::PROCESS-TAG (:TWO) #<Function TREE-TO-TEMPLATE>) 3[7]: returned ("<" "two" ">" "</" "two" ">") 2[7]: returned ("<" "two" ">" "</" "two" ">") 1[7]: returned ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">") 0[7]: returned ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">") 0[7]: (CL-WHO::TREE-TO-TEMPLATE ((:ONE (:TWO)))) 1[7]: (CL-WHO::PROCESS-TAG (:ONE (:TWO)) #<Function TREE-TO-TEMPLATE>) 2[7]: (CL-WHO::TREE-TO-TEMPLATE ((:TWO))) 3[7]: (CL-WHO::PROCESS-TAG (:TWO) #<Function TREE-TO-TEMPLATE>) 3[7]: returned ("<" "two" ">" "</" "two" ">") 2[7]: returned ("<" "two" ">" "</" "two" ">") 1[7]: returned ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">") 0[7]: returned ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">") I use version: $Header: /usr/local/cvsrep/cl-who/who.lisp,v 1.36 2008/03/27 23:17:55 edi Exp Thanks, /S

2 2