mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 10:40:45 -08:00
15 lines
349 B
Common Lisp
15 lines
349 B
Common Lisp
(defpackage #:hello-clog
|
|
(:use #:cl #:clog)
|
|
(:export start-app))
|
|
|
|
(in-package :hello-clog)
|
|
|
|
(defun on-new-window (body)
|
|
(create-div body :content "Hello World!")
|
|
(run body))
|
|
|
|
(defun start-app ()
|
|
(initialize 'on-new-window
|
|
:static-root (merge-pathnames "./www/"
|
|
(asdf:system-source-directory :hello-clog)))
|
|
(open-browser))
|