(defpackage #:hello-clog
  (:use #:cl #:clog)
  (:export start-app))

(in-package :hello-clog)

(defun on-new-window (body)
  (create-div body :content "Hello World!"))

(defun start-app ()
  (initialize 'on-new-window
              :static-root (merge-pathnames "./www/"
                             (asdf:system-source-directory :hello-clog)))
  (open-browser))