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

change to update dialog on app-mode

Browse source
This commit is contained in:
David Botton 2024-03-31 11:48:52 -04:00
parent 5305b36183
commit 6271249ea4
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
tools/clog-builder.lisp
View file

@ -303,10 +303,15 @@ clog-builder window.")
:title *preferances-file*)))
(defun on-update-clog (body)
(alert-toast body
"Updating CLOG" "Results of update will apear when completed.
You may need to press ENTER on OS console window."
:color-class "w3-green" :time-out 3)
(if *app-mode*
(alert-dialog body
"Results of update will apear when completed.
You may need to press ENTER on OS console window."
:title "CLOG Update")
(alert-toast body
"CLOG Update"
"Results of update will apear when completed."
:color-class "w3-green" :time-out 2))
(let ((results (capture-eval "(ql:update-all-dists)" :clog-obj body)))
(if *app-mode*
(on-open-file body :title "CLOG Updated - Close builder, rerun make.bat/make and rerun."