reloaded

app.clj

(ns app
  (:gen-class))

(defn -main [& args]
  (require 'myapp.core)
  (eval `(apply myapp.core/old-main ~args)))

jetty.clj

(defrecord JettyServer [cfg state]
  LifeCycle
  (start [_]
    (reset! state (jetty/run-jetty my-site {:port (:port cfg) :join? false}))
  (stop [_]
    (when @state
      (.stop @state)
      (reset! state nil))))

(defn create-jetty [cfg]
  (->JettyServer cfg (atom nil)))

lifecycle.clj

(ns lifecycle)

(defprotocol LifeCycle
  (start [this])
  (stop [this]))

(defn start-system [system]
  (doseq [s (->> system :order (map system))]
    (start s)))

(defn stop-system [system]
  (doseq [s (->> system :order (map system) reverse)]
    (stop s)))

system.clj

(defn create-system [cfg]
  {:jetty (create-jetty-server cfg)
   :rabbit (create-rabbitmq-channel cfg)
   :order [:rabbit :jetty])

(defn app-main []
  (let [cfg (config/create-config)
        system (create-system cfg)]
    (start-system system)
    ;; (.await) / (.join) / (deref) etc...
    (stop-system system)))