mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 10:40:45 -08:00
15 lines
278 B
Common Lisp
15 lines
278 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 #P"www/")
|
|
(open-browser))
|