mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

clogframe update

Browse source
This commit is contained in:
David Botton 2024-04-28 10:44:01 -04:00
parent ca8d13352b
commit 5cf0f0d3a3
1 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

16
tools/clog-builder.lisp
View file

@ -548,10 +548,18 @@ instead of the project window will be displayed."
(setf *open-panels-as-popups* nil) (setf *open-panels-as-popups* nil)
(setf *open-external-panels-in-popup* nil) (setf *open-external-panels-in-popup* nil)
(setf *open-external* nil) (setf *open-external* nil)
(uiop:run-program (list "./clogframe" (handler-case
"CLOG Builder" (uiop:run-program (list "./clogframe"
(format nil "~A/builder" port) "CLOG Builder"
(format nil "~A" 1280) (format nil "~A" 840)))) (format nil "~A/builder" port)
(format nil "~A" 1280) (format nil "~A" 840)))
(error ()
(format t "~%Unable to load ./clogframe, trying clogframe.exe also.")
(ignore-errors
(uiop:run-program (list "clogframe.exe"
"CLOG Builder"
(format nil "~A/builder" port)
(format nil "~A" 1280) (format nil "~A" 840)))))))
(when start-browser (when start-browser
(format t "~%If browser does not start go to http://127.0.0.1:~A/builder~%~%" port) (format t "~%If browser does not start go to http://127.0.0.1:~A/builder~%~%" port)
(open-browser :url (format nil "http://127.0.0.1:~A/builder" port)))) (open-browser :url (format nil "http://127.0.0.1:~A/builder" port))))