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

mobile it

Browse source
This commit is contained in:
David Botton 2021-03-18 23:12:30 -04:00
parent 35e64d08d5
commit bf0f278cb1
1 changed files with 18 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

20
tutorial/26-tutorial.lisp
View file

@ -22,19 +22,34 @@
(icon (create-web-menu-icon menu :on-click (lambda (obj)
(declare (ignore obj))
(setf (hash (location body)) "rung2"))))
(item1 (create-web-menu-item menu :content "item1"
:on-click (lambda (obj)
(declare (ignore obj))
(setf (hash (location body)) "rung2"))))
(item2 (create-web-menu-item menu :content "item2"
:on-click (lambda (obj)
(declare (ignore obj))
(setf (hash (location body)) "rung2"))))
(item3 (create-web-menu-item menu :content "item3"
:on-click (lambda (obj)
(declare (ignore obj))
(setf (hash (location body)) "rung2"))))
(about (create-web-menu-item menu :content "About"
:on-click (lambda (obj)
(declare (ignore obj))
(setf (hash (location body)) "rung2")))))
(declare (ignore icon))
(full-row-on-mobile item1)
(full-row-on-mobile item2)
(full-row-on-mobile item3)
(add-class about "w3-right"))
;; rung-1
(let* ((first-rung (create-web-compositor body :html-id "rung1"))
(image (create-img first-rung :url-src "/img/windmills.jpg"
:class "w3-sepia"))
(clog-txt (create-div first-rung :content "CLOG<br><u>The omnificient gui</u><br>
desktop<br>web<br>mobile<br>iot"
:class "w3-text-white w3-xxlarge")))
desktop<br>web<br>mobile"
:class "w3-text-white w3-xlarge")))
(setf (cursor clog-txt) :pointer)
(set-on-click clog-txt (lambda (obj)
(declare (ignore obj))
@ -48,6 +63,7 @@
(image-cell (create-web-auto-column second-rung))
(image (create-img image-cell :url-src "/img/flower-clogs.jpg"))
(text-cell (create-web-auto-column second-rung :class "w3-cell-top")))
(hide-on-small-screens image-cell)
(setf (background-color text-cell) (rgb 199 188 160))
(setf (box-width image-cell) "40%")
(setf (box-width image) "100%")