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

directory and file buttons

Browse source
This commit is contained in:
David Botton 2022-09-13 22:41:10 -04:00
parent 2dbc39481e
commit 09aa23bac8
6 changed files with 230 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -15,11 +15,12 @@
(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)))))
(let* ((app (connection-data-item panel "builder-app-data"))
(sel (text-value (project-list panel))))
(if (equal sel "None")
(on-dir-win panel)
(let ((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))))