[cl-who-devel] Looks like a bug to me?
(require 'cl-who) (use-package 'cl-who) (let ((userid 46)) (with-html-output (*standard-output*) (:a :id 7) (str (format nil "~%")) (:a :id "7") (str (format nil "~%")) (:a :id (str userid)))) I'm sure there's some better way to get newlines in the output. Anyways, output is: <a id='7'></a> <a id='7'></a> <a46 id='46'></a> That last one is really staggeringly wrong. Is it me or the code? -Robin -- Lojban Reason #17: http://en.wikipedia.org/wiki/Buffalo_buffalo Proud Supporter of the Singularity Institute - http://singinst.org/ http://www.digitalkingdom.org/~rlpowell/ *** http://www.lojban.org/
On Mon, Sep 29, 2008 at 5:03 AM, Robin Lee Powell <rlpowell@digitalkingdom.org> wrote:
(require 'cl-who) (use-package 'cl-who) (let ((userid 46)) (with-html-output (*standard-output*) (:a :id 7) (str (format nil "~%")) (:a :id "7") (str (format nil "~%")) (:a :id (str userid))))
I'm sure there's some better way to get newlines in the output. Anyways, output is:
<a id='7'></a> <a id='7'></a> <a46 id='46'></a>
That last one is really staggeringly wrong. Is it me or the code?
You don't need (str ...) for atrributes: (let ((userid 46)) (with-html-output (*standard-output*) (:a :id 7) (str (string #\Newline)) (:a :id "7") (str (string #\Newline)) (:a :id userid))) -- With Best Regards, Stas.
On Mon, Sep 29, 2008 at 05:16:15AM +0400, Stas Boukarev wrote:
On Mon, Sep 29, 2008 at 5:03 AM, Robin Lee Powell <rlpowell@digitalkingdom.org> wrote:
(require 'cl-who) (use-package 'cl-who) (let ((userid 46)) (with-html-output (*standard-output*) (:a :id 7) (str (format nil "~%")) (:a :id "7") (str (format nil "~%")) (:a :id (str userid))))
I'm sure there's some better way to get newlines in the output. Anyways, output is:
<a id='7'></a> <a id='7'></a> <a46 id='46'></a>
That last one is really staggeringly wrong. Is it me or the code?
You don't need (str ...) for atrributes:
(let ((userid 46)) (with-html-output (*standard-output*) (:a :id 7) (str (string #\Newline)) (:a :id "7") (str (string #\Newline)) (:a :id userid)))
What if I need to use format to generate the value, which is where this use case originally came from? (let ((userid 46)) (with-html-output (*standard-output*) (:a :id (fmt "user-~A" userid)))) <auser-46></a> -Robin -- Lojban Reason #17: http://en.wikipedia.org/wiki/Buffalo_buffalo Proud Supporter of the Singularity Institute - http://singinst.org/ http://www.digitalkingdom.org/~rlpowell/ *** http://www.lojban.org/
What if I need to use format to generate the value, which is where this use case originally came from?
(let ((userid 46)) (with-html-output (*standard-output*) (:a :id (fmt "user-~A" userid))))
(:a :id (format nil "user-~A" userid)) Attributes can contain any Lisp expression. If you want to make sure the user ID is escaped: (:a :id (escape-string-minimal-plus-quotes (format nil "user-~A" userid)))
participants (3)
-
Richard Newman -
Robin Lee Powell -
Stas Boukarev