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

fix for trying to retrieve ascii art under a name which returns none

Browse source
This commit is contained in:
Gered 2014-04-06 17:06:39 -04:00
parent df0f6d7429
commit 01eb85c7dc
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/toascii/models/db.clj
View file

@ -56,10 +56,12 @@
(throw (new IndexOutOfBoundsException)))))
(defn get-random-ascii-art [name]
(->> (couch/get-view-with-db (db-library) "list" "ids" {:key name})
(rand-nth)
:value
(get-ascii-art)))
(let [results (couch/get-view-with-db (db-library) "list" "ids" {:key name})]
(if (seq results)
(->> results
(rand-nth)
:value
(get-ascii-art)))))
(defn get-art-count []
(->> (couch/get-view-with-db (db-library) "list" "count")