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

Better support for sudden connection lost.

Browse source
This commit is contained in:
David Botton 2021-11-18 13:58:46 -05:00
parent 844afdf7f4
commit f6792ca0ed
7 changed files with 21 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
source/clog-body.lisp
View file

@ -47,7 +47,7 @@
;;;;;;;;;
(defgeneric run (clog-body)
(:documentation "Keeps the main thread alive to prevent garbage
(:documentation "Keeps the connection thread alive to prevent garbage
collection of local objects when not using connection-data objects
or global objects."))
@ -57,6 +57,15 @@ or global objects."))
(sleep 10)
(return))))
;;;;;;;;;;;;;;;;;;;;;;;
;; set-html-on-close ;;
;;;;;;;;;;;;;;;;;;;;;;;
(defun set-html-on-close (clog-body html)
"In case of connection loss to this CLOG-BODY, replace the browser contents
with HTML."
(clog-connection:set-html-on-close (connection-id clog-body) html))
;;;;;;;;;;;;
;; window ;;
;;;;;;;;;;;;