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

(in-package :clog-user)

(defun my-on-click (obj)             ; obj in any event is the target of the event
  (setf (color obj) (rgb 0 255 0)))  ; this makes it possible to reuse events
                                     ; RGB is a helper function for color
(defun on-new-window (body)
  "On-new-window handler."
  (setf (title (html-document body)) "Tutorial 4")
  ;; The same handler my-on-click is set no both targets
  (set-on-click (create-section body :h1 :content "Hello World! (click me!)")
		#'my-on-click)
  (set-on-click (create-section body :h3 :content "Click me too!")
		#'my-on-click)
  (run body))

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