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

improved pinner

Browse source
This commit is contained in:
David Botton 2024-05-27 16:02:05 -04:00
parent e4361c0084
commit e1e79bd2b9
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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