gered/blarg
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

force cache updates when adding/updating, force remove when deleting

Browse source
This commit is contained in:
Gered 2014-03-29 09:50:28 -04:00
parent e50fb349c3
commit b2d9fc0d70
1 changed files with 16 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/blarg/models/posts.clj
View file

@ -11,22 +11,26 @@
(defonce post-md-cache (atom {})) (defonce post-md-cache (atom {}))
(defn- cache-post! [{:keys [_id created_at body] :as post}] (defn- cache-post! [{:keys [_id created_at body] :as post} & [force-cache-update?]]
(let [cached-post (get @post-md-cache _id)] (let [cached-post (get @post-md-cache _id)]
(if (or (not cached-post) (if (or (not cached-post)
(after? created_at (:created_at cached-post))) (after? created_at (:created_at cached-post))
force-cache-update?)
(do (do
(swap! post-md-cache assoc _id {:created_at created_at (swap! post-md-cache assoc _id {:created_at created_at
:html_body (md->html body)}) :html_body (md->html body)})
(get @post-md-cache _id)) (get @post-md-cache _id))
cached-post))) cached-post)))
(defn- merge-cached-post-md! [post] (defn- merge-cached-post-md! [post & [force-cache-update?]]
(let [cached-post (cache-post! post)] (let [cached-post (cache-post! post force-cache-update?)]
(merge (merge
post post
(select-keys cached-post [:html_body])))) (select-keys cached-post [:html_body]))))
(defn- remove-cached-post! [{:keys [_id] :as post}]
(swap! post-md-cache dissoc _id))
(defmacro ->post-list [& body] (defmacro ->post-list [& body]
`(string->date `(string->date
(->view-values (->view-values
@ -65,7 +69,8 @@
:tags tags :tags tags
:created_at (get-timestamp) :created_at (get-timestamp)
:published false :published false
:type "post"}))))) :type "post"})))
true))
(defn update-post [id title body user tags published? reset-date?] (defn update-post [id title body user tags published? reset-date?]
(if-let [post (get-post id)] (if-let [post (get-post id)]
@ -79,12 +84,15 @@
(merge (if user {:user user})) (merge (if user {:user user}))
(merge (if tags {:tags tags})) (merge (if tags {:tags tags}))
(merge (if-not (nil? published?) {:published published?})) (merge (if-not (nil? published?) {:published published?}))
(merge (if reset-date? {:created_at (get-timestamp)}))))))))) (merge (if reset-date? {:created_at (get-timestamp)}))))))
true)))
(defn delete-post [id] (defn delete-post [id]
(if-let [post (get-post id)] (when-let [post (get-post id)]
(couch/with-db posts (couch/with-db posts
(couch/delete-document post)))) (couch/delete-document post))
(remove-cached-post! post)
post))
(defn publish-post [id publish? reset-date?] (defn publish-post [id publish? reset-date?]
(update-post id nil nil nil nil publish? reset-date?)) (update-post id nil nil nil nil publish? reset-date?))