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

add file-exists? fn

Browse source
This commit is contained in:
Gered 2013-05-23 00:04:55 -04:00
parent 75ac524736
commit 03058f574f
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -5,6 +5,11 @@
(:require [com.ashafa.clutch :as couch] (:require [com.ashafa.clutch :as couch]
[clojure.java.io :as io])) [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] (defn get-file [file]
(let [f (ensure-prefix file "/")] (let [f (ensure-prefix file "/")]
(couch/with-db files (couch/with-db files