 
 (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'"

    (str num-likes " people like this")))

(defn comment-on-image [image user c]
  (sql-insert-comment! (get-db-spec)
                       (:id image)
                       (:id user)
                       c))

(defn get-comments-for-image [image]
  (sql-get-comments-for-image (get-db-spec) (:id image)))

(defn add-cover-to-album [images album]
  (assoc album :cover (or (:cover album)
