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

dir view

Browse source
This commit is contained in:
David Botton 2022-09-01 14:51:21 -04:00
parent 780918d1ed
commit 145bad7cd4
8 changed files with 135 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -11,7 +11,15 @@
(setf (text-value (project-list panel)) (current-project app))
(projects-populate panel))
(t
(setf (text-value (project-list panel)) "None")))))
(setf (text-value (project-list panel)) "None")
(projects-populate panel)))))
(defun projects-view-dir (panel)
(ignore-errors
(let* ((app (connection-data-item panel "builder-app-data"))
(sel (text-value (project-list panel)))
(sys (asdf:find-system (format nil "~A" sel))))
(on-dir-win panel :dir (asdf:system-source-directory sys)))))
(defun projects-run (panel)
(let ((val (text-value (entry-point panel))))