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

More design work, added popup panels option to project view

Browse source
This commit is contained in:
David Botton 2024-03-24 01:58:42 -04:00
parent 31f207c28a
commit bf446f6f9f
8 changed files with 375 additions and 391 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -29,6 +29,8 @@
(let* ((app (connection-data-item panel "builder-app-data")))
(when *open-external*
(setf (checkedp (open-ext panel)) t))
(when *open-panels-as-popups*
(setf (checkedp (pop-panel panel)) t))
(when (uiop:directory-exists-p #P"~/common-lisp/")
(pushnew #P"~/common-lisp/"
(symbol-value (read-from-string "ql:*local-project-directories*"))
@ -367,8 +369,8 @@
((and (> (length item) 5)
(equal (subseq item (- (length item) 5)) ".clog"))
(if (checkedp (open-ext panel))
(on-new-builder-panel-ext target :open-file item)
(on-new-builder-panel target :open-file item)))
(on-new-builder-panel-ext target :open-file item :open-ext (checkedp (pop-panel panel)))
(on-new-builder-panel target :open-file item :open-ext (checkedp (pop-panel panel)))))
(t
(if (checkedp (open-ext panel))
(on-open-file-ext target :open-file item)