mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

:filename and :select support for form-dialog

Browse source
This commit is contained in:
David Botton 2021-02-24 13:16:26 -05:00
parent 1860a022dd
commit affe3dd05e
2 changed files with 48 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

11
tools/clog-db-admin.lisp
View file

@ -8,6 +8,10 @@
((body
:accessor body
:documentation "Top level access to browser window")
(db-type
:accessor db-type
:initform nil
:documentation "Database type")
(db-connection
:accessor db-connection
:initform nil
@ -16,11 +20,12 @@
(defun on-db-open (obj)
(let* ((app (connection-data-item obj "app-data")))
(form-dialog obj nil
'(("Database Type" :db-type (("SQLite3" :sqlite3)))
("Database Name" :db-name))
'(("Database Type" :db-type :select (("SQLite3" :sqlite3)))
("Database Name" :db-name :filename "./"))
(lambda (results)
(when results
(format t "open db : ~A" (cadr (assoc :db-name results)))
(setf (db-type app) (cadr (assoc :db-type results)))
(setf (db-connection app)
(sqlite:connect (cadr (assoc :db-name results))))
(setf (title (html-document (body app)))
@ -30,7 +35,7 @@
(defun on-db-close (obj)
(let ((app (connection-data-item obj "app-data")))
(when (db-connection app)
(sqlite:disconnect (db-connection app))
(sqlite:disconnect (db-connection app))
(setf (db-connection app) nil))
(print "db disconnected")
(setf (title (html-document (body app))) "CLOG DB Admin")))