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

move more functionality out of panel code

Browse source
This commit is contained in:
David Botton 2024-04-28 09:46:00 -04:00
parent 4af2cf6a0e
commit ca8d13352b
3 changed files with 65 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -47,6 +47,27 @@
(setf (text-value (project-list panel)) "None")
(projects-populate panel)))))
(defun projects-edit-asd (panel target)
(declare (ignore target))
(let ((sel (text-value (project-list panel))))
(on-open-file panel :open-file (asdf:system-source-file
(asdf:find-system sel)))))
(defun projects-unload (panel target)
(declare (ignore target))
(let ((sel (text-value (project-list panel))))
(unless (equal sel "None")
(asdf:clear-system sel)
(setf (text-value (project-list panel)) "None")
(projects-populate panel))))
(defun projects-reload (panel target)
(declare (ignore target))
(let ((sel (text-value (project-list panel))))
(unless (equal sel "None")
(asdf:clear-system sel)
(projects-populate panel))))
(defun projects-view-dir (panel)
(let* ((sel (text-value (project-list panel))))
(if (equal sel "None")