Skip to content

Commit

Permalink
Added .gitignore and missing files.
Browse files Browse the repository at this point in the history
  • Loading branch information
htmfilho committed Feb 24, 2019
1 parent d981aa6 commit 38de357
Show file tree
Hide file tree
Showing 3 changed files with 53 additions and 0 deletions.
11 changes: 11 additions & 0 deletions .gitignore
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
pom.xml
pom.xml.asc
*jar
/lib/
/classes/
/target/
/checkouts/
.lein-deps-sum
.lein-repl-history
.lein-plugins/
.lein-failures
8 changes: 8 additions & 0 deletions src/cryogen/core.clj
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
(ns cryogen.core
(:require [cryogen-core.compiler :refer [compile-assets-timed]]
[cryogen-core.plugins :refer [load-plugins]]))

(defn -main []
(load-plugins)
(compile-assets-timed)
(System/exit 0))
34 changes: 34 additions & 0 deletions src/cryogen/server.clj
Original file line number Diff line number Diff line change
@@ -0,0 +1,34 @@
(ns cryogen.server
(:require [compojure.core :refer [GET defroutes]]
[compojure.route :as route]
[ring.util.response :refer [redirect resource-response]]
[ring.util.codec :refer [url-decode]]
[cryogen-core.watcher :refer [start-watcher!]]
[cryogen-core.plugins :refer [load-plugins]]
[cryogen-core.compiler :refer [compile-assets-timed read-config]]
[cryogen-core.io :refer [path]]))

(defn init []
(load-plugins)
(compile-assets-timed)
(let [ignored-files (-> (read-config) :ignored-files)]
(start-watcher! "resources/templates" ignored-files compile-assets-timed)))

(defn wrap-subdirectories
[handler]
(fn [request]
(let [req-uri (.substring (url-decode (:uri request)) 1)
res-path (if (or (= req-uri "") (= req-uri "/"))
(path "/index.html")
(path (str req-uri ".html")))]
(or (resource-response res-path {:root "public"})
(handler request)))))

(defroutes routes
(GET "/" [] (redirect (let [config (read-config)]
(path (:blog-prefix config)
(when-not (:clean-urls? config) "index.html")))))
(route/resources "/")
(route/not-found "Page not found"))

(def handler (wrap-subdirectories routes))

0 comments on commit 38de357

Please sign in to comment.