cl-who-devel

cl-who-devel@common-lisp.net

102 discussions

[cl-who-devel] CL-WHO transformation rule not working?
by Nico de Jager 15 Nov '06

15 Nov '06

Hi It seems that the last transformation rule (and example) for attribute values described in CL-WHO's documentation is not working. I am using: LispWorks 5.0 for Linux (Debian Sarge) CL-WHO-0.6.2 HUNCHENTOOT-0.4.9 E.g. (defun logon-page-html () ;logon-action) (with-html-output (*standard-output*) (:html (:head (:title "test")) (:body "Some text" (:table :border "3" ; Going to change this! (:tr (:td "1-1") (:td "1-2"))))))) gives the following in 2 browsers: Some text 1-1 1-2 html: <html><head><title>test</title></head><body>Some text<table border='3'><tr><td>1-1</td><td>1-2</td></tr></table></body></html> While: (defun logon-page-html () ;logon-action) (with-html-output (*standard-output*) (:html (:head (:title "test")) (:body "Some text" (:table :border (+ 1 2) ;Substituted (+ 1 2) for "3". (:tr (:td "1-1") (:td "1-2"))))))) only gives the following in the same browsers: >1-11-2 html: ><tr><td>1-1</td><td>1-2</td></tr></table></body></html> The output of both cl-who:show-html-expansion and cl-who:with-html-output appear correct in the listener, though: CL-USER 11 > (cl-who:show-html-expansion (*standard-output*) (:html (:head (:title "test")) (:body "Some text" (:table :border (+ 1 2) (:tr (:td "1-1") (:td "1-2")))))) (LET ((*STANDARD-OUTPUT* *STANDARD-OUTPUT*)) (PROGN NIL (WRITE-STRING "<html><head><title>test</title></head><body>Some text<table" *STANDARD-OUTPUT*) (LET ((#:G4088 (+ 1 2))) (COND ((NULL #:G4088)) ((AND (EQ #:G4088 T) (EQ CL-WHO::*HTML-MODE* :XML)) (PROGN (WRITE-STRING " border='border'" *STANDARD-OUTPUT*))) ((AND (EQ #:G4088 T) (EQ CL-WHO::*HTML-MODE* :SGML)) (PROGN (WRITE-STRING " border" *STANDARD-OUTPUT*))) (T (PROGN (WRITE-STRING " border='" *STANDARD-OUTPUT*) (PRINC #:G4088 *STANDARD-OUTPUT*) (WRITE-STRING "'" *STANDARD-OUTPUT*))))) (WRITE-STRING "><tr><td>1-1</td><td>1-2</td></tr></table></body></html>" *STANDARD-OUTPUT*))) It seems that only the output of the last "write-string" is sent to the browser for the second example. Thanks. Nico

2 2

[cl-who-devel] New version 0.6.2
by Edi Weitz 10 Oct '06

10 Oct '06

ChangeLog: Version 0.6.2 2006-10-10 Reintroduced ESCAPE-STRING-ISO-8859-1 for backwards compatibility Download: http://weitz.de/files/cl-who.tar.gz Cheers, Edi.

1 0

[cl-who-devel] CL-WHO:STR behavior and package nicknames.
by Erik Enge 27 Jul '06

27 Jul '06

(cl-who 0.6.0, linux, sbcl 0.9.13) Hi! In the documentation I find the following example: (:table :border (+ 1 2)) => (write-string "<table border='" s) (princ (+ 1 2) s) (write-string "' />" s) However, in my implementation I see the following: CL-USER> (cl-who:with-html-output-to-string (*standard-output*) (:table :border (+ 1 2))) "<table border='(+ 1 2)' />" This makes sense because CONSTANTP returns T for that form in SBCL and NIL in CMUCL. In which case I think I'm supposed to use the STR operator: CL-USER> (cl-who:with-html-output-to-string (*standard-output*) (:table :border (cl-who:str (+ 1 2)))) "<table3 border='3' />" ESC does pretty much the same thing. So does FMT I guess except it doesn't print the border attribute since the format call returns nil, which I think makes sense. Is this the expected behavior? Is there another way of having (:table :border (+ 1 2)) do what I want (output <table border='3' />)? Separately, would you consider adding the nickname "who" (or whatever you like, just shorter than "cl-who") to the package? Thanks, Erik.

2 1

[cl-who-devel] Pre-filled forms
by Adam Thorsen 04 May '06

04 May '06

I'm using TBNL in a small web-app. A common need when developing webapps is to display a form with fields pre-populated from the database (i.e. email address, street address, etc.). I'm wondering if it's possible to do this with cl-who in some generic way? I thought perhaps I could customize cl-who using the convert-tag-to-string-list method. The function below overrides default handling of (:input) tags to look for a :tuple attribute with a value set to a hash containing the values from the database needed to pre-fill the form the input element is part of. This approach doesn't work, however, because convert-tag-to-string serializes the string at compile time, and the data needs to be retrieved from the database at run time. Any ideas? (defmethod convert-tag-to-string-list ((tag (eql :input)) attr-list body body-fn) ;;(declare (ignore attr-list)) (let ((name (cdr (assoc :name attr-list))) (type (cdr (assoc :type attr-list))) (tuple (eval (cdr (assoc :tuple attr-list))))) (nconc (cons (format nil "<input name='~a' type='~a' value='~a'>" name type (if tuple (gethash name tuple) "")) (funcall body-fn body)) (list "</input>")))) Thanks, -Adam Thorsen

2 1

[cl-who-devel] setting *attribute-quote-char*
by Austin Haas 20 Mar '06

20 Mar '06

Hi, Could someone please tell me the proper way to set *attribute-quote-char*? I'm a noob, but I've spent the past 4 hours trying every way I could think of, to no avail. If I recompile a handler function, then it will take, but I can't get it to be set when I load the system via asdf. It's likely some ignorance on my part regarding packages or macros, but I would really appreciate it if someone could show me an example of how they use it. Thanks. -austin

2 3

[cl-who-devel] Re: CL-WHO question
by Edi Weitz 01 Feb '06

01 Feb '06

Hi! [Please use the mailing list for questions about CL-WHO.] On Tue, 31 Jan 2006 16:39:30 -0000, "Rob Blackwell" <rob.blackwell(a)aws.net> wrote: > I've been experimenting with CL-WHO, but I'm struggling to understand the > following behaviour and I wondered whether you would be kind enough to offer > advice? > > I want to take a string, say "rob", and turn it into a link like "<a > href='rob.htm'>rob</a>". > > I've tried various things like > > (let ((person "rob")) > (with-html-output-to-string (*standard-output*) > (htm (:a :href (fmt "~a.htm" person) (str person))))) > > But that returns > > "<arob.htm>rob</a>" (let ((person "rob")) (with-html-output-to-string (*standard-output*) (htm (:a :href (format nil "~a.htm" person) (str person))))) (let* ((person "rob") (link (format nil "~a.htm" person))) (with-html-output-to-string (*standard-output*) (htm (:a :href link (str person))))) Attribute values aren't treated like the body of a tag. See <http://weitz.de/cl-who/#syntax> for details. Cheers, Edi.

1 0

[cl-who-devel] New version 0.6.0
by Edi Weitz 02 Aug '05

02 Aug '05

ChangeLog: Version 0.6.0 2005-08-02 Introduced *ATTRIBUTE-QUOTE-CHAR* and HTML-MODE and adapted code accordingly (patch by Stefan Scholl) Download: <http://weitz.de/files/cl-who.tar.gz> Cheers, Edi.

1 0

[cl-who-devel] New version 0.5.0
by Edi Weitz 02 Mar '05

02 Mar '05

Changelog: Version 0.5.0 2005-03-01 Enable customization via CONVERT-TAG-TO-STRING-LIST Download: <http://weitz.de/files/cl-who.tar.gz> Cheers, Edi.

1 0

[cl-who-devel] New version 0.4.4
by Edi Weitz 22 Jan '05

22 Jan '05

Changelog: Version 0.4.4 2005-01-22 Explicitely provide elementy type for +SPACES* to prevent problems with LW (thanks to Bob Hutchinson) Download: <http://weitz.de/files/cl-who.tar.gz> Cheers, Edi.

1 0

[cl-who-devel] New version 0.4.3
by Edi Weitz 13 Sep '04

13 Sep '04

Hi! A new release is available from <http://weitz.de/files/cl-who.tgz>. Here's the relevant part from the changelog: Version 0.4.3 2004-09-13 ESCAPE-STRING-ISO-8859 wasn't exported Have fun, Edi.

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

cl-who-devel