October 2008 - cl-who-devel@common-lisp.net

[cl-who-devel] Case sensitivity idea
by Ken Harris 03 Nov '08

03 Nov '08

Hi again, I'm using cl-who for generating a lot of HTML and lowercase XML, and a tiny bit of mixed-case XML. (I don't know who thought up mixed-case XML schemas, but I swear it's not my fault. For that matter, neither is the XML. :-) To generate mixed-case XML, I should turn off *downcase-tokens-p*, and then wrap every existing :foo like :|foo| in all my cl-who calls, just to be able to generate a couple mixedCase XML attributes. This idea doesn't thrill me. (Or I could change the readtable-case, but that'll mean changing all my code to upper-case, and I'm not excited about that, either.) What if there was another mode (call it, say, *downcase-tokens-unless-mixedcase-p*) for case handling, whose rule was: - "downcase tokens, *unless* the token's string representation is mixed-case (in which case leave it alone)" That way, I could say (:a :href "/foo") like normal, but also (:|feGaussianBlur| :|stdDeviation| 2), and everything would work like it looks and like I want. I suppose it would be impossible to generate all-uppercase tags in this mode, but (a) I don't think I've ever seen an XML schema that required any all-caps tags, and (b) in *downcase-tokens-p* mode, there are tags it's impossible to generate, so I'm thinking "any tag in any mode" isn't a strict requirement. Thoughts? I could whip up a patch, if somebody else thought this was a decent approach... - Ken

3 3

[cl-who-devel] Specifying prologues (and a digression into special variables)
by Ken Harris 27 Oct '08

27 Oct '08

Hi, I'm using cl-who for a project where I want to generate 2 kinds of XML, and each has their own prologue. I started by passing these as literals to the keyword parameter :prologue, but I'd like to pull them out into constants, and eventually one will need to be computed at runtime. At first, I tried just passing an expression to :prologue, but that obviously failed (because defmacro evaluates it at macroexpand-time, not run-time, I think): (defconstant +my-prologue+ "header") (with-html-output-to-string (s nil :prologue +my-prologue+) (:a)) => " <a></a>" Then I went and read Erann Gat's "Idiot's Guide to Special Variables". It doesn't mention macros, but I figured I could get close with something like this, but no, it ignores my *prologue* setting: (let ((*prologue* "header")) (with-html-output-to-string (s nil :prologue t) (:a))) => "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\"> <a></a>" So obviously I'm missing the boat on special variables and defmacro. I know I could just setq *prologue* before calling cl-who (or even cruder approaches), but that seems awkward, and I'd like to learn what's going on with special variables and macros. As an aside, special variables and macros aren't behaving the same in my 2 Lisp implementations (all of the above is with SBCL), so it seems that at least somebody out there thinks the same way as me: :-) (defvar *special* 5) (defun show-special () *special*) (defmacro with-special () *special*) (show-special) (let ((*special* 10)) (show-special)) (with-special) (let ((*special* 10)) (with-special)) ;; CLISP 2.43: 5, 10, 5, 10 ;; SBCL 1.0.13: 5, 10, 5, 5 If anybody could shed some light on this, and show how to most naturally use an expression as a :prologue with cl-who, it'd be much appreciated. Thanks! - Ken

2 2

[cl-who-devel] Vertical whitespace
by Robin Lee Powell 12 Oct '08

12 Oct '08

Is it possible to control production of vertical whitespace in cl-who output? Having everything on one line gets really old after a while. -Robin -- They say: "The first AIs will be built by the military as weapons." And I'm thinking: "Does it even occur to you to try for something other than the default outcome?" -- http://shorl.com/tydruhedufogre http://www.digitalkingdom.org/~rlpowell/ *** http://www.lojban.org/

2 2