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

update documentation, remove tabs

Browse source
This commit is contained in:
David Botton 2022-07-18 22:26:37 -04:00
parent 2c9ce0864f
commit 25a9462f1f
84 changed files with 2163 additions and 2278 deletions
Download patch file Download diff file Expand all files Collapse all files

36
source/clog-gui.lisp
View file

@ -171,9 +171,9 @@
;;;;;;;;;;;;;;;;;;;;;;;;;
(defun clog-gui-initialize (clog-body &key
(body-left-offset 0)
(body-right-offset 0)
(w3-css-url "/css/w3.css")
(body-left-offset 0)
(body-right-offset 0)
(w3-css-url "/css/w3.css")
(jquery-ui-css "/css/jquery-ui.css")
(jquery-ui "/js/jquery-ui.js"))
"Initializes clog-gui and installs a clog-gui object on connection.
@ -476,13 +476,13 @@ The on-window-change clog-obj received is the new window"))
(unless obj
(let (new-order
(order -9999))
(maphash (lambda (key value)
(maphash (lambda (key value)
(declare (ignore key))
(setf new-order (z-index value))
(when (>= new-order order)
(setf order new-order)
(setf obj value)))
(windows app))))
(windows app))))
(setf (current-win app) obj)
(when (on-window-change app)
(funcall (on-window-change app) obj))
@ -872,7 +872,7 @@ the browser."))
(when app
(remhash (format nil "~A" (html-id obj)) (windows app))
(when (window-select app)
(destroy (window-select-item obj)))
(destroy (window-select-item obj)))
(remove-from-dom obj)
(fire-on-window-change nil app)
(fire-on-window-close obj))))
@ -909,8 +909,8 @@ the browser."))
(setf (width obj) (unit :vw 100))
(setf (left obj) (unit :px (body-left-offset app)))
(setf (width obj) (- (width obj)
(body-left-offset app)
(body-right-offset app)))
(body-left-offset app)
(body-right-offset app)))
(setf (height obj)
(- (inner-height (window (body app))) (menu-bar-height obj)))
(fire-on-window-size-done obj))))
@ -1701,7 +1701,7 @@ machine, upon close ON-FILE-NAME called with filename or nil if failure."
:html-id html-id))
(box (create-div (window-content win) :class "w3-panel"))
(form (create-form box))
(fname (file-namestring initial-dir))
(fname (file-namestring initial-dir))
(dirs (create-select form))
(files (create-select form))
(input (create-form-element form :input :label
@ -1727,20 +1727,20 @@ machine, upon close ON-FILE-NAME called with filename or nil if failure."
(when modal
(window-make-modal win))
(flet ((populate-dirs (d)
(let ((dir (directory-namestring d)))
(let ((dir (directory-namestring d)))
(setf (inner-html dirs) "")
(add-select-option dirs (format nil "~A" dir) ".")
(setf (value input) (if (equal fname "")
(truename dir)
(format nil "~A~A" (truename dir) fname)))
(truename dir)
(format nil "~A~A" (truename dir) fname)))
(unless (or (equalp dir "/") (equalp dir #P"/"))
(add-select-option dirs (format nil "~A../" dir) ".."))
(add-select-option dirs (format nil "~A../" dir) ".."))
(dolist (item (uiop:subdirectories dir))
(add-select-option dirs item item))))
(add-select-option dirs item item))))
(populate-files (dir)
(setf (inner-html files) "")
(dolist (item (uiop:directory-files (directory-namestring dir)))
(add-select-option files item (file-namestring item))))
(setf (inner-html files) "")
(dolist (item (uiop:directory-files (directory-namestring dir)))
(add-select-option files item (file-namestring item))))
(caret-at-end ()
(focus input)
(js-execute win (format nil "~A.setSelectionRange(~A.value.length,~A.value.length)"
@ -1750,7 +1750,7 @@ machine, upon close ON-FILE-NAME called with filename or nil if failure."
(populate-dirs initial-dir)
(populate-files initial-dir)
(when initial-filename
(ignore-errors
(ignore-errors
(setf (value input) (truename initial-filename)))
(caret-at-end))
(set-on-change files (lambda (obj)