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

singleton demo

Browse source
This commit is contained in:
David Botton 2020-12-30 20:05:48 -05:00
parent f2ae15534c
commit 58d30a60bc
4 changed files with 35 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
clog-system.lisp
View file

@ -25,7 +25,7 @@
(let ((body (make-clog-body connection-id)))
(funcall *on-new-window* body)))
(defun initialize (on-new-window
(defun initialize (on-new-window-handler
&key
(host "0.0.0.0")
(port 8080)
@ -34,7 +34,7 @@
"Inititalze CLOG on a socket using HOST and PORT to serve BOOT-FILE as
the default route to establish web-socket connections and static files
located at STATIC-ROOT."
(setf *on-new-window* on-new-window)
(setf *on-new-window* on-new-window-handler)
(cc:initialize #'on-connect
:host host
@ -42,6 +42,13 @@ located at STATIC-ROOT."
:boot-file boot-file
:static-root static-root))
;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-new-window ;;
;;;;;;;;;;;;;;;;;;;;;;;
(defun set-on-new-window (on-new-window-handler)
(setf *on-new-window* on-new-window-handler))
;;;;;;;;;;;;;;
;; shutdown ;;
;;;;;;;;;;;;;;