       (post-json url body process-url-handler headers))
     (log/error ":api/last-call is empty, cannot post statement to empty URL.")))
 
+(defn after-eden-post-handler []
+  (lib/change-view-next! :eden/overview))
+
+(defn post-eden-argument
+  "Post an Argument directly to EDEN for later usage."
+  [{:keys [premise conclusion reference search/selected]}]
+  (let [request-url (str (lib/host-eden) (:add/argument config/eden))
+        headers {"Content-Type" "application/json"}
+        handler after-eden-post-handler
+        author (lib/get-nickname)
+        body {:premise premise
+              :conclusion (if (nil? selected) conclusion (:text selected))
+              :author-id 42
+              :reference reference
+              :link-type :support}]
+    (do-post request-url body handler comlib/error-handler headers)))
+
 
 ;;;; Get things started!
 (defn init-with-references!



;;;; POST functions
(defn post-json
  "Wrapper to prepare a POST request. Sending and receiving JSON."
  ([url body handler headers]
   (let [request-url (comlib/make-url url)]
     (log/info (str "Posting " body " to " request-url))
     (POST request-url
           {:body            (lib/clj->json body)
            :handler         handler
            :error-handler   comlib/error-handler
            :format          :json
            :response-format :json
            :headers         headers
            :keywords?       true})))
  ([url body handler]
   (post-json url body handler {"Content-Type" "application/json"}))
  ([url body]

            [discuss.references.integration :as rint]
            [discuss.communication.lib :as comlib]
            [discuss.components.search.statements :as search]
            [discuss.utils.logging :as log]
            [discuss.config :as config]))

;; Handler
(defn process-url-handler
