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

better project load

Browse source
This commit is contained in:
David Botton 2022-08-22 14:18:57 -04:00
parent a0a3216a71
commit 85c7b93553
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
tools/clog-builder.lisp
View file

@ -2569,7 +2569,8 @@ of controls and double click to select control."
(defun projects-setup (panel) (defun projects-setup (panel)
(let* ((app (connection-data-item panel "builder-app-data"))) (let* ((app (connection-data-item panel "builder-app-data")))
(pushnew #P"~/common-lisp/" ql:*local-project-directories*) (when (uiop:directory-exists-p #P"~/common-lisp/")
(pushnew #P"~/common-lisp/" ql:*local-project-directories*))
(add-select-option (project-list panel) "None" "None") (add-select-option (project-list panel) "None" "None")
(dolist (n (sort (ql:list-local-systems) #'string-lessp)) (dolist (n (sort (ql:list-local-systems) #'string-lessp))
(add-select-option (project-list panel) n n)) (add-select-option (project-list panel) n n))
@ -2686,11 +2687,9 @@ of controls and double click to select control."
(confirm-dialog panel "Load project?" (confirm-dialog panel "Load project?"
(lambda (answer) (lambda (answer)
(cond (answer (cond (answer
(handler-case (ql:quickload sel)
(ql:quickload (format nil "~A/tools" sel)) (ignore-errors
(t (c) (ql:quickload (format nil "~A/tools" sel)))
(declare (ignore c))
(ql:quickload sel)))
(projects-populate panel)) (projects-populate panel))
(t (t
(setf (current-project app) nil) (setf (current-project app) nil)