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

[parenscript-devel] Conditional nesting of lisp and javascript code
by Slobodan Milnović 02 Jun '11

02 Jun '11

Hi! I'm not sure what expressions/terms should I use for my situation, but I'll try my best to explain it. I have several functions combined under one ps:ps, and I'd like to create different code depending on my, let's call it debug variable. I have tried something like this: (ps:ps (defun my-function (some-var) (ps:lisp (when (= my-debug-level debug-level-of-this-code) (ps:ps (ps:chain console (log "works!!!"))))) (generate some fancy regular javascript code))) Unfortunatelly, when the inner ps does its thing, it creates an string, which then outer ps just attaches (and escapes appropriately) as string, not as additional javascript code that is to be attached to the rest. Is it possible to do this, or do I have to rethink my code?

3 5

[parenscript-devel] js-expander broken with recent changes to slime
by Andy Peterson 31 May '11

31 May '11

Recent changes to slime (quicklisp version) have broken the js-expander Slime Changelog: 2011-03-09 Helmut Eller <heller(a)common-lisp.net> Remove slime-sexp-at-point-for-macroexpansion. * slime.el (slime-sexp-at-point-for-macroexpansion): Deleted. (slime-eval-macroexpand): Use slime-sexp-at-point instead. (slime-eval-macroexpand-inplace): Use slime-bounds-of-sexp-at-point directly. I believe this fix should work but my slime fu is weak. $ diff js-expander.el ../../js-expander.el 40c40 < (first (slime-sexp-at-point-for-macroexpansion)) --- > (slime-sexp-at-point)

3 3

[parenscript-devel] macro
by Haris Bogdanovich 26 Apr '11

26 Apr '11

Hi. How to define a macro to give me this code: (defun xhr-func () (setf (@ xhr onreadystatechange) (lambda () (if (= (@ xhr ready-state) 4) (progn (setf ime (@ xhr response-text)) (alert ime))) 0)) (chain xhr (open "GET" "/value.lisp" true)) (chain xhr (send null))) I tried: (defmacro xhr-macro () `(defun xhr-func () (setf (@ xhr onreadystatechange) (lambda () (if (= (@ xhr ready-state) 4) (progn (setf ime (@ xhr response-text)) (alert ime))) 0)) (chain xhr (open "GET" "/value.lisp" true)) (chain xhr (send null)))) Lispworks inserts lots of its code when trying macroexpand so it doesn't work. I would latter give arguments to the macro, ofcourse. What are defmacro/ps and defmacro+ps for ? Thanks

3 2

[parenscript-devel] XMLHttpRequest
by Haris 16 Apr '11

16 Apr '11

Hi. How to make a XMLHttpRequest object to contact the Hunchentoot server ? Thanks

2 2

[parenscript-devel] XMLHttpRequest
by Haris 14 Apr '11

14 Apr '11

Hi. How to make a XMLHttpRequest object to contact the Hunchentoot server ? Thanks

4 4

[parenscript-devel] what's wrong?
by F D 23 Mar '11

23 Mar '11

Hello, I'm trying to convert my js strings into parenscript code but I've a problem. 1) This works (ps::ps (ps::chain $ (post jsonServerUrl (if (ps::@ data error) (alert (ps::@ data error)) (progn (alert "test1") (alert "test2") ))))) 2) This works (ps::ps (if (ps::@ data error) (alert (ps::@ data error)) (loop for i from 0 to arLen do (ps::chain newil (setAttribute "class" (if (= (ps::@ (ps:getprop data i) typedonnee) "tabgrouptype") "ui-state-default" "ui-state-default no-nest")) )))) 3) but this doesn't work (the if clause of first example if replaced by the if clause of the second one) (ps::ps (ps::chain $ (post jsonServerUrl (if (ps::@ data error) (alert (ps::@ data error)) (loop for i from 0 to arLen do (ps::chain newil (setAttribute "class" (if (= (ps::@ (ps:getprop data i) typedonnee) "tabgrouptype") "ui-state-default" "ui-state-default no-nest")) )))))) Is there something wrong with my code? Thanks FD

2 1

[parenscript-devel] Parenscript is applying as a mentoring organization to GSoC 2011
by Vladimir Sedach 02 Mar '11

02 Mar '11

Hi everyone, I'm applying to have Parenscript participate as a mentoring organization As a mentoring organization, Parenscript would involve projects from the Parenscript community - working on the compiler itself, working on an IDE based around Parenscript, and working on the web frameworks and libraries that use Parenscript. So if you use Parenscript or develop Lisp web frameworks, libraries, or applications, you're welcome to submit a project idea and indicate your interest in mentoring projects at Parenscript GSoC projects page: http://www.cliki.net/GSoC%202011%20Parenscript%20project%20page And if you're a student, you're encouraged to keep this in mind for something to do this summer (we might or might not get in; I will let everyone know). Happy hacking, Vladimir

1 0

[parenscript-devel] Parenscript 2.3 released
by Vladimir Sedach 01 Mar '11

01 Mar '11

Hi everyone, I just uploaded the Parenscript 2.3 binaries: http://common-lisp.net/project/parenscript/release/parenscript-2.3.tgz Happy hacking, Vladimir

1 0

[parenscript-devel] Scoping bug with lambdas
by sblist＠me.com 28 Feb '11

28 Feb '11

Hi, Here's the misbehaviour: (ps (let ((x 5)) (let ((x 7)) (funcall (lambda (x) (+ x 9)) x)))) => "var x = 5; var x51 = 7; (function (x) { return x51 + 9; })(x51);" Obviously the X inside the lambda body can remain just plain X since it is bound in a new scope. Scott

2 1

[parenscript-devel] Parenscript questions
by Miron Brezuleanu 23 Feb '11

23 Feb '11

Hi, I'm a Common Lisp newbie playing with Parenscript and WebGL. The source of 'http://learningwebgl.com/lessons/lesson01/index.html' contains a very simple example, with identifiers like gl.LEQUAL or gl.ARRAY_BUFFER. I can't figure out how to write those in Parenscript. I read the Symbol Conversion section of the manual ('http://common-lisp.net/project/parenscript/reference.html#section-symbolconv') but couldn't figure out what syntax to use. I ended up trying with a bigger hammer and modifying function encode-js-identifier in utils.lisp. That allowed me to write gl.*lequal* and get gl.LEQUAL. Is there a way to write these symbols without patching Parenscript? (BTW, modified function at 'https://gist.github.com/841088'). Many thanks, -- Miron Brezuleanu

3 2