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

replace dir view with dir tree

Browse source
This commit is contained in:
David Botton 2024-05-14 17:14:49 -04:00
parent 9302e1e7b5
commit 0363307d8f
14 changed files with 294 additions and 257 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder-projects.lisp
View file

@ -73,9 +73,9 @@
(defun projects-view-dir (panel)
(let* ((sel (text-value (project-list panel))))
(if (equal sel "None")
(on-dir-win panel)
(on-dir-tree panel)
(let ((sys (asdf:find-system (format nil "~A" sel))))
(on-dir-win panel :dir (asdf:system-source-directory sys))))))
(on-dir-tree panel :dir (asdf:system-source-directory sys))))))
(defun projects-run (panel)
(let ((app (connection-data-item panel "builder-app-data"))