;; Let's first get the current IP address for this PC.
;; This is used to get the user's location for the weather API call.
(define ipify (string->url "https://api.ipify.org?format=json"))
(define get_ip (get-pure-port ipify))
(define ip_response (port->string get_ip))
(close-input-port get_ip)

; Now ip_response has a string that looks like "{\"ip\":\"129.63.253.73\"}"
; Let's convert his string into a JSON object
(define ip_obj (string->jsexpr ip_response))

;; Create the API string
(define get_loc (string-append "https://freegeoip.net/json/" ip_addr))

;; Make the HTTP GET request, store the response in "geo_response"
(define geo_ip (string->url get_loc))
(define get_geo (get-pure-port geo_ip))
(define geo_response (port->string get_geo))
(close-input-port get_geo)

;; Convert geo_response to a JSON object, just like before.
(define geo_obj (string->jsexpr geo_response))

;; Now we can use this URL string to get weather data!
(define weather_data (string->url get_weather))
(define get_data (get-pure-port weather_data))
(define weather_response (port->string get_data))
(close-input-port get_data)

;; Convert geo_response to a JSON object, just like before.
(define weather_obj (string->jsexpr weather_response))

(printf "CURRENT CITY: ~a\n" city_name)
(printf "Lat/Long: ~a / ~a\n" coord_lat coord_long)
(printf "Weather conditions: ~a\n" conditions)
(printf "Wind speed: ~a MPH\n" wind_speed)