mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-25 14:00:40 -08:00
Code Issues Projects Releases Wiki Activity

Remove run body in almost every case

Browse source
This commit is contained in:
David Botton 2022-03-01 00:48:04 -05:00
parent c59ae62c32
commit e5e3e07645
36 changed files with 199 additions and 121 deletions
Download patch file Download diff file Expand all files Collapse all files

15
tutorial/12-tutorial.lisp
View file

@ -39,25 +39,21 @@
<li><a href='/page3'>/page3</a> - tutorial 11 as part of this tutorial
<li><a href='/tutorial/tut-11.html'>/tutorial/tut-11.html</a> - an html file using boot.js
<li><a href='/tutorial/regular-file.html'>'/tutorial/regular-file.html</a> - a regular html file
</ul>")
(run body))
</ul>"))
(defun on-page1 (body)
(create-div body :content "You are in on-page1")
(run body))
(create-div body :content "You are in on-page1"))
(defun on-page2 (body)
(create-div body :content "You are in on-page2")
(log-console (window body) "A message in the browser's log")
(run body))
(log-console (window body) "A message in the browser's log"))
(defun on-default (body)
(cond ((equalp (path-name (location body))
"/tutorial/tut-11.html")
(on-tutorial11 body))
(t
(create-div body :content "No dice!")
(run body))))
(create-div body :content "No dice!"))))
(defun on-tutorial11 (body)
(let* ((form (attach-as-child body "form1" :clog-type 'clog-form))
@ -82,8 +78,7 @@
;; We need to override the boostrap default to submit the form html style
(set-on-submit form (lambda (obj)(declare (ignore obj))()))
(set-on-click good-button 'on-click-good)
(set-on-click scary-button 'on-click-scary))
(run body)))
(set-on-click scary-button 'on-click-scary))))
(defun start-tutorial ()
"Start turtorial."