gered/ring-custom-jetty-server
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Added :auto-refresh? option

Browse source
This commit is contained in:
James Reeves 2012-05-24 10:35:59 +01:00
parent 205bf14aa5
commit 1cebf407cf
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
project.clj
View file

@ -2,6 +2,7 @@
:description "Library for running Ring web servers" :description "Library for running Ring web servers"
:dependencies [[org.clojure/clojure "1.2.1"] :dependencies [[org.clojure/clojure "1.2.1"]
[org.clojure/core.incubator "0.1.0"] [org.clojure/core.incubator "0.1.0"]
[ring "1.1.0"]] [ring "1.1.0"]
[ring-refresh "0.1.0"]]
:plugins [[codox "0.6.1"]] :plugins [[codox "0.6.1"]]
:profiles {:dev {:dependencies [[clj-http "0.4.1"]]}}) :profiles {:dev {:dependencies [[clj-http "0.4.1"]]}})

8
src/ring/server/standalone.clj
View file

@ -4,6 +4,7 @@
ring.server.options ring.server.options
ring.middleware.stacktrace ring.middleware.stacktrace
ring.middleware.reload ring.middleware.reload
ring.middleware.refresh
[clojure.java.browse :only (browse-url)])) [clojure.java.browse :only (browse-url)]))
(defn- try-port (defn- try-port
@ -59,8 +60,14 @@
(wrap-reload handler) (wrap-reload handler)
handler)) handler))
(defn- add-auto-refresh [handler options]
(if (:auto-refresh? options)
(wrap-refresh handler)
handler))
(defn- add-middleware [handler options] (defn- add-middleware [handler options]
(-> handler (-> handler
(add-auto-refresh options)
(add-stacktraces options) (add-stacktraces options)
(add-auto-reload options))) (add-auto-reload options)))
@ -73,6 +80,7 @@
:open-browser? - if true, open a web browser after the server starts :open-browser? - if true, open a web browser after the server starts
:stacktraces? - if true, display stacktraces when an exception is thrown :stacktraces? - if true, display stacktraces when an exception is thrown
:auto-reload? - if true, automatically reload source files :auto-reload? - if true, automatically reload source files
:auto-refresh? - if true, automatically refresh browser when source changes
If join? is false, a Server object is returned." If join? is false, a Server object is returned."
{:arglists '([handler] [handler options])} {:arglists '([handler] [handler options])}