Welcome to the CHICKEN Scheme pasting service
no title pasted by anonymous on Wed Aug 22 02:53:07 2012
$ csi CHICKEN (c)2008-2011 The Chicken Team (c)2000-2007 Felix L. Winkelmann Version 4.7.0 linux-unix-gnu-x86-64 [ 64bit manyargs dload ptables ] compiled 2012-04-12 on tumulus (Linux) ; loading /home/local/andyjpb/.csirc ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/parley.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/chicken.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/scheme.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/data-structures.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/extras.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/ports.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/posix.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/srfi-1.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/srfi-13.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/srfi-18.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/stty.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/srfi-69.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/foreign.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/foreigners.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/parley.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/stty.so ... #;1> (use waffle) ; loading /usr/local/chicken-4.7.0/lib/chicken/6/waffle.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/environments.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/sxml-transforms.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/irregex.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/waffle.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/environments.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/sxml-transforms.so ... #;2> (load-widget 'game-list-item "/tmp/widget") #;3> (define form `((literal "<!DOCTYPE html>") > (html (@ (lang "en")) > (head (meta (@ (charset "utf-8"))) > (title "Helveticards - 100% CSS playing cards") > (script (@ (language "javascript") (src "boyd.js"))) > (script (@ (language "javascript") (src "knodium-apps.js"))) > (link (@ (rel "stylesheet") > (href "helveticards.css") > (media "all")))) > (body (h1 "Helveticards") > (form (@ (method "POST") (name "things")) > (a (@ (href "/deck")) "Random Deck") > (input (@ (type "hidden") > (name "csrf-token") > (value "12345"))) > (h2 "Current Games") > (ul ((game-list-item (@ (name "0"))))) > (button > (@ (type "submit") (value "new_game") (name "action")) > "New Game") > (button > (@ (type "submit") (value "delete_game") (name "action")) > "Delete Game(s)"))))) > ) #;4> #;4> (waffle-sxml->html form) Error: (cdr) bad argument type: #f Call history: <syntax> (waffle-sxml->html form) <eval> (waffle-sxml->html form) <-- #;4> form ((literal "<!DOCTYPE html>") (html (@ (lang "en")) (head (meta (@ (charset "utf-8"))) (title "Helveticards - 100% CSS playing cards") (script (@ (language "javascript") (src "boyd.js"))) (script (@ (language "javascript") (src "knodium-apps.js"))) (link (@ (rel "stylesheet") (href "helveticards.css") (media "all")))) (body (h1 "Helveticards") (form (@ (method "POST") (name "things")) (a (@ (href "/deck")) "Random Deck") (input (@ (type "hidden") (name "csrf-token") (value "12345"))) (h2 "Current Games") (ul ((game-list-item (@ (name "0"))))) (button (@ (type "submit") (value "new_game") (name "action")) "New Game") (button (@ (type "submit") (value "delete_game") (name "action")) "Delete Game(s)"))))) #;5>
no title pasted by andyjpb on Wed Aug 22 02:53:59 2012
$ more /tmp/widget
(markup . `(li (input (@ (type "checkbox") (name "game") (value "0")))
(a (@ (href "/" "0")) "#" "0")))no title added by andyjpb on Wed Aug 22 03:14:55 2012
CHICKEN (c)2008-2011 The Chicken Team (c)2000-2007 Felix L. Winkelmann Version 4.7.0 linux-unix-gnu-x86-64 [ 64bit manyargs dload ptables ] compiled 2012-04-12 on tumulus (Linux) ; loading /home/local/andyjpb/.csirc ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/parley.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/chicken.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/scheme.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/data-structures.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/extras.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/ports.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/posix.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/srfi-1.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/srfi-13.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/srfi-18.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/stty.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/srfi-69.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/foreign.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/foreigners.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/parley.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/stty.so ... #;1> (use waffle) ; loading /usr/local/chicken-4.7.0/lib/chicken/6/waffle.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/environments.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/sxml-transforms.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/irregex.import.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/waffle.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/environments.so ... ; loading /usr/local/chicken-4.7.0/lib/chicken/6/sxml-transforms.so ... #;2> (load-widget 'game-list-item "/tmp/widget") #;3> (define form `((literal "<!DOCTYPE html>") > (html (@ (lang "en")) > (head (meta (@ (charset "utf-8"))) > (title "Helveticards - 100% CSS playing cards") > (script (@ (language "javascript") (src "boyd.js"))) > (script (@ (language "javascript") (src "knodium-apps.js"))) > (link (@ (rel "stylesheet") > (href "helveticards.css") > (media "all")))) > (body (h1 "Helveticards") > (form (@ (method "POST") (name "things")) > (a (@ (href "/deck")) "Random Deck") > (input (@ (type "hidden") > (name "csrf-token") > (value "12345"))) > (h2 "Current Games") > (ul ((game-list-item (@ (name "0"))))) > (button > (@ (type "submit") (value "new_game") (name "action")) > "New Game") > (button > (@ (type "submit") (value "delete_game") (name "action")) > "Delete Game(s)"))))) > ) #;4> #;4> (waffle-sxml->html form) <!DOCTYPE html> <html lang="en"> <head> <meta charset="utf-8" /> <title>Helveticards - 100% CSS playing cards</title> <script language="javascript" src="boyd.js"></script> <script language="javascript" src="knodium-apps.js"></script> <link rel="stylesheet" href="helveticards.css" media="all" /></head> <body> <h1>Helveticards</h1> <form method="POST" name="things"><a href="/deck">Random Deck</a><input type="hidden" name="csrf-token" value="12345" /> <h2>Current Games</h2> <ul> <li><input type="checkbox" name="game" value="0" /><a href="/0">#0</a></li></ul><button type="submit" value="new_game" name="action">New Game</button><button type="submit" value="delete_game" name="action">Delete Game(s)</button></form></body></html>#t #;5>