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

add update-file fn

Browse source
This commit is contained in:
Gered 2013-05-23 09:12:13 -04:00
parent 03058f574f
commit ffd17c6291
1 changed files with 14 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/blarg/models/files.clj
View file

@ -45,13 +45,21 @@
(couch/get-view "files" "listPaths" {:group true}))))
(defn add-file [path filename file content-type]
(let [p (ensure-prefix-suffix path "/")
id (str p filename)]
(if-let [doc (couch/with-db files
(couch/put-document {:_id id
(couch/with-db files
(let [p (ensure-prefix-suffix path "/")
id (str p filename)]
(if-let [doc (couch/put-document {:_id id
:filename filename
:path p
:last_modified_at (get-timestamp)
:published true}))]
(couch/with-db files
:published true})]
(couch/put-attachment doc file :filename filename :mime-type content-type)))))
(defn update-file [id file content-type]
(couch/with-db files
(if-let [doc (couch/get-document id)]
(let [filename (:filename doc)
attachment (second (first (:_attachments doc)))]
(if-let [updated-doc (couch/update-document (-> doc
(assoc :last_modified_at (get-timestamp))))]
(couch/put-attachment updated-doc file :filename filename :mime-type content-type))))))