Make yenu work out of the box

env/dev/resources/config.edn

@@ -3,4 +3,7 @@
  :creator-password "creator"
  :user-password "user"
  ;; when :nrepl-port is set the application starts the nREPL server on load
- :nrepl-port 7000}
+ :nrepl-port 7000
+
+ :database-url "jdbc:sqlite:yenu_dev.db"
+ }

env/prod/resources/config.edn

@@ -1,4 +1,7 @@
 {:production true
  :creator-password "xxx"
  :user-password "yyy"
- :port 3000}
+ :port 3000
+
+ :database-url "jdbc:sqlite:yenu.db"
+ }

src/clj/yenu/config.clj

@@ -4,7 +4,8 @@
             [mount.core :refer [args defstate]]))
 
 (defstate env :start (load-config
-                       :merge
-                       [(args)
-                        (source/from-system-props)
-                        (source/from-env)]))
+                      :merge
+                      [(args)
+                       (source/from-system-props)
+                       (source/from-props-file "yenu.properties")
+                       (source/from-env)]))

src/clj/yenu/core.clj

@@ -6,6 +6,7 @@
             [yenu.config :refer [env]]
             [clojure.tools.cli :refer [parse-opts]]
             [clojure.tools.logging :as log]
+            [yenu.helpers.images :as image]
             [mount.core :as mount])
   (:gen-class))
 
@@ -51,8 +52,9 @@
     (some #{"migrate" "rollback"} args)
     (do
       (mount/start #'yenu.config/env)
+      (image/create-needed-folders)
       (migrations/migrate args (select-keys env [:database-url]))
       (System/exit 0))
     :else
     (start-app args)))
-  
+

src/clj/yenu/helpers/images.clj

@@ -21,11 +21,11 @@
      (.getPath (io/file (env :user-dir) "data" postfix)))))
 
 (defn create-needed-folders []
-  (if (not (fs/exists? (data-path "to-process")))
+  (if-not (fs/exists? (data-path "to-process"))
     (fs/mkdirs (data-path "to-process")))
-  (if (not (fs/exists? (data-path "gallery")))
-    (map #(fs/mkdirs (data-path "gallery" %))
-         ["normal" "raw" "thumbnails"])))
+  (if-not (fs/exists? (data-path "gallery"))
+    (run! #(fs/mkdirs (data-path "gallery" %))
+          ["normal" "raw" "thumbnails"])))
 
 (defn target-image-filename [image-file-path]
   (let [file (io/file image-file-path)]
@@ -77,6 +77,9 @@
         (fs/delete file)
         false))))
 
+(defn remove-temp-image [filepath]
+  (fs/delete filepath))
+
 (defn scale-image-and-save [filepath]
   (let [image-hash (target-image-filename filepath)
         file-extension (fs/extension filepath)

src/clj/yenu/routes/admin.clj

@@ -69,6 +69,7 @@
   (POST "/upload" [file title description tags]
         (let [filename (upload-file file)
               imghash (images/scale-image-and-save filename)]
+          (images/remove-temp-image filename)
           (if imghash
             (do
               (add-image-to-database imghash title description tags)

yenu.properties

@@ -0,0 +1,10 @@
+domain=localhost
+port=3000
+
+# Passwords
+user-password=user
+creator-password=creator
+
+# Content stuff
+images_per_page=25
+footer=© 2013 - 2017 Aaron & Beatrice Fischer