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

style issues

Browse source
This commit is contained in:
David Botton 2021-03-16 23:35:13 -04:00
parent 3114537be3
commit d6dbfcc614
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
source/clog-web.lisp
View file

@ -660,6 +660,7 @@ is placed in DOM at top of OBJ instead of bottom of OBJ."
(set-on-click
(attach-as-child obj (format nil "~A-closer" html-id))
(lambda (obj)
(declare (ignore obj))
(destroy panel)))
(when time-out
(sleep time-out)
@ -783,6 +784,7 @@ if confirmed or nil if canceled. CANCEL-TEXT is only displayed if modal is t"
(cancel (if modal
(attach-as-child win (format nil "~A-cancel" html-id))
nil)))
(declare (ignore cancel))
(setf (visiblep win) t)
(when modal
(js-execute obj (format nil "$('[name=~A-~A]').focus()"