immutant web server

-stop method

Author: danielsz

CHANGELOG.org

@@ -2,6 +2,7 @@
 ** 0.4.2-SNAPSHOT
 - Handler component has an option to disable shared root middleware
 - Fix: https://github.com/danielsz/system/issues/120
+- New Riemann client component
 ** 0.4.1
 - REPL server with bind address option
 - Cider REPL server with bind address option

README.org

@@ -31,6 +31,7 @@
 - [[https://github.com/Factual/durable-queue][Durable Queue]] (Factual’s disk-backed task queue)
 - [[https://github.com/danielsz/benjamin][Benjamin]] (Idempotency with side-effects)
 - [[http://www.lambda.cd/][LambdaCD]] (build pipelines as code)
+- [[https://github.com/riemann/riemann-clojure-client][Riemann client]] (client for the network event stream processing system)
 ** Motivation
 A good REPL experience is a prerogative of Lisp languages. [[https://github.com/stuartsierra/reloaded][Reloaded]] components enable this goodness in Clojureland. Since they require an amount of setup, the first steps when starting a new project are generally devoted to infrastructure. My first attempt to tackle the boilerplate was a Leiningen [[https://github.com/danielsz/back-end-template][template]]. The problem is that Leiningen templates are hard to maintain and difficult to retrofit on existing projects. I was finding myself repeatedly updating the template for future use. Then it dawned on me that a library would better fit the bill. And so *system* came to light. It’s now the first dependency I add to any project, allowing me to focus from the get-go on the substance of my application.
 ** Is it good?

project.clj

@@ -31,6 +31,7 @@
                                    [com.taoensso/sente "1.8.1"]
                                    [org.danielsz/etsy "0.1.2"]
                                    [org.danielsz/benjamin "0.1.0-SNAPSHOT"]
+                                   [riemann-clojure-client "0.4.5"]
                                    [compojure "1.4.0"]
                                    [http-kit "2.1.19"]
                                    [lambdacd "0.13.2"]

src/system/components/immutant_web.clj

@@ -5,15 +5,15 @@
             [lang-utils.core :refer [∘ seek]]
             [immutant.web :refer [run stop]]))
 
-(defrecord WebServer [handler server options]
+(defrecord WebServer [handler options]
   component/Lifecycle
   (start [component]
     (let [handler (if (fn? handler) handler (:handler (val (seek (∘ :handler val) component))))
           server (run handler options)]
       (assoc component :server server)))
   (stop [component]
-    (when server
-      (stop server)
+    (if-let [server (:server component)]
+      (assoc component :server (stop server))
       component)))
 
 (def Options

src/system/monitoring/scheduled_executor_service.clj

@@ -1,9 +1,9 @@
 (ns system.monitoring.scheduled-executor-service
-  (:require [system.monitoring.core :as m])
+  (:require [system.monitoring.core :as c])
   (:import [system.components.scheduled_executor_service Scheduler]))
 
 (extend-type Scheduler
-  m/Monitoring
+  c/Monitoring
   (started? [component]
     (not (.isShutdown (:scheduler component))))
   (stopped? [component]