|
|
@@ -19,8 +19,9 @@
|
|
|
(defvar *forecast-point-formats*
|
|
|
'((:current . (:year "-" (:month 2) "-" (:day 2) " " (:hour 2) ":" (:min 2)))
|
|
|
(:hour . ((:hour 2) ":" (:min 2)))
|
|
|
- (:day . (:year "-" (:month 2) "-" (:day 2))))
|
|
|
+ (:day . ((:day 2) " " :short-month " " :short-weekday)))
|
|
|
"local-time:format-timestring formats for different points")
|
|
|
+
|
|
|
(defvar *forecast-emojis*
|
|
|
'(("clear-day" . "☀")
|
|
|
("clear-night" . "⭐")
|
