 (reg-event-fx
  :fetch-update-time
  (fn [{db :db} _]
-   {:http-xhrio {:method :post
-                 :uri (str (:url (:server db)) "/elfeed/update")
-                 :params {:time (:update-time db)}
-                 :format :json
-                 :response-format (ajax/json-response-format {:keywords? true})
-                 :on-success [:success-fetch-update-time]
-                 :on-failure [:failure-fetch-update-time]}
+   {: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

 :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]}
    :db db}))

(defn success-mark-entries-as-read [db [_event-id entry-ids response]]

 :mark-entries-as-unread
 [check-spec]
 (fn [{db :db} [_ ids]]
   {:http-xhrio (merge default-http-xhrio-attrs
                       {:method :put
                        :uri (str (:url (:server db)) "/elfeed/tags")
                        :params {:entries ids :add (list "unread")}
                        :on-success [:success-mark-entries-as-unread ids]
                        :on-failure [:failure-mark-entries-as-unread ids]})
    :db db}))

(reg-event-db
