  :mark-entries-as-read
  [check-spec]
  (fn [{db :db} [_ ids]]
-   {:http-xhrio {:method :put
-                 :uri (str (:url (:server db)) "/elfeed/tags")
-                 :params {:entries ids :remove (list "unread")}
-                 :format (ajax/json-request-format)
-                 :response-format (ajax/json-response-format)
-                 :on-success [:success-mark-entries-as-read ids]
-                 :on-failure [:failure-mark-entries-as-read ids]}
+   {:http-xhrio (merge default-http-xhrio-attrs
+                       {:method :put
+                        :uri (str (:url (:server db)) "/elfeed/tags")
+                        :params {:entries ids :remove (list "unread")}
+                        :on-success [:success-mark-entries-as-read ids]
+                        :on-failure [:failure-mark-entries-as-read ids]})
     :db db}))
 
 (defn success-mark-entries-as-read [db [_event-id entry-ids response]]

   db))

(defn fetch-entry-content [{db :db} [_event-id entry]]
  {:http-xhrio {:method :post
                :uri (str (:url (:server db)) "/elfeed/content/" (:content entry))
                :format :json
                :response-format (ajax/text-response-format)
                :on-success [:success-fetch-entry-content (:webid entry)]
                :on-failure [:failure-fetch-entry-content]}
   :db (-> db
           (assoc :error-entry false
                  :current-entry (:webid entry)

(reg-event-fx
 :fetch-update-time
 (fn [{db :db} _]
   {:http-xhrio (merge default-http-xhrio-attrs
                       {:uri (str (:url (:server db)) "/elfeed/update")
                        :params {:time (:update-time db)}
                        :on-success [:success-fetch-update-time]
                        :on-failure [:failure-fetch-update-time]})
    :db (assoc db :fetching-update-time true)}))

(reg-event-db
