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

readme update

Browse source
This commit is contained in:
David Botton 2021-02-24 20:36:53 -05:00
parent 186b5931d4
commit 35008c3116
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
README.md
View file

@ -83,6 +83,13 @@ CL-USER> (ql:quickload :clog)
CL-USER> (clog:run-demo 1)
```
The clog-db-admin tool (currently being worked on) can be run with:
```
CL-USER> (ql:quickload :clog/tools)
CL-USER> (clog-tools:clog-db-admin)
```
You can also open a "clog-repl" window in your browser to play
from the common-lisp repl:

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

@ -49,7 +49,7 @@
(remove-class (body app) "w3-teal")
(add-class (body app) "w3-blue-grey")
(destroy (indicator app))
(setf (indicatory app) nil)
(setf (indicator app) nil)
(sqlite:disconnect (db-connection app))
(setf (db-connection app) nil))
(setf (title (html-document (body app))) "CLOG DB Admin")))
@ -100,7 +100,7 @@
(let ((app (connection-data-item obj "app-data")))
(when (db-connection app)
(results-window app "select tbl_name as 'Table', sql as SQL from sqlite_master where type='table'"
:title "Double Click Row for Table"))))
:title "Double Click for Table"))))
(defun on-help-about (obj)
(let ((about (create-gui-window obj