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

Added error handling

Browse source
This commit is contained in:
David Botton 2021-03-11 10:34:30 -05:00
parent 94fc1d69c5
commit 4c533e8cbc
2 changed files with 21 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

10
source/clog-gui.lisp
View file

@ -1227,8 +1227,10 @@ interactions. Use window-end-modal to undo."))
(defun alert-toast (obj title content &key
(color-class "w3-red")
(time-out nil)
(place-top nil)
(html-id nil))
"Create an alert toast with option :TIME-OUT"
"Create an alert toast with option :TIME-OUT. If place-top is t then alert
is placed in DOM at top of html body instead of bottom of html body."
(unless html-id
(setf html-id (clog-connection:generate-id)))
(let* ((body (connection-data-item obj "clog-body"))
@ -1242,8 +1244,12 @@ interactions. Use window-end-modal to undo."))
color-class
html-id
title
content)))
content)
:auto-place nil))
(closer (attach-as-child body (format nil "~A-close" html-id))))
(if place-top
(place-inside-top-of body win)
(place-inside-bottom-of body win))
(set-on-click closer (lambda (obj)
(destroy win)))
(when time-out