   ([url body]
    (post-json url body success-handler {"Content-Type" "application/json"})))
 
-(defn post-origin-get-references
+(defn request-references
   "When this app is loaded, request all available references from the external discussion system."
   []
   (let [url "api/get/references"                            ; TODO hardcoded url = bad

(defn references-handler
  "Called when received a response on the reference-query."
  [response]
  (let [refs  (:references response)
        error (:error response)]
    (if (pos? (count error))
      (lib/error-msg! error)
      (do

(defn error-handler
  "Generic error handler for ajax requests."
  [{:keys [status status-text]}]
  (.log js/console (str "I feel a disturbance in the Force... " status " " status-text))
  (lib/error-msg! (str status " " status-text))
  (lib/loading? false))

