.spacemacs.el

  (prodigy-define-service
    :name "Bunsen Web"
    :command "/Users/will/Dropbox/Projects/Bunsen/web/node_modules/.bin/roots"
    :args '("watch" "--no-open")
    :cwd "/Users/will/Dropbox/Projects/Bunsen/web"
    :tags '(bunsen)
    :env '(("PORT" "8081"))
    :kill-signal 'sigkill)

  (prodigy-define-service
    :name "Bunsen HAProxy"
    :command "haproxy"
    :args '("-db" "-f" "haproxy.cfg")
    :cwd "/Users/will/Dropbox/Projects/Bunsen/haproxy"
    :tags '(bunsen)
    :env '(("WEB_SERVER" "127.0.0.1:8081")
           ("API_SERVER" "127.0.0.1:3000")
           ("RIEMANN_SERVER" "127.0.0.1:5556")
           ("BEAKER_SERVER" "192.168.59.103:8801"))
    :kill-signal 'sigkill)

  (defun my-prodigy-running-services ()
    (remove-if-not (lambda (service)
                     (eq (plist-get service :status)
                         'running))
                   prodigy-services))

  (add-hook 'kill-emacs-query-functions
            (lambda ()
              (let ((running-prodigy-services (my-prodigy-running-services)))
                (when running-prodigy-services
                  (when (y-or-n-p "Kill prodigy services? ")
                    (dolist (service running-prodigy-services)
                      (prodigy-stop-service service)
                      ;; TODO: wait for services to actually stop
                      (sleep-for 5)))))
              t)))