stuff
This commit is contained in:
@@ -24,6 +24,7 @@
|
||||
("overcast clouds" . "☁️")
|
||||
("shower rain" . "🌦️")
|
||||
("light rain" . "🌧️")
|
||||
("light intensity drizzle" . "🌧️")
|
||||
("rain" . "🌧️")
|
||||
("moderate rain" . "🌧️")
|
||||
("thunderstorm" . "⛈️")
|
||||
@@ -73,6 +74,8 @@
|
||||
(call-with-values
|
||||
(lambda () (extract-weather-data json-data))
|
||||
(lambda (temp-c temp-f description icon)
|
||||
;; For debugging
|
||||
;;(format #t "Description: ~a ~%" description)
|
||||
|
||||
;; Display the weather information
|
||||
(if temp-c
|
||||
|
||||
Reference in New Issue
Block a user