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

batch command line rendering of .clog files

Browse source
This commit is contained in:
David Botton 2022-08-31 13:58:17 -04:00
parent 417aedd981
commit 780918d1ed
4 changed files with 40 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -155,18 +155,26 @@
(add-select-option (designtime-list panel) "" "Missing /tools")
(add-select-option (design-deps panel) "" "Missing /tools"))))
(t
(confirm-dialog panel "Load project?"
(lambda (answer)
(cond (answer
(ql:quickload sel)
(ignore-errors
(ql:quickload (format nil "~A/tools" sel)))
(ql:quickload sel)
(projects-populate panel))
(t
(setf (current-project app) nil)
(setf (text-value (project-list panel)) "None"))))
:title "System not loaded"))))))
(flet ((load-proj (answer)
(cond (answer
(ql:quickload sel)
(ignore-errors
(ql:quickload (format nil "~A/tools" sel)))
(ql:quickload sel)
(projects-populate panel))
(t
(setf (current-project app) nil)
(setf (text-value (project-list panel)) "None")))))
(cond ((eq *app-mode* :batch)
(load-proj t)
(projects-rerender panel)
(clog:shutdown)
(uiop:quit))
(t
(confirm-dialog panel "Load project?"
(lambda (answer)
(load-proj answer))
:title "System not loaded")))))))))
(defun projects-add-dep (panel sys)
(Input-dialog panel "Enter system name:"