15-tutorial.lisp

(defpackage #:clog-tut-15
  (:use #:cl #:clog)
  (:export start-tutorial))

(in-package :clog-tut-15)

;;; 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)))
    (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)))
    (set-on-click vst (lambda (obj)(declare (ignore obj))(pause-media vid)))
    (set-on-click ast (lambda (obj)(declare (ignore obj))(pause-media aud)))
    (set-on-time-update vid (lambda (obj)(declare (ignore obj))(setf (value vlc) (media-position vid))))
    (set-on-time-update aud (lambda (obj)(declare (ignore obj))(setf (value alc) (media-position aud))))))

(defun start-tutorial ()
  "Start turtorial."
  (initialize 'on-new-window)
  (open-browser))