From 03058f574f197c4c41df1c135d78a9ee7fd6701b Mon Sep 17 00:00:00 2001
From: gered <gered@blarg.ca>
Date: Thu, 23 May 2013 00:04:55 -0400
Subject: [PATCH] add file-exists? fn

---
 src/blarg/models/files.clj | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/blarg/models/files.clj b/src/blarg/models/files.clj
index c29129d..bda0323 100644
--- 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