diff options
| -rw-r--r-- | mosaic.lisp | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/mosaic.lisp b/mosaic.lisp index 7e4beef..984d344 100644 --- a/mosaic.lisp +++ b/mosaic.lisp @@ -27,8 +27,8 @@ (define-class time-widget (widget) ((timezone - nil - :type (maybe string)) + local-time:*default-timezone* + :type (maybe string local-time::timezone)) (settings (make-instance 'settings :font-size 80))) @@ -38,7 +38,10 @@ (:metaclass user-class)) (defmethod display ((widget time-widget) buffer) - (let ((time-style + (let ((timezone (if (local-time::timezone-p (timezone widget)) + (local-time:zone-name (timezone widget)) + (timezone widget))) + (time-style (theme:themed-css (theme *browser*) `(|#time| :font-size ,(font-size (settings widget))) @@ -56,7 +59,8 @@ (array) (ps:create hour "2-digit" minute "2-digit" - hour12 nil)))))) + hour12 nil + "timeZone" (ps:lisp timezone))))))) (set-time) (ps:chain window (|setInterval| |setTime| 1000)))) (spinneret:with-html-string |