mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-09 20:30:26 -08:00
Code Issues Projects Releases Wiki Activity

Restructure project

Browse source
This commit is contained in:
David Botton 2021-02-17 13:46:47 -05:00
parent f7ee1fb79a
commit b19f78d926
21 changed files with 46 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
tools/clog-db-admin.lisp Normal file
View file

@ -0,0 +1,18 @@
(defpackage #:clog-tools
(:use #:cl #:clog)
(:export clog-db-admin))
(in-package :clog-tools)
(defclass app-data () ())
(defun on-new-window (body)
(let ((app (make-instance 'app-data)))
(setf (connection-data-item body "app-data") app))
(create-div body :content "Hello")
(run body))
(defun clog-db-admin ()
"Start clog-db-admin."
(initialize #'on-new-window)
(open-browser))