gmane.lisp.who.general

Bug report: ESC applied to attribute values produces spurious output

Ron Garret — 2013-04-30T18:39:43

? (with-html-output-to-string (s) ((:a :href (esc "XXX")) (esc "YYY")))
"<aXXX href='XXX'>YYY</a>"

My actual use case is:

(:a :onclick (esc "f('str')"))

This is CL-WHO 1.1.1 acquired through quicklisp.

rg

undefined variable: CL-WHO::ATTR problem again

Jeff Cunningham — 2013-03-01T17:18:14

I just upgraded everything through quicklisp and rebuilt a project I'm 
working on and an error came back that I've run into before. There is a 
missing comma in cl-who.lisp that I manually fixed the last two times 
I've upgraded quicklisp dists.

Trying to google on the error doesn't get you anywhere, although someone 
posted to the mail list about it once before. I don't think they 
captured the error message in their post. So here it is for anyone 
running into this problem.

; --> CL-WHO:FMT
; ==>
;   (FORMAT *STANDARD-OUTPUT* " ~A" CL-WHO::ATTR)
;
; caught WARNING:
;   undefined variable: CL-WHO::ATTR
;
; compilation unit finished
;   Undefined variable:
;     CL-WHO::ATTR
;   caught 1 WARNING condition


Here's the fix: (add the comma)

  $ diff who.lisp who.lisp~
120c120
<                                      `(fmt " ~A" ,attr))
---
 >                                      `(fmt " ~A" attr))


I'm going see if I can submit a bug fix on this.

Cheers,
--Jeff

Missing comma in who.lisp

2012-10-10T10:20:55

--- who.lisp~2012-10-05 17:16:12.007971946 +0200
+++ who.lisp2012-10-09 21:08:39.026986297 +0200
< at >< at > -117,7 +117,7 < at >< at >
                                 ((eq ,=var= t)
                                  ,(case *html-mode*
                                     (:sgml
-                                     `(fmt " ~A" attr))
+                                     `(fmt " ~A" ,attr))
                                     ;; otherwise default to :xml mode
                                     (t
                                      `(fmt " ~A=~C~A~C"

The problem with "esc"

Kenneth Yan — 2012-07-31T01:49:59

Dear all,

Please pay attention to the issue below.

(with-html-output-to-string (*standard-output* nil :prologue nil)
  (:input :type "text" :name (escape-string "你好") :readonly "readonly"
          :value (esc "你好")))

"<input type=\"text\" name=\"&#20320;&#22909;\"
readonly=\"readonly\"&#20320;&#22909; value=\"&#20320;&#22909;\">"


Best,
Kenneth

using cl-who to expand dynamically created s-html?

Jim Prewett — 2012-05-24T17:41:33

Hi All,

I've been (happily) using cl-who for quite a while, but now I'm stuck!  
I'd like to use cl-who to expand s-expressions (which are generated on 
the fly) into HTML.

So, instead of doing what I normally do like this:

(cl-who:with-html-output (*standard-output*)
  (cl-who:htm 
    (:pre "this is some preformatted text")))

I'd like to do something like this (where the s-exprs are generated by 
calling a function):
(cl-who:with-html-output (*standard-output*)
  (cl-who:htm 
    (funcall #'(lambda () '(:pre "this is some preformatted text")))))

Of course, this doesn't work as with-html-output is a macro.

I feel like I'm missing something horribly obvious! :)

Thanks for any help you can provide,
Jim

James E. Prewett                    Jim< at >Prewett.org download< at >hpc.unm.edu 
Systems Team Leader           LoGS: http://www.hpc.unm.edu/~download/LoGS/ 
Designated Security Officer         OpenPGP key: pub 1024D/31816D93    
HPC Systems Engineer III   UNM HPC  505.277.8210

declarations placement issue

Ala'a Mohammad — 2012-04-19T20:42:37

Hi,

Please, correct me If I'm wrong.

in the expansion of the following (using cl-who from quicklisp)

(with-html-output (var)
  (declare (special var)))
;=>
(LET ((VAR VAR))
   (PROGN
      (DECLARE (SPECIAL VAR))))

I think that the declaration is placed in the wrong place. CLHS does
not specify any declarations for PROGN entry. and in this declaration
provides information about the bindings of LET, thus I thought the
correct expansion should be:

(with-html-output (var)
  (declare (special var)))
;=>
(LET ((VAR VAR))
   (DECLARE (SPECIAL VAR))
   (PROGN))

the fix should should only affect with-html-output (since
with-html-output-to-string passes the declarations to the former
macro)

Regards,

Ala'a

onclick

Haris Bogdanovich — 2012-04-09T22:38:01

Hi.

Why  doesn't this piece of code work:

(defpackage test (:use :cl :hunchentoot :cl-who :parenscript))
(in-package test)

(defun index ()
  (with-html-output-to-string (*standard-output* nil)
    (:html
     (:head)
     (:body
      (:p "click me" :onclick (ps (alert "hello")))))))

(push (create-prefix-dispatcher "/index" 'index) *dispatch-table*)

(start (make-instance 'easy-acceptor))

I loaded Edi's init file for Lispworks and I can't even autocomplete :onclick ?
When I click on "click me" nothing happens ?

Thanks

dolist

Haris Bogdanovich — 2012-02-28T14:22:01

Hi.

This is my code:

(defun index ()
  (with-html-output-to-string (*standard-output* nil :prologue t)
    (:html
     (:head)
     (:body
      (:select
       (dolist (var '("citroen" "volvo" "audi"))
         (format nil ("(:option %s" var))))))))

I get error:
 Funny car of form: "(:option %s
What's wrong ?

Thanks

loop and with-html-output

Tyler Smith — 2011-12-21T22:16:28

Hi,

I'm new to lisp in general, trying to get cl-sql and cl-who working
together. I'm stumped in my
efforts to generate a definition list from an sql query. The following
works as expected:

(multiple-value-bind (records fields)
    (select [genus] [species] :from "specimens" :where [= [collector] "Test"])
  (loop for rec in records do
       (loop for label in fields
          for val in rec do
            (fresh-line)
            (print label)
            (print val))))

=>

"GENUS"
"Scleria"

"SPECIES"
"triglomerata"

However, swapping print for with-output-to-html fails:

* (multiple-value-bind (records fields)
    (select [genus] [species] :from "specimens" :where [= [collector] "Test"])
  (loop for rec in records do
       (loop for label in fields
          for val in rec do
            (fresh-line)
            (with-html-output (*standard-output* nil :indent nil)
              (:dt label)
              (:dd val)))))


<dt></dt><dd></dd>
<dt></dt><dd></dd>

What have I missed? Any other suggestions f

Question about splitting tags in a dolist...

Jim Barrows — 2011-11-17T15:47:32

I'm pulling records from a database, and I don't know how many I'll have.
 I need to display them in a 3 by X grid built in CSS.  So it needs to look
something like:
(:div :class "row"
  (:div :class "span-one-third" "1/3")
  (:div :class "span-one-third" "1/3")
  (:div :class "span-one-third" "1/3"))

Since I don't know how many rows are returning, I can't really hard code it
like the above example.

I'm new to lisp, so I may just be thinking about this in the wrong way.  In
Java, opening a tag like this and closing it is a very common pattern.
 Maybe I'm just thinking too much in Java...

My open source libraries (aka "ediware")

Edi Weitz — 2011-08-31T15:11:30

[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
implemen

macroexpansion

Glen — 2011-08-01T07:26:28

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?

Interpolate lisp code inside the tag body

Matus Kmit — 2011-07-28T07:12:46

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

Problems with indent

Marco Antoniotti — 2011-04-17T13:05:32

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

Evaluating forms inside of with-html-output-to-string

Andrew Pennebaker — 2011-03-02T07:13:12

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

"<p>
   abcdef
</p>"

but it actually returns

"<p>
</p>"

Specs:

   - Lispbox CCL 1.6
   - Mac OS X 10.6.6 and Ubuntu 10.10 Maverick

Cheers,
Andrew Pennebaker

Expected behavior?

Andrei Stebakov — 2010-10-25T17:01:15

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:
"
<p>
  text
</p>"

The second:
"
<p>text
</p>"

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

Adding support for HTML5 doctype

Chaitanya Gupta — 2010-09-14T15:45:07

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

Case sensitive tags with cl-who

rrl — 2010-08-16T22:19:57

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,

empty web page

2010-05-31T11:16:04

Macros for outlining

J. K. Cunningham — 2010-03-28T20:10:53

macroexpansion support (on Github)

Vsevolod Dyomkin — 2010-02-21T11:54:20