     (redo-control)]
    " "
    [:.btn-group
-    (view-control)
+    #_(view-control)
     (load-control)]
 
    (paste-box)

)

(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."

  (icon-control "chevron-right" :redo "redo"))

(rum/defc view-control []
  [:a#load-ctl.btn.btn-default
   {:href log-sheet-url
    :target "_blank"
    :title "view session log"
    :tab-index 0
    }
   [:i.fa.fa-eye]])

(rum/defc load-control []
  [:button#load-ctl.btn.btn-default
   {:title "load session from spreadsheet"
    :data-toggle "collapse"
    :data-target "#paste-box"
    :aria-controls "paste-box"
