mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 10:40:45 -08:00
Tutorial 13
This commit is contained in:
parent
2b8663169d
commit
07a84c7052
7 changed files with 171 additions and 0 deletions
15
tutorial/13-tutorial/hello-clog/hello-clog.lisp
Normal file
15
tutorial/13-tutorial/hello-clog/hello-clog.lisp
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
(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))
|
||||
Loading…
Add table
Add a link
Reference in a new issue