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

envelope-panel* load project/tools when starting builder with a project

Browse source
This commit is contained in:
David Botton 2024-07-14 17:36:33 -04:00
parent 45a0cf9243
commit 0bbbcc292e
6 changed files with 228 additions and 186 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tools/clog-builder.lisp
View file

@ -679,8 +679,12 @@ clog-builder window.")
(if project
(progn
(setf *start-project* (string-downcase (format nil "~A" project)))
(projects-load *start-project*)
(setf static-root (merge-pathnames "./www/" (format nil "~A" (asdf:system-source-directory project)))))
(handler-case
(progn
(projects-load (format nil "~A/tools" *start-project*))
(setf static-root (merge-pathnames "./www/" (format nil "~A" (asdf:system-source-directory project)))))
(error ()
(projects-load *start-project*))))
(setf *start-project* nil))
(when dir
(setf *start-dir* dir))