Start of multimedia additions

tutorial/15-tutorial.lisp

@@ -0,0 +1,17 @@
+(defpackage #:clog-user
+  (:use #:cl #:clog)
+  (:export start-tutorial))
+
+(in-package :clog-user)
+
+(defun on-new-window (body)
+  (create-video body :source "https://www.w3schools.com/html/mov_bbb.mp4")
+  (create-audio body :source "https://www.w3schools.com/html/horse.ogg")
+  
+  (run body))
+
+(defun start-tutorial ()
+  "Start turtorial."
+
+  (initialize #'on-new-window)
+  (open-browser))