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

cleanup directory tree view

Browse source
This commit is contained in:
David Botton 2024-05-14 18:46:54 -04:00
parent 34dd1e164d
commit 8d1d4215ce
1 changed files with 1 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
tools/clog-builder-dir-tree.lisp
View file

@ -9,15 +9,10 @@
:keep-on-top t
:client-movement *client-side-movement*))
(root-dir (create-form-element (window-content win) :text))
(panel (create-panel (window-content win) :background-color :silver
:style "text-align:center;"
:class "w3-tiny"
:height 27 :top 30 :left 0 :right 0))
(tree (create-panel (window-content win)
:class "w3-small"
:overflow :scroll
:top 60 :bottom 0 :left 0 :right 0)))
(declare (ignore panel))
:top 30 :bottom 0 :left 0 :right 0)))
(set-geometry win :top (menu-bar-height win) :left 0 :height "" :bottom 5 :right "")
(setf (positioning root-dir) :absolute)
(set-geometry root-dir :height 27 :width "100%" :top 0 :left 0 :right 0)