mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-02 23:33:44 -08:00
Code Issues Projects Releases Wiki Activity

Support for preferences.lisp and *open-external* default parameter

Browse source
This commit is contained in:
David Botton 2024-03-07 15:20:50 -05:00
parent 2a2ef18c11
commit 4bb3dfbefa
4 changed files with 31 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -11,6 +11,8 @@
(defun projects-setup (panel)
(let* ((app (connection-data-item panel "builder-app-data")))
(when *open-external*
(setf (checkedp (open-ext panel)) t))
(when (uiop:directory-exists-p #P"~/common-lisp/")
(pushnew #P"~/common-lisp/"
(symbol-value (read-from-string "ql:*local-project-directories*"))