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

sticky file window

Browse source
This commit is contained in:
David Botton 2024-05-03 18:16:10 -04:00
parent c39b05eb5c
commit db767d1469
1 changed files with 17 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

20
tools/clog-builder-project-tree.lisp
View file

@ -83,13 +83,24 @@ on the tree-root or other clog-tree's."))
(unless (equal item "") (unless (equal item "")
(cond ((and (> (length item) 5) (cond ((and (> (length item) 5)
(equal (subseq item (- (length item) 5)) ".clog")) (equal (subseq item (- (length item) 5)) ".clog"))
(if t (if *open-external*
(on-new-builder-panel-ext panel :open-file item) ;; need ext for both (on-new-builder-panel-ext panel :open-file item) ;; need ext for both
(on-new-builder-panel panel :open-file item))) (on-new-builder-panel panel :open-file item)))
(t (t
(if nil (if *open-external*
(on-open-file-ext panel :open-file item) (on-open-file-ext panel :open-file item)
(on-open-file panel :open-file item)))))) (progn
(let ((win (on-open-file panel :open-file item)))
(when win
(set-geometry win
:top (menu-bar-height win)
:left 300
:height "" :width ""
:bottom 5 :right 0)
(clog-ace:resize (window-param win))
(set-on-window-move win (lambda (obj)
(setf (width obj) (width obj))
(setf (height obj) (height obj))))))))))))
(defun project-tree-dir-select (panel dir) (defun project-tree-dir-select (panel dir)
(dolist (item (uiop:subdirectories dir)) (dolist (item (uiop:subdirectories dir))
@ -131,6 +142,9 @@ on the tree-root or other clog-tree's."))
(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-window-move win (lambda (obj) (set-on-window-move win (lambda (obj)
(setf (height obj) (height obj)))) (setf (height obj) (height obj))))
(set-on-window-close win (lambda (obj)
(declare (ignore obj))
(setf (project-tree-win app) nil)))
(setf (positioning projects) :absolute) (setf (positioning projects) :absolute)
(set-geometry projects :height 27 :width "" :top 0 :left 0 :right 0) (set-geometry projects :height 27 :width "" :top 0 :left 0 :right 0)
(add-class dir-loc "w3-tiny") (add-class dir-loc "w3-tiny")