add file-exists? fn

2013-05-23 00:04:55 -04:00 · 2013-05-23 00:04:55 -04:00 · 03058f574f
parent 75ac524736
commit 03058f574f
1 changed files with 5 additions and 0 deletions
--- a/src/blarg/models/files.clj
+++ b/src/blarg/models/files.clj
@ -5,6 +5,11 @@
  (:require [com.ashafa.clutch :as couch]
            [clojure.java.io :as io]))

+(defn file-exists? [file]
+  (let [f (ensure-prefix file "/")]
+    (couch/with-db files
+      (not (zero? (count (couch/get-view "files" "listPublished" {:key f})))))))
+
 (defn get-file [file]
  (let [f (ensure-prefix file "/")]
    (couch/with-db files