mirror of
https://github.com/rabbibotton/clog.git
synced 2026-01-04 08:12:01 -08:00
20 lines
638 B
Text
Vendored
20 lines
638 B
Text
Vendored
(defpackage #:<%= (@ sys-name) %>
|
|
(:use #:cl #:clog #:clog-web)
|
|
(:export start-app))
|
|
|
|
(in-package :<%= (@ sys-name) %>)
|
|
|
|
(defun on-new-window (body)
|
|
;; Add the clog-web look and feel
|
|
(clog-web-initialize body)
|
|
;; Use the panel-box-layout to center horizontally
|
|
;; and vertically our div on the screen.
|
|
(let* ((layout (create-panel-box-layout body)))
|
|
(center-children (center-panel layout))
|
|
(create-main-panel (center-panel layout))))
|
|
|
|
(defun start-app ()
|
|
(initialize 'on-new-window
|
|
:static-root (merge-pathnames "./www/"
|
|
(asdf:system-source-directory :<%= (@ sys-name) %>)))
|
|
(open-browser))
|