(irc-send-message! conn
                       recipient
                       (if (not (hash-has-key? current-weather 'name))
                         "Location not found."
                         (string-append (hash-ref current-weather 'name)
                                        ", "
                                        (hash-ref (hash-ref current-weather 'sys) 'country)
                                        " | "
                                        "Temperature: "
                                        (number->string (exact-round (hash-ref (hash-ref current-weather 'main) 'temp)))
                                        "C ("
                                        (number->string (exact-round (hash-ref (hash-ref current-weather 'main) 'temp_min)))
                                        "C - "
                                        (number->string (exact-round (hash-ref (hash-ref current-weather 'main) 'temp_max)))
                                        "C) Humidity: "
                                        (number->string (hash-ref (hash-ref current-weather 'main) 'humidity))
                                        "% Wind: "
                                        (number->string (hash-ref (hash-ref current-weather 'wind) 'speed))
                                        "m/s Conditions: "
                                        (hash-ref (car (hash-ref current-weather 'weather)) 'description))))))