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

style

Browse source
This commit is contained in:
David Botton 2021-02-17 19:23:37 -05:00
parent 5235829c6a
commit 29122904ec
2 changed files with 45 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
source/clog-form.lisp
View file

@ -27,7 +27,7 @@
(cc:query (connection-id clog-obj) "clog['post-data']")))
(defun form-data-item (form-data item)
"Return value for ITEM from a FROM-DATA a-list"
"Return value for ITEM from FROM-DATA a-list"
(cdr (assoc item form-data :test #'equalp)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

@ -9,6 +9,49 @@
:accessor body
:documentation "Top level access to browser window")))
(defun on-db-open (obj)
(let* ((app (connection-data-item obj "app-data"))
(win (create-gui-window obj
:title "Open Database"
:content
"<form id=odb-form class='w3-container' onSubmit='return false;'>
<label class='w3-text-black'><b>Database Type</b></label>
<select class='w3-select w3-border' name='db-type'>
<option value='sqlite3'>SQLite3</option>
<option disabled value='mysql'>MySQL</option>
<option disabled value='postgres'>Postgres</option>
</select>
<label class='w3-text-black'><b>Database Name</b></label>
<input class='w3-input w3-border' type='text' name='db-name'>
<label class='w3-text-black'><b>User Name</b></label>
<input class='w3-input w3-border' type='text' name='db-user' disabled>
<label class='w3-text-black'><b>Password</b></label>
<input class='w3-input w3-border' type='password' name='db-pass' disabled>
<label class='w3-text-black'><b>Host</b></label>
<input class='w3-input w3-border' type='password' name='db-host' disabled>
<label class='w3-text-black'><b>Port</b></label>
<input class='w3-input w3-border' type='password' name='db-port' disabled>
<button class='w3-btn w3-black' id=odb-open >Open</button>
<button class='w3-btn w3-black' id=odb-cancel>Cancel</button>
</form>"
:left (- (/ (inner-width (window (body app))) 2.0) 200)
:top (- (/ (inner-height (window (body app))) 2.0) 225)
:width 400
:height 450)))
(set-on-click (attach-as-child obj "odb-open") (lambda (obj)
(print "submit")))
(set-on-click (attach-as-child obj "odb-cancel") (lambda (obj)
(window-close win)))))
(defun on-help-about (obj)
(let* ((app (connection-data-item obj "app-data"))
(about (create-gui-window obj
@ -37,7 +80,7 @@
(let* ((menu (create-gui-menu-bar body))
(tmp (create-gui-menu-icon menu :on-click #'on-help-about))
(file (create-gui-menu-drop-down menu :content "Database"))
(tmp (create-gui-menu-drop-down menu :content "Open Connection" :on-click #'on-db-open))
(tmp (create-gui-menu-item file :content "Open Connection" :on-click #'on-db-open))
(win (create-gui-menu-drop-down menu :content "Window"))
(tmp (create-gui-menu-item win :content "Maximize All" :on-click #'maximize-all-windows))
(tmp (create-gui-menu-item win :content "Normalize All" :on-click #'normalize-all-windows))