 
 (defn fetch-all-articles []
   (GET "/api/articles"
-       {:headers         {:identity (get-identity-token)}
+       {:headers         {:identity (utils/get-identity-token)}
         :error-handler   #(secretary/dispatch! "/")
         :response-format :json
         :keywords?       true

(defn cell-and-checkbox [row]
  (let [users (sort-by first (:users @app-state))
        users-table (mapv #(into [] (vals %)) users)
        index (index-of users-table row)
        user (get (:users @app-state) index)]
    [:div.checkbox
     [:label


(defn delete-article [id]
  (DELETE (str "/api/articles/" id)
          {:headers       {:identity (utils/get-identity-token)}
           :error-handler #(alert-update-display-fn %)
           :handler       #(alert-update-display-fn %)}))

