mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 10:40:45 -08:00
18 lines
401 B
Common Lisp
18 lines
401 B
Common Lisp
(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))
|