April 2008 - parenscript-devel - mailman3.common-lisp.net

[parenscript-devel] js-script deprecated
by Wout Perquin 17 Jan '09

17 Jan '09

Hi, I am quite impressed by ParenScript. I installed it last August, but only recently I started playing with it. Some observations/comments : - js-script was in the Aug-2007 release but now it has been deprecated. By what has it been replaced ? - the js-script didn't work with with-html-output of cl-who, so I wrote my own macro js-script to do the script-tag + CDATA stuff which is still required for scripts in the header - the tutorial (Aug-28, 2007 p3) still refers to js-script -Wout

6 10

[parenscript-devel] Generating HTML in parenscript
by Gary King 26 Nov '08

26 Nov '08

I've just started playing with Parenscript and feel confused about HTML generation. Since Parenscript already includes (the unexported) process-html-forms, it seems to be able to (almost) handle much of the logic for simple HTML generation. Consider that > (parenscript::process-html-forms > `(:html > (:head (:title "ParenScript tutorial: 1st example")) > (:body (:h1 "ParenScript tutorial: 1st example") > (:p "Please click the link below." :br > ((:a :href "#" :onclick ,(ps-inline > (alert "Hello World"))) > "Hello World"))))) produces > (+ "<html/><head><title>ParenScript tutorial: 1st example</title></ > head><body><h1>ParenScript tutorial: 1st example</h1><p>Please click > the link below.<br/><a href=\"#\" onclick=\"javascript:alert(\"Hello > World\")\">Hello World</a></p></body>") It's easy to refactor process-html-forms to arrive at the (slightly incorrect) HTML in a string: > "<html/><head><title>ParenScript tutorial: 1st example</title></ > head><body><h1>ParenScript tutorial: 1st example</h1><p>Please click > the link below.<br/><a href=\"#\" onclick=\"javascript:alert(\"Hello > World\")\">Hello World</a></p></body>" and probably easy to futz with *js-inline-string-delimiter* and the like to get the correct quotes around the body of the onclick handler. So... since Parenscript doesn't do this, I have to ask "Why not"?! It would be nice to use Parenscript for simple HTML generation without having to get (Portable) AServe or some other more full-featured HTML generator. Am I missing something? thanks, -- Gary Warren King, metabang.com Cell: (413) 559 8738 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM

2 4

[parenscript-devel] Convenient syntax for array literals
by Daniel Gackle 19 Apr '08

19 Apr '08

Here's a neat little ps macro for easy creation of array literals, including nested arrays: (ps ([] 1 2 3)) => "[1, 2, 3];" (ps ([] 1 (2 3))) => "[1, [2, 3]];" (ps ([] (1 2) ("a" "b"))) => "[[1, 2], ['a', 'b']];" Daniel (defpsmacro [] (&rest args) `(array ,@(mapcar (lambda (arg) (if (and (consp arg) (not (equal '[] (car arg)))) (cons '[] arg) arg)) args)))

1 0

[parenscript-devel] Lisp-like shadowing behavior
by Daniel Gackle 18 Apr '08

18 Apr '08

Below is a ps macro that simulates the shadowing of special variables in Lisp. I'm wondering if anyone thinks this would be useful to add to Parenscript. I wrote it because I have some Javascript functions that reference global variables, and wanted to write some test functions for those without modifying global state. One option of course would be to simply write the original functions to take parameters instead of the global variables. But that complicates their signatures and I'm loath to modify production code to suit tests. With this macro, my test can do this: (ps (shadow-let ((*global-var* "test value")) (function-that-uses-global-var))) and the original value of *global-var* will be restored: var _js3778 = null; try { _js3778 = GLOBALVAR; GLOBALVAR = 'test value'; functionThatUsesGlobalVar(); } finally { GLOBALVAR = _js3778; }; Daniel ------------------------------------------------------------------------ (defpsmacro shadow-let (bindings &body body) (labels ((wrap-expr (bindings body) (if (null bindings) body (list (list 'temporarily-bind (car bindings) (wrap-expr (cdr bindings) body)))))) `(macrolet ((temporarily-bind ((var expr) body) (with-ps-gensyms (temp) `(progn (defvar ,temp nil) (try (progn (setf ,temp ,var) (setf ,var ,expr) ,@body) (:finally (setf ,var ,temp))))))) ,(cons 'progn (wrap-expr bindings body)))))

3 3

[parenscript-devel] The PS code expander in Slime
by Daniel Gackle 01 Apr '08

01 Apr '08

A brief public-service announcement: Is anyone out there using Parenscript with Slime who doesn't know about Vladimir's amazing code expander? Being able to see the generated JS for any PS expression just by hitting C-c j is soooo useful... pretty much guaranteed to speed up your work. http://common-lisp.net/pipermail/bese-devel/2007-June/002999.html Dan

2 1

[parenscript-devel] Log macro
by Daniel Gackle 01 Apr '08

01 Apr '08

I wrote a simple ps macro to work like CL's log. It seems like a candidate for inclusion in PS itself. Daniel (defpsmacro log (number &optional base) (cond ((null base) `(*math.log ,number)) ((= base 10) `(* (log ,number) *math.*log10e*)) (t `(/ (log ,number) (log ,base)))))

2 2