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

Add :system option clog-builder

Browse source
This commit is contained in:
David Botton 2022-06-16 10:11:25 -04:00
parent 667f8c6f8c
commit f4658dbc3f
2 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
source/clog-system.lisp
View file

@ -129,15 +129,23 @@ BOOT-FILE will be used. If BOOT-FILE is nil path is removed."
(setf (gethash path *url-to-on-new-window*) on-new-window-handler)
(remhash path *url-to-on-new-window*)))
;;;;;;;;;;;;;;;;;;
;; is-running-p ;;
;;;;;;;;;;;;;;;;;;
(defun is-running-p ()
*clog-running*)
;;;;;;;;;;;;;;
;; shutdown ;;
;;;;;;;;;;;;;;
(defun shutdown ()
"Shutdown CLOG."
(clrhash *url-to-on-new-window*)
(setf *clog-running* nil)
(clog-connection:shutdown-clog))
(when *clog-running*
(clrhash *url-to-on-new-window*)
(setf *clog-running* nil)
(clog-connection:shutdown-clog)))
;;;;;;;;;;;;;;;;
;; debug-mode ;;

1
source/clog.lisp
View file

@ -64,6 +64,7 @@ embedded in a native template application.)"
"CLOG Startup and Shutdown"
(initialize function)
(set-on-new-window function)
(is-running-p function)
(shutdown function)
(debug-mode function)
(open-browser function))