(defpackage #:testapp
  (:use #:cl #:clog)
  (:export init))

(in-package #:testapp)

(defun homepage (body)
  (let ((hello-element
          (create-child body "<h1>Hello World! (click me!)</h1>")))
    (set-on-click hello-element
                  (lambda (obj)
                    (declare (ignore obj))
                    (setf (color hello-element) :green)))))

(defun init ()
  (initialize #'homepage)
  (loop (sleep 360)))