14 lines
394 B
Common Lisp
14 lines
394 B
Common Lisp
;; -*-lisp-*-
|
|
|
|
(defpoll weather--data :interval "30m"
|
|
`curl wttr.in/84321?format=j1 | jq -c `)
|
|
|
|
(defwidget weather
|
|
[]
|
|
(box :class "module text"
|
|
:spacing 0
|
|
:orientation "v"
|
|
(label :class "special"
|
|
:text "${weather--data.current_condition[0].weatherDesc[0].value} ${weather--data.current_condition[0].temp_F}°F")
|
|
(label :text "current weather")))
|