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

add route/model for toggling publish state of a file

Browse source
This commit is contained in:
Gered 2013-05-26 15:28:20 -04:00
parent 8ef71ea31b
commit 49a9b36961
2 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -68,3 +68,10 @@
(couch/with-db files
(if-let [doc (couch/get-document id)]
(couch/delete-document doc))))
(defn publish-file [id published?]
(couch/with-db files
(if-let [doc (couch/get-document id)]
(couch/update-document (-> doc
(assoc :last_modified_at (get-timestamp))
(assoc :published published?))))))

8
src/blarg/routes/files.clj
View file

@ -56,6 +56,12 @@
(session/flash-put! :file-error "File could not be deleted."))
(resp/redirect "/listfiles"))
(defn handle-publish-file [id]
(if-let [published (files/publish-file id)]
(session/flash-put! :file-success (str "<strong>" id "</strong> was " (if (:published published) "published" "unpublished") " successfully."))
(session/flash-put! :file-error "Could not update file's published state."))
(resp/redirect "/listfiles"))
(defn get-file [path]
(if-let [file (files/get-file path)]
(resp/content-type (:content_type file) (:data file))
@ -67,4 +73,6 @@
(restricted POST "/uploadfile" [path file] (handle-new-file (ensure-prefix-suffix path "/") file))
(restricted POST "/updatefile" [id file] (handle-update-file (ensure-prefix id "/") file))
(restricted POST "/deletefile" [id] (handle-delete-file (ensure-prefix id "/")))
(restricted GET "/publishfile/:id" [id] (handle-publish-file id true))
(restricted GET "/unpublishfile/:id" [id] (handle-publish-file id false))
(GET "/files/*" [*] (get-file *)))