Fix locations

src/locations.lisp

@@ -10,14 +10,16 @@
 (in-package #:timeliner.locations)
 
 (defparameter *google-kml-url* "https://www.google.com/maps/timeline/kml")
+(defvar *mapquest-api-key* nil "ApiKey for mapquest API")
 
 (defun reverse-geocode (lat lon)
   (let* ((data (yason:parse
                 (flexi-streams:octets-to-string
                  (drakma:http-request
                   (format nil
-                          "http://open.mapquestapi.com/nominatim/v1/reverse.php?format=json&lat=~F&lon=~F"
-                          lat lon)))))
+                          "http://open.mapquestapi.com/nominatim/v1/reverse.php?format=json&key=~A&lat=~F&lon=~F"
+                          *mapquest-api-key* lat lon) :force-binary t)
+                 :external-format :utf-8)))
          (address (gethash "address" data)))
     (values (gethash "display_name" data)
             address)))
@@ -29,12 +31,14 @@
   (let* ((point (cdr loc))
          (lat (geo:latitude-deg point))
          (lon (geo:longitude-deg point)))
-    (multiple-value-bind (text address) (reverse-geocode lat lon)
+    (multiple-value-bind (text address)
+        (handler-case (reverse-geocode lat lon)
+          (error () (values (format nil "Unknown at ~,2F, ~,2F" lat lon) nil)))
       (kv
        (kv :ts (car loc))
        (kv :type "place")
        (kv :title text)
-       (kv :language (gethash "country_code" address))
+       (kv :language (and address (gethash "country_code" address)))
        (kv :loc (kv (kv :type "Point") ; GeoJSON Point
                     (kv :coordinates (list lon lat))))))))