 
 (defn add-recent-images [db]
   (assoc db :recent (take 5 (:images db))))
-
-(defn init []
-  (load-data-from-disk)
-  (assert-fs))

                          (:name user)
                          admin)))))

;; Image management -----------------------------------------------------------

(defn get-thumb-name
  "(get-thumb-name 'dog.jpg' 200)
  => 'dog_200.jpg'"

  (BCrypt/checkpw p h))

(defn get-user [email]
  (first (sql-get-user (get-db-spec) email)))

(defn sql-exists? [q]
  (-> q first :count pos?))
