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

[cl-who-devel] onclick
by Haris Bogdanovich 09 Apr '12

09 Apr '12

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

1 0

[cl-who-devel] dolist
by Haris Bogdanovich 28 Feb '12

28 Feb '12

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

3 2

Re: [cl-who-devel] loop and with-html-output
by Tyler Smith 22 Dec '11

22 Dec '11

On Thu, Dec 22, 2011 at 1:38 PM, Ron Garret <ron(a)flownet.com> wrote: > > It's not a "special circumstance", it's what macros do. The S-expressions that are arguments to macros are passed verbatim (that is, without being evaluated) to the macro expander function for that macro. It gets confusing because one of the things that the macro expander can elect to do is to return that symbol as part of the macro expansion in a context where that symbol gets evaluated, so a symbol passed as an argument to a macro *might* become a variable reference, or it might not. > Ah, I see this now. Even within W-H-O, the same variable gets evaluated in some places: if I use a variable for an attribute value it gets evaluated, but but not when I use it as the tag body. This is clearly spelled out in the docs, I see now, but it took me a while to wrap my head around it. Thanks! Tyler

1 0

Re: [cl-who-devel] loop and with-html-output
by Tyler Smith 22 Dec '11

22 Dec '11

On Thu, Dec 22, 2011 at 12:10 PM, Jeffrey Cunningham <jeffrey(a)jkcunningham.com> wrote: > On Thu, 22 Dec 2011 09:03:43 -0800, Tyler Smith > <tyler.smith(a)mail.mcgill.ca> wrote: > >> On Thu, Dec 22, 2011 at 10:53 AM, Sebastian Tennant >> <sebyte(a)smolny.plus.com> wrote: >>> http://weitz.de/cl-who/#syntax >>> >>> Hope this helps. >>> >> >> Not really, that's the documentation that I'm confused about. It >> starts out with the statement that strings will be printed verbatim. >> My variables are strings, but they aren't printed. I understand from >> Jens' response that I can get the function to work by wrapping my >> variables in (str ...), but I don't understand why that's necessary. >> The documentation of str suggests it's not necessary for strings: >> >> A form which is neither a string nor a keyword nor a list beginning >> with a keyword will be left as is except for the following >> substitutions: >> >> My variables are already strings: >> > > Your variables are variables (symbols bound to addresses pointing to > strings), not strings. > > --Jeff Oh, I see. Is this a special circumstance of the macro then, or are symbols bound to strings and actual strings not interchangeable in Lisp? Thanks for your patience, Tyler

3 3

Re: [cl-who-devel] loop and with-html-output
by Tyler Smith 22 Dec '11

22 Dec '11

On Thu, Dec 22, 2011 at 12:30 PM, Edi Weitz <edi(a)agharta.de> wrote: > On Thu, Dec 22, 2011 at 6:19 PM, Tyler Smith <tyler.smith(a)mail.mcgill.ca> wrote: > >> Oh, I see. Is this a special circumstance of the macro then, or are >> symbols bound to strings and actual strings not interchangeable in >> Lisp? > > See my previous reply. > > There's nothing specific about Lisp here. The concept you'll want to > look up is "literal". > Ok, I think I have a general understanding. I have to spend some more time on macros and the distinction between run-time and compile time. Thanks for your help, Tyler

2 1

Re: [cl-who-devel] loop and with-html-output
by Tyler Smith 22 Dec '11

22 Dec '11

On Thu, Dec 22, 2011 at 10:53 AM, Sebastian Tennant <sebyte(a)smolny.plus.com> wrote: > http://weitz.de/cl-who/#syntax > > Hope this helps. > Not really, that's the documentation that I'm confused about. It starts out with the statement that strings will be printed verbatim. My variables are strings, but they aren't printed. I understand from Jens' response that I can get the function to work by wrapping my variables in (str ...), but I don't understand why that's necessary. The documentation of str suggests it's not necessary for strings: A form which is neither a string nor a keyword nor a list beginning with a keyword will be left as is except for the following substitutions: My variables are already strings: * (multiple-value-bind (records fields) (select [genus] [species] :from "specimens" :where [< [specimen_id] 4]) (loop for rec in records do (loop for label in fields for val in rec do (fresh-line) (princ (stringp label)) (princ (stringp val))))) TT TT TT TT TT TT NIL * Can someone explain why my variables aren't being treated as strings within with-html-output? The definition of (str ...) continues: Forms that look like (str form1 form*) will be substituted with (let ((result form1)) (when result (princ result s))). I'm new to Lisp (as must be clear by now!): what is the difference between (princ form1) and (let ((result form1)) (princ result)) Thanks for your help, Tyler

3 2

[cl-who-devel] loop and with-html-output
by Tyler Smith 22 Dec '11

22 Dec '11

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 for doing this in a lispier way would also be welcome. Thanks, Tyler

3 2

[cl-who-devel] Question about splitting tags in a dolist...
by Jim Barrows 18 Nov '11

18 Nov '11

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... -- James A Barrows

2 2

Re: [cl-who-devel] [hunchentoot-devel] edicl & Quicklisp - formal release tarballs or production-ready master branches?
by Edi Weitz 23 Sep '11

23 Sep '11

On Fri, Sep 9, 2011 at 7:49 PM, Sebastian Tennant <sebyte(a)smolny.plus.com> wrote: > Incidentally, the library I'd actually like to see updated soonest is cl-who as > the version in Quicklisp doesn't include support for HTML5. > > Perhaps I could assist with 'releasing' an updated version of cl-who as a > warm-up to assisting you with a hunchentoot release? It's been a while (maybe two years ago), so I'm not totally sure, but I /think/ the unreleased version of CL-WHO contains architectural changes of mine which so far haven't been sufficiently documented and/or tested. You might want to take a look at this before you make a release. Just a recommendation. Of course, you can proceed as you like... :) Cheers, Edi. PS: cl-who-devel on Cc.

2 2

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

10 Sep '11

Please disregard. Problem fixed by not using str at all. (defun tab (page active) (with-html-output-to-string (*empty-stream*) (:li :id page :class (when (string-equal page active) "active") (:a :href "#" page)))) On Sat, Sep 10, 2011 at 11:37 AM, Alok Thapa <i.gizmo(a)gmail.com> wrote: > 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