mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-07 03:00:49 -08:00
Code Issues Projects Releases Wiki Activity

update documentation, remove tabs

Browse source
This commit is contained in:
David Botton 2022-07-18 22:26:37 -04:00
parent 2c9ce0864f
commit 25a9462f1f
84 changed files with 2163 additions and 2278 deletions
Download patch file Download diff file Expand all files Collapse all files

22
tutorial/15-tutorial.lisp
View file

@ -7,17 +7,17 @@
;;; Brief demonstration of multimedia
(defun on-new-window (body)
(let* ((vid (create-video body :source "https://www.w3schools.com/html/mov_bbb.mp4"))
(tmp (create-br body))
(vpl (create-button body :content ">"))
(vst (create-button body :content "||"))
(vlc (create-form-element body :input))
(tmp (create-hr body))
(aud (create-audio body :source "https://www.w3schools.com/html/horse.ogg"))
(tmp (create-br body))
(apl (create-button body :content ">"))
(ast (create-button body :content "||"))
(alc (create-form-element body :input))
(tmp (create-hr body)))
(tmp (create-br body))
(vpl (create-button body :content ">"))
(vst (create-button body :content "||"))
(vlc (create-form-element body :input))
(tmp (create-hr body))
(aud (create-audio body :source "https://www.w3schools.com/html/horse.ogg"))
(tmp (create-br body))
(apl (create-button body :content ">"))
(ast (create-button body :content "||"))
(alc (create-form-element body :input))
(tmp (create-hr body)))
(declare (ignore tmp))
(set-on-click vpl (lambda (obj)(declare (ignore obj))(play-media vid)))
(set-on-click apl (lambda (obj)(declare (ignore obj))(play-media aud)))