mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 18:50:42 -08:00
Code Issues Projects Releases Wiki Activity

more work on 26

Browse source
This commit is contained in:
David Botton 2021-03-17 21:21:11 -04:00
parent f6a1a7dddc
commit d9ebeb4aa2
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
tutorial/26-tutorial.lisp
View file

@ -30,10 +30,14 @@
(let* ((first-rung (create-web-compositor body :html-id "rung1")) (let* ((first-rung (create-web-compositor body :html-id "rung1"))
(image (create-img first-rung :url-src "/img/windmills.jpg" (image (create-img first-rung :url-src "/img/windmills.jpg"
:class "w3-sepia")) :class "w3-sepia"))
(clog-txt (create-div first-rung :content "<a href='#rung2' style='text-decoration:none;'> (clog-txt (create-div first-rung :content "CLOG<br><u>The omnificient gui</u><br>
CLOG<br><u>The omnificient gui</u><br> desktop<br>web<br>mobile<br>iot"
desktop<br>web<br>mobile<br>iot</a>"
:class "w3-text-white w3-xxlarge"))) :class "w3-text-white w3-xxlarge")))
(setf (cursor clog-txt) :pointer)
(set-on-click clog-txt (lambda (obj)
(declare (ignore obj))
(setf (display first-rung) :none)
(setf (hash (location body)) "rung2")))
(setf (box-width image) "100%") (setf (box-width image) "100%")
(setf (text-shadow clog-txt) "2px 2px black") (setf (text-shadow clog-txt) "2px 2px black")
(composite-top-left clog-txt :padding-class :padding-64)) (composite-top-left clog-txt :padding-class :padding-64))
@ -54,9 +58,11 @@ desktop<br>web<br>mobile<br>iot</a>"
("Name" :name) ("Name" :name)
("E-mail" :email)) ("E-mail" :email))
(lambda (data) (lambda (data)
(setf (display second-rung) :none)
(setf (hash (location body)) "rung3") (setf (hash (location body)) "rung3")
(setf (inner-html (attach-as-child body "rung3-answer")) (setf (inner-html (attach-as-child body "rung3-answer"))
(format nil "<br><br>Thank you ~A<br>Your information will be sent shortly." (format nil "<br><br>Thank you ~A<br>Your information NOT
will be sent shortly.(DEMO)"
(cadr (assoc :name data))))))) (cadr (assoc :name data)))))))
;; rung-3 ;; rung-3
(let* ((third-rung (create-web-compositor body :html-id "rung3")) (let* ((third-rung (create-web-compositor body :html-id "rung3"))