   [response]
   (.log js/console (str response)))
 
-(defn sheets-error-handler
+(defn sheets-write-error
   [status status-text]
   (.log js/console (str "spreadsheet write error " status " " status-text)))
 
+(defn sheets-read-error
+  [status status-text]
+  (.log js/console (str "spreadsheet read error " status " " status-text)))
+
 (defn save-session
   "Write out a session to the store."
   []
-  (prn "saving")
-  (prn (sit/write log-w @log-state))
   (POST store-session-app
         :params (str "ip=" @ip-address
                      "&saved-session=" (sit/write log-w @log-state))
         :handler sheets-success-handler
-        :error-handler sheets-error-handler
+        :error-handler sheets-write-error
         :format {:write identity
                  :content-type "application/x-www-form-urlencoded"}
         :response-format :json

    ;;                            "&map-selection=" (:map-h-code app-state)
    ;;                            )
    ;;               :handler sheets-success-handler
    ;;               :error-handler sheets-error-handler
    ;;               :format {:write identity
    ;;                        :content-type "application/x-www-form-urlencoded"}
    ;;               :response-format (json-response-format {:keywords? true})


(defn load-session
  []
  (prn "load-session not yet implemented")
  (GET store-session-app
       :handler sheets-success-handler
       :error-handler sheets-read-error
       :response-format :json
       :keywords? true))

(defn write-sheet-log
  "Write a log-event to the google sheet url."
