mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-02 23:33:44 -08:00
Code Issues Projects Releases Wiki Activity

catch errors on disconects

Browse source
This commit is contained in:
David Botton 2022-05-16 12:52:01 -04:00
parent 34bc4577ee
commit c3e7223077
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-connection.lisp
View file

@ -424,7 +424,11 @@ brower."
(format t "Condition caught connection ~A - ~A.~&" id c)
(values 0 c))))
(when *long-poll-first*
(finish-output stream))
(handler-case
(finish-output stream)
(t (c)
(format t "Condition caught finish-output ~A - ~A.~&" id c)
(values 0 c))))
(format t "HTML connection closed - ~A~%" id)))))
(t
(lambda (responder)

2
source/clog-web-themes.lisp
View file

@ -238,7 +238,7 @@ Page properties:
:content (title website)
:class "w3-xlarge w3-sans-serif"))
;; SECTION: Menu bar
(let ((menu (create-web-menu-bar body :class "w3-card-4")))
(let ((menu (create-web-menu-bar body :class "w3-card-4 w3-margin-top")))
(add-class menu color-class)
(dolist (drop-down menu-property)
(let ((drop (create-web-menu-drop-down menu