gistfile1.clj

(ns documeds.server
  (:require [noir.server :as server]
            [clojure.contrib.string :as contrib]))

(server/load-views "src/documeds/views/")

(defn https-url [request-url]
  (str "https://" (:server-name request-url) ":" (:server-port request-url) (:uri request-url)))

(defn require-https
  [handler]
  (fn [request]
    (if (= (:scheme request) :http)
      (ring.util.response/redirect (https-url request)))
    request))

(server/add-middleware require-https)

(defn -main [& m]
  (let [mode (or (first m) :dev)
        port (Integer. (get (System/getenv) "PORT" "5000"))]
    (server/start port {:mode (keyword mode)
                        :ns 'documeds})))