Fix some paths

master
Aaron Mueller 8 years ago
parent c3380a2860
commit e59ff4e368
  1. 12
      project.clj
  2. 6
      src/ldview/models/schema.clj
  3. 1
      src/ldview/tasks/runner.clj

@ -1,4 +1,8 @@
(defproject ldview "2"
:url "http://ldview.arg-games.com/"
:description "An alternative Ludum Dare entries viewer"
:min-lein-version "2.0.0"
:dependencies [[org.clojure/clojure "1.5.1"]
[lib-noir "0.8.2"]
[compojure "1.1.6"]
@ -23,14 +27,12 @@
:init ldview.handler/init
:destroy ldview.handler/destroy
:open-browser? false}
:aliases {"start-over" ["run" "-m" "ldview.tasks.runner/reset-all!"]
"fetch-competition" ["run" "-m" "ldview.tasks.runner/load-competition" "28"]}
:profiles {:production {:ring {:stacktraces? false}}
:dev {:ring {:auto-reload? true
:auto-refresh? true}
:dependencies [[ring-mock "0.1.5"]
[ring/ring-devel "1.2.0"]]}}
:url "http://ldview.arg-games.com/"
:description "An alternative Ludum Dare entries viewer"
:min-lein-version "2.0.0")
[ring/ring-devel "1.2.0"]]}})

@ -2,14 +2,14 @@
(:require [clojure.java.jdbc :as sql]
[noir.io :as io]))
(def db-store "site.db")
(def db-store (str "resources/site.db"))
(def db-spec {:classname "org.sqlite.JDBC"
:subprotocol "sqlite"
:subname (str (io/resource-path) db-store)})
:subname db-store})
(defn initialized? []
(.exists (new java.io.File (str (io/resource-path) db-store))))
(.exists (new java.io.File db-store)))
(defn create-initial-tables []

@ -7,7 +7,6 @@
[ldview.models.schema :as schema]
[noir.io :as io]))
(defn delete-database! []
(let [db-file (str (io/resource-path) schema/db-store)]
(if (fs/exists? db-file) (fs/delete db-file))))

Loading…
Cancel
Save