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

add right arrow to directory tree

Browse source
This commit is contained in:
David Botton 2024-05-26 23:23:28 -04:00
parent 4323b3c5a3
commit a65dd8f131
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -14,6 +14,11 @@
:overflow :scroll
:top 30 :bottom 0 :left 0 :right 0)))
(set-geometry win :top (menu-bar-height win) :left 0 :height "" :bottom 5 :right "")
(set-on-click (create-span (window-icon-area win) :content "← ")
(lambda (obj)
(declare (ignore obj))
(set-geometry win :top (menu-bar-height win) :left 0 :height "" :bottom 5 :right "")
:auto-place :top))
(setf (positioning root-dir) :absolute)
(set-geometry root-dir :height 27 :width "100%" :top 0 :left 0 :right 0)
(setf (text-value root-dir) (format nil "~A" (or dir (uiop:getcwd))))