general example

web_lisp_src/general.wisp

@@ -0,0 +1,12 @@
+(metadata (title "General example"))
+(on-update '())
+(on-load '((fun () (log "Loaded!"))))
+(document
+    (let (good "Goooood...")
+        (text "↓ Click this button ↓")
+        (button :text "yes, this one"
+                :callback (fun (btn)
+                            (set-label btn good)))
+        (button :text "not this one"
+                :callback (fun (btn)
+                            (set-label btn (+ "not " good))))))

web_lisp_src/hello-world.wisp

@@ -0,0 +1,2 @@
+(document
+  (text "Hello, world!"))

web_lisp_src/hello_world.wisp

@@ -1,2 +0,0 @@
-(document
-  (text "Hello, world!"))

web_lisp_src/not-hello-world.wisp

@@ -5,4 +5,4 @@
   (text "Hello, world!")
   (image (link "ablecorp.us/img.png"))
   (button :text "Click Me!!"
-          :callback (fn [])))
+          :callback (fun ())))

web_lisp_src/style.wisp

@@ -1,6 +1,6 @@
 (style
   :id 1 
-  { :size 12})
+  :size 12)
 
 (document
   (text :style 1 "Hello, world!"))