initial commit

4 files changed, 726 insertions, 0 deletions

diff --git a/lisp/webapps/snow/clojurescript/snow/.gitignore b/lisp/webapps/snow/clojurescript/snow/.gitignore
new file mode 100644
index 0000000..77c3a20
--- /dev/null
+++ b/lisp/webapps/snow/clojurescript/snow/.gitignore
@@ -0,0 +1,16 @@
+target
+classes
+resources
+checkouts
+pom.xml
+pom.xml.asc
+*.jar
+*.class
+.lein-*
+.nrepl-port
+.rebel_readline_history
+.hgignore
+.hg
+figwheel-main.edn
+figwheel_server.log
+.rebel_readline_history
diff --git a/lisp/webapps/snow/clojurescript/snow/dev.cljs.edn b/lisp/webapps/snow/clojurescript/snow/dev.cljs.edn
new file mode 100644
index 0000000..4a6eb73
--- /dev/null
+++ b/lisp/webapps/snow/clojurescript/snow/dev.cljs.edn
@@ -0,0 +1,2 @@
+^{:watch-dirs ["src"]}
+{:main snow.core}
diff --git a/lisp/webapps/snow/clojurescript/snow/project.clj b/lisp/webapps/snow/clojurescript/snow/project.clj
new file mode 100644
index 0000000..ae821a3
--- /dev/null
+++ b/lisp/webapps/snow/clojurescript/snow/project.clj
@@ -0,0 +1,20 @@
+(defproject snow.core "0.1.0-SNAPSHOT"
+  :description "FIXME"
+  :url "FIXME"
+  :license "public domain"
+  :min-lein-version "2.7.1"
+  :dependencies [[org.clojure/clojure "LATEST"]
+                 [org.clojure/clojurescript "LATEST"]
+                 [cljs-ajax "LATEST"]
+                 [prismatic/dommy "LATEST"]
+                 [hiccups "LATEST"]
+                 [cljsjs/showdown "LATEST"]
+                 [com.andrewmcveigh/cljs-time "LATEST"]]
+  :source-paths ["src"]
+  :aliases {"fig:build" ["trampoline" "run" "-m" "figwheel.main" "-b" "dev" "-r"]
+            "fig:min"   ["run" "-m" "figwheel.main" "-O" "advanced" "-bo" "dev"]}
+  :profiles {:dev {:dependencies [[com.bhauman/figwheel-main "LATEST"]
+                                  [org.slf4j/slf4j-nop "LATEST"]
+                                  [com.bhauman/rebel-readline-cljs "LATEST"]]
+                   :resource-paths ["target"]
+                   :clean-targets ^{:protect false} ["target"]}})
diff --git a/lisp/webapps/snow/clojurescript/snow/src/core.cljs b/lisp/webapps/snow/clojurescript/snow/src/core.cljs
new file mode 100644
index 0000000..1f6fe21
--- /dev/null
+++ b/lisp/webapps/snow/clojurescript/snow/src/core.cljs
@@ -0,0 +1,688 @@
+(ns snow.core
+  (:require-macros [hiccups.core :as hiccups :refer [html]])
+  (:require [ajax.core :refer [GET POST]]
+            [dommy.core :as dommy]
+            [hiccups.runtime :as hiccupsrt]
+            [clojure.string :as str]
+            [org-ckons-cljs.notifications.core :as ck-notifications]
+            [org-ckons-cljs.form.core :as ck-form]))
+
+;; declarations
+
+(enable-console-print!)
+(def jquery (js* "$"))
+
+(declare notifications)
+(declare template-generic-wait)
+(declare template-menu)
+(declare handler-menu)
+(declare render-menu)
+(declare template-home)
+(declare handler-home)
+(declare render-home)
+(declare template-git-update)
+(declare handler-git-update)
+(declare render-git-update)
+(declare template-git-update-view)
+(declare handler-git-update-view)
+(declare render-git-update-view)
+(declare template-git-update)
+(declare handler-git-update)
+(declare render-git-update)
+(declare template-git-update-view)
+(declare handler-git-update-view)
+(declare render-git-update-view)
+(declare on-git-update-view-clicked)
+(declare template-git-update-results)
+(declare handler-git-update-results)
+(declare render-git-update-results)
+(declare template-asg-recycle)
+(declare handler-asg-recycle)
+(declare render-asg-recycle)
+(declare template-asg-recycle-view)
+(declare handler-asg-recycle-view)
+(declare render-asg-recycle-view)
+(declare on-asg-recycle-results-clicked)
+(declare template-asg-recycle-results)
+(declare handler-asg-recycle-results)
+(declare render-asg-recycle-results)
+(declare on-asg-recycle-results-submit-clicked)
+(declare template-asg-recycle-results-submit)
+(declare handler-asg-recycle-results-submit)
+(declare render-asg-recycle-results-submit)
+(declare template-tfcloud-apply)
+(declare handler-tfcloud-apply)
+(declare render-tfcloud-apply)
+(declare template-tfcloud-apply-view)
+(declare handler-tfcloud-apply-view)
+(declare render-tfcloud-apply-view)
+(declare on-tfcloud-apply-results-clicked)
+(declare template-tfcloud-apply-results)
+(declare handler-tfcloud-apply-results)
+(declare render-tfcloud-apply-results)
+(declare on-tfcloud-apply-results-submit-clicked)
+(declare template-tfcloud-apply-results-submit)
+(declare handler-tfcloud-apply-results-submit)
+(declare render-tfcloud-apply-results-submit)
+(declare template-octopus-machines-with-roles)
+(declare handler-octopus-machines-with-roles)
+(declare render-octopus-machines-with-roles)
+(declare template-octopus-machines-with-roles-view)
+(declare handler-octopus-machines-with-roles-view)
+(declare render-octopus-machines-with-roles-view)
+(declare on-octopus-machines-with-roles-results-clicked)
+(declare template-octopus-machines-with-roles-results)
+(declare handler-octopus-machines-with-roles-results)
+(declare render-octopus-machines-with-roles-results)
+(declare template-octopus-environments-with-roles)
+(declare handler-octopus-environments-with-roles)
+(declare render-octopus-environments-with-roles)
+(declare template-octopus-environments-with-roles-view)
+(declare handler-octopus-environments-with-roles-view)
+(declare render-octopus-environments-with-roles-view)
+(declare on-octopus-environments-with-roles-results-clicked)
+(declare template-octopus-environments-with-roles-results)
+(declare handler-octopus-environments-with-roles-results)
+(declare render-octopus-environments-with-roles-results)
+(declare template-octopus-projects-with-roles)
+(declare handler-octopus-projects-with-roles)
+(declare render-octopus-projects-with-roles)
+(declare template-octopus-projects-with-roles-view)
+(declare handler-octopus-projects-with-roles-view)
+(declare render-octopus-projects-with-roles-view)
+(declare on-octopus-projects-with-roles-results-clicked)
+(declare template-octopus-projects-with-roles-results)
+(declare handler-octopus-projects-with-roles-results)
+(declare render-octopus-projects-with-roles-results)
+(declare template-octopus-ode-deploy-release)
+(declare handler-octopus-ode-deploy-release)
+(declare render-octopus-ode-deploy-release)
+(declare template-octopus-ode-deploy-release-view)
+(declare handler-octopus-ode-deploy-release-view)
+(declare render-octopus-ode-deploy-release-view)
+(declare on-octopus-ode-deploy-release-results-clicked)
+(declare template-octopus-ode-deploy-release-results)
+(declare handler-octopus-ode-deploy-release-results)
+(declare render-octopus-ode-deploy-release-results)
+(declare template-octopus-latest-deployments)
+(declare handler-octopus-latest-deployments)
+(declare render-octopus-latest-deployments)
+(declare template-octopus-latest-deployments-view)
+(declare handler-octopus-latest-deployments-view)
+(declare render-octopus-latest-deployments-view)
+(declare on-octopus-latest-deployments-results-clicked)
+(declare template-octopus-latest-deployments-results)
+(declare handler-octopus-latest-deployments-results)
+(declare render-octopus-latest-deployments-results)
+(declare on-menu-clicked)
+(declare handler-location)
+(declare goto-location)
+
+;; generic table
+
+(defn generic-table [jsonobj & [reverse-p]]
+  (let [results (get jsonobj "results")
+        keys (remove (fn [x]
+                       (not (get (first results) x)))
+                     (sort #(if reverse-p (compare %2 %1) (compare %1 %2)) (keys (first results))))]
+    (cond (empty? results)
+          [:h5 {:style "text-align: center"} "No results found."]
+          :else
+          [:div
+           [:p (str (count results) " results.")]
+           [:table {:class "table table-hover"}
+            [:thead
+             [:tr
+              (for [key keys]
+                [:th key])]]
+            [:tbody
+             (for [rec results]
+               [:tr
+                (for [key keys]
+                  [:td [:code (str (get rec key))]])])]]])))
+  
+;; notifications
+
+(defn notifications [jsonobj]
+  (ck-notifications/maybe-message jsonobj)
+  (ck-notifications/maybe-error jsonobj))
+
+;; generic wait
+
+(hiccups/defhtml template-generic-wait []
+  [:h5 {:style "text-align: center"} "Processing..."])
+
+;; menu
+
+(hiccups/defhtml template-menu [menuitems]
+  [:ul {:class "nav nav-pills"}
+   (for [menuitem menuitems]
+     [:li {:class "nav-item"}
+      [:a {:class (cond (= (str/upper-case (get menuitem "handler"))
+                           (str/upper-case (dommy/html (dommy/sel1 :#location))))
+                        "nav-link active"
+                        :else
+                        "nav-link")
+           :id (get menuitem "id")
+           :onclick (str (namespace ::x) ".on_menu_clicked('" (get menuitem "handler") "')")}
+       (get menuitem "label")]])])
+
+(defn handler-menu [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (dommy/set-html! (dommy/sel1 :#menu) (template-menu (get jsonobj "menuitems")))))
+
+(defn render-menu []
+  (GET "/menu" {:handler handler-menu}))
+
+;; home
+
+(hiccups/defhtml template-home [jsonobj]
+  [:h3 {:style "text-align: center"} (get jsonobj "content")]
+  [:div {:style "text-align: center"}
+   [:img {:src "/static/images/olo-logo.svg"}]])
+
+(defn handler-home [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-home jsonobj))))
+
+(defn render-home
+  ([]
+   (GET "/home" {:handler handler-home}))
+  ([message errormsg]
+   (POST  "/home" {:format :raw
+                   :params {:message message
+                            :errormsg errormsg}
+                   :handler handler-home})))
+
+;; git-update
+
+(hiccups/defhtml template-git-update [jsonobj]
+  [:h3 {:style "text-align: center"} "Update the Olo git checkouts on your workstation."]
+  [:h5 {:style "text-align: center"} "(Assumes that a working github-cli is present.)"]
+  [:div {:id "content"}]
+  [:div {:id "results"}])
+
+(defn handler-git-update [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-git-update jsonobj))
+    (render-git-update-view)))
+
+(defn render-git-update []
+  (GET "/git-update" {:handler handler-git-update}))
+
+;; git-update-view
+
+(hiccups/defhtml template-git-update-view [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(defn handler-git-update-view [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#content) (template-git-update-view jsonobj))))
+
+(defn render-git-update-view []
+  (GET "/git-update/view" {:handler handler-git-update-view}))
+
+;; git-update-results
+
+(defn on-git-update-view-clicked []
+  (render-git-update-results))
+
+(hiccups/defhtml template-git-update-results [jsonobj]
+  [:h5 {:style "text-align: center"}
+   "Process started in background. See the output at " [:code (get jsonobj "stdout")]])
+
+(defn handler-git-update-results [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#results) (template-git-update-results jsonobj))))
+
+(defn render-git-update-results []
+  (POST "/git-update/results" {:handler handler-git-update-results}))
+
+;; asg-recycle
+
+(hiccups/defhtml template-asg-recycle [jsonobj]
+  [:h3 {:style "text-align: center"} "Recycle the ASGs matching the filter."]
+  [:div {:id "content"}]
+  [:div {:id "results-submit-ack"}]
+  [:div {:id "results-submit"}]
+  [:div {:id "results"}])
+
+(defn handler-asg-recycle [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-asg-recycle jsonobj))
+    (render-asg-recycle-view)))
+
+(defn render-asg-recycle []
+  (GET "/asg-recycle" {:handler handler-asg-recycle}))
+
+;; asg-recycle-view
+
+(hiccups/defhtml template-asg-recycle-view [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(defn handler-asg-recycle-view [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#content) (template-asg-recycle-view jsonobj))))
+
+(defn render-asg-recycle-view []
+  (GET "/asg-recycle/view" {:handler handler-asg-recycle-view}))
+
+;; asg-recycle-results
+
+(defn on-asg-recycle-results-clicked []
+  (when (-> (jquery "#asg-recycle-form")
+            (.get "0")
+            (.checkValidity))
+    (dommy/set-html! (dommy/sel1 :#results) (template-generic-wait))
+    (dommy/set-html! (dommy/sel1 :#results-submit) "")
+    (dommy/set-html! (dommy/sel1 :#results-submit-ack) "")
+    (render-asg-recycle-results)))
+
+(hiccups/defhtml template-asg-recycle-results-form [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(hiccups/defhtml template-asg-recycle-results [jsonobj]
+  (generic-table jsonobj true))
+
+(defn handler-asg-recycle-results [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#results) (template-asg-recycle-results jsonobj))
+    (when (not (empty? (get jsonobj "results")))
+      (dommy/set-html! (dommy/sel1 :#results-submit) (template-asg-recycle-results-form jsonobj)))))
+
+(defn render-asg-recycle-results []
+  (POST "/asg-recycle/results" {:format :raw
+                                :params {:profile (dommy/value (dommy/sel1 :#profile))
+                                         :region (dommy/value (dommy/sel1 :#region))
+                                         :filter (dommy/value (dommy/sel1 :#filter))}
+                                :handler handler-asg-recycle-results}))
+
+;; asg-recycle-results-submit
+
+(defn on-asg-recycle-results-submit-clicked [howmany]
+  (dommy/set-html! (dommy/sel1 :#results-submit-ack) (template-generic-wait))
+    (render-asg-recycle-results-submit howmany))
+
+(hiccups/defhtml template-asg-recycle-results-submit [jsonobj]
+  [:h5 {:style "text-align: center"} "Process started in background."])
+
+(defn handler-asg-recycle-results-submit [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#results-submit) "")
+    (dommy/set-html! (dommy/sel1 :#results-submit-ack) (template-asg-recycle-results-submit jsonobj))))
+
+(defn render-asg-recycle-results-submit [howmany]
+  (POST "/asg-recycle/results/submit" {:format :raw
+                                       :params {:howmany howmany}
+                                       :handler handler-asg-recycle-results-submit}))
+
+;; tfcloud-apply
+
+(hiccups/defhtml template-tfcloud-apply [jsonobj]
+  [:h3 {:style "text-align: center"} "Apply the TFCloud workspaces matching the filter."]
+  [:div {:id "content"}]
+  [:div {:id "results-submit-ack"}]
+  [:div {:id "results-submit"}]
+  [:div {:id "results"}])
+
+(defn handler-tfcloud-apply [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-tfcloud-apply jsonobj))
+    (render-tfcloud-apply-view)))
+
+(defn render-tfcloud-apply []
+  (GET "/tfcloud-apply" {:handler handler-tfcloud-apply}))
+
+;; tfcloud-apply-view
+
+(hiccups/defhtml template-tfcloud-apply-view [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(defn handler-tfcloud-apply-view [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#content) (template-tfcloud-apply-view jsonobj))))
+
+(defn render-tfcloud-apply-view []
+  (GET "/tfcloud-apply/view" {:handler handler-tfcloud-apply-view}))
+
+;; tfcloud-apply-results
+
+(defn on-tfcloud-apply-results-clicked []
+  (when (-> (jquery "#tfcloud-apply-form")
+            (.get "0")
+            (.checkValidity))
+    (dommy/set-html! (dommy/sel1 :#results) (template-generic-wait))
+    (dommy/set-html! (dommy/sel1 :#results-submit) "")
+    (dommy/set-html! (dommy/sel1 :#results-submit-ack) "")
+    (render-tfcloud-apply-results)))
+
+(hiccups/defhtml template-tfcloud-apply-results-form [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(hiccups/defhtml template-tfcloud-apply-results [jsonobj]
+  (generic-table jsonobj true))
+
+(defn handler-tfcloud-apply-results [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#results) (template-tfcloud-apply-results jsonobj))
+    (when (not (empty? (get jsonobj "results")))
+      (dommy/set-html! (dommy/sel1 :#results-submit) (template-tfcloud-apply-results-form jsonobj)))))
+
+(defn render-tfcloud-apply-results []
+  (POST "/tfcloud-apply/results" {:format :raw
+                                  :params {:filter (dommy/value (dommy/sel1 :#filter))}
+                                  :handler handler-tfcloud-apply-results}))
+
+;; tfcloud-apply-results-submit
+
+(defn on-tfcloud-apply-results-submit-clicked []
+  (dommy/set-html! (dommy/sel1 :#results-submit-ack) (template-generic-wait))
+  (render-tfcloud-apply-results-submit))
+
+(hiccups/defhtml template-tfcloud-apply-results-submit [jsonobj]
+  [:h5 {:style "text-align: center"} "Process started in background."])
+
+(defn handler-tfcloud-apply-results-submit [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#results-submit) "")
+    (dommy/set-html! (dommy/sel1 :#results-submit-ack) (template-tfcloud-apply-results-submit jsonobj))))
+
+(defn render-tfcloud-apply-results-submit []
+  (POST "/tfcloud-apply/results/submit" {:handler handler-tfcloud-apply-results-submit}))
+
+;; octopus-machines-with-roles
+
+(hiccups/defhtml template-octopus-machines-with-roles [jsonobj]
+  [:h3 {:style "text-align: center"} "Find the Octopus machines and their environments containing the roles."]
+  [:div {:id "content"}]
+  [:div {:id "results"}])
+
+(defn handler-octopus-machines-with-roles [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-octopus-machines-with-roles jsonobj))
+    (render-octopus-machines-with-roles-view)))
+
+(defn render-octopus-machines-with-roles []
+  (GET "/octopus-machines-with-roles" {:handler handler-octopus-machines-with-roles}))
+
+;; octopus-machines-with-roles-view
+
+(hiccups/defhtml template-octopus-machines-with-roles-view [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(defn handler-octopus-machines-with-roles-view [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#content) (template-octopus-machines-with-roles-view jsonobj))))
+
+(defn render-octopus-machines-with-roles-view []
+  (GET "/octopus-machines-with-roles/view" {:handler handler-octopus-machines-with-roles-view}))
+
+;; octopus-machines-with-roles-results
+
+(defn on-octopus-machines-with-roles-results-clicked []
+  (when (-> (jquery "#octopus-machines-with-roles-form")
+            (.get "0")
+            (.checkValidity))
+    (dommy/set-html! (dommy/sel1 :#results) (template-generic-wait))
+    (render-octopus-machines-with-roles-results)))
+
+(hiccups/defhtml template-octopus-machines-with-roles-results [jsonobj]
+  (generic-table jsonobj))
+
+(defn handler-octopus-machines-with-roles-results [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#results) (template-octopus-machines-with-roles-results jsonobj))))
+
+(defn render-octopus-machines-with-roles-results []
+  (POST "/octopus-machines-with-roles/results" {:format :raw
+                                                :params {:roles (dommy/value (dommy/sel1 :#roles))}
+                                                :handler handler-octopus-machines-with-roles-results}))
+
+;; octopus-environments-with-roles
+
+(hiccups/defhtml template-octopus-environments-with-roles [jsonobj]
+  [:h3 {:style "text-align: center"} "Find the octopus ODE environments with machines containing the roles."]
+  [:div {:id "content"}]
+  [:div {:id "results"}])
+
+(defn handler-octopus-environments-with-roles [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-octopus-environments-with-roles jsonobj))
+    (render-octopus-environments-with-roles-view)))
+
+(defn render-octopus-environments-with-roles []
+  (GET "/octopus-environments-with-roles" {:handler handler-octopus-environments-with-roles}))
+
+;; octopus-environments-with-roles-view
+
+(hiccups/defhtml template-octopus-environments-with-roles-view [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(defn handler-octopus-environments-with-roles-view [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#content) (template-octopus-environments-with-roles-view jsonobj))))
+
+(defn render-octopus-environments-with-roles-view []
+  (GET "/octopus-environments-with-roles/view" {:handler handler-octopus-environments-with-roles-view}))
+
+;; octopus-environments-with-roles-results
+
+(defn on-octopus-environments-with-roles-results-clicked []
+  (when (-> (jquery "#octopus-environments-with-roles-form")
+            (.get "0")
+            (.checkValidity))
+    (dommy/set-html! (dommy/sel1 :#results) (template-generic-wait))
+    (render-octopus-environments-with-roles-results)))
+
+(hiccups/defhtml template-octopus-environments-with-roles-results [jsonobj]
+  (generic-table jsonobj true))
+
+(defn handler-octopus-environments-with-roles-results [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#results) (template-octopus-environments-with-roles-results jsonobj))))
+
+(defn render-octopus-environments-with-roles-results []
+  (POST "/octopus-environments-with-roles/results" {:format :raw
+                                                    :params {:roles (dommy/value (dommy/sel1 :#roles))
+                                                             :ode_only_p (.-checked (dommy/sel1 :#ode_only_p))}
+                                                    :handler handler-octopus-environments-with-roles-results}))
+
+;; octopus-projects-with-roles
+
+(hiccups/defhtml template-octopus-projects-with-roles [jsonobj]
+  [:h3 {:style "text-align: center"} "Find all octopus projects containing the supplied roles."]
+  [:div {:id "content"}]
+  [:div {:id "results"}])
+
+(defn handler-octopus-projects-with-roles [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-octopus-projects-with-roles jsonobj))
+    (render-octopus-projects-with-roles-view)))
+
+(defn render-octopus-projects-with-roles []
+  (GET "/octopus-projects-with-roles" {:handler handler-octopus-projects-with-roles}))
+
+;; octopus-projects-with-roles-view
+
+(hiccups/defhtml template-octopus-projects-with-roles-view [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(defn handler-octopus-projects-with-roles-view [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#content) (template-octopus-projects-with-roles-view jsonobj))))
+
+(defn render-octopus-projects-with-roles-view []
+  (GET "/octopus-projects-with-roles/view" {:handler handler-octopus-projects-with-roles-view}))
+
+;; octopus-projects-with-roles-results
+
+(defn on-octopus-projects-with-roles-results-clicked []
+  (when (-> (jquery "#octopus-projects-with-roles-form")
+            (.get "0")
+             (.checkValidity))
+    (dommy/set-html! (dommy/sel1 :#results) (template-generic-wait))
+    (render-octopus-projects-with-roles-results)))
+
+(hiccups/defhtml template-octopus-projects-with-roles-results [jsonobj]
+  [:h5 {:style "text-align: center"}
+   "Process started in background. See the output at " [:code (get jsonobj "stdout")]])
+
+(defn handler-octopus-projects-with-roles-results [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#results) (template-octopus-projects-with-roles-results jsonobj))))
+
+(defn render-octopus-projects-with-roles-results []
+  (POST "/octopus-projects-with-roles/results" {:format :raw
+                                                :params {:roles (dommy/value (dommy/sel1 :#roles))}
+                                                :handler handler-octopus-projects-with-roles-results}))
+
+;; octopus-ode-deploy-release
+
+(hiccups/defhtml template-octopus-ode-deploy-release [jsonobj]
+  [:h3 {:style "text-align: center"} "Deploy an octopus release to one or more ODEs."]
+  [:div {:id "content"}]
+  [:div {:id "results"}])
+
+(defn handler-octopus-ode-deploy-release [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-octopus-ode-deploy-release jsonobj))
+    (render-octopus-ode-deploy-release-view)))
+
+(defn render-octopus-ode-deploy-release []
+  (GET "/octopus-ode-deploy-release" {:handler handler-octopus-ode-deploy-release}))
+
+;; octopus-ode-deploy-release-view
+
+(hiccups/defhtml template-octopus-ode-deploy-release-view [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(defn handler-octopus-ode-deploy-release-view [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#content) (template-octopus-ode-deploy-release-view jsonobj))))
+
+(defn render-octopus-ode-deploy-release-view []
+  (GET "/octopus-ode-deploy-release/view" {:handler handler-octopus-ode-deploy-release-view}))
+
+;; octopus-ode-deploy-release-results
+
+(defn on-octopus-ode-deploy-release-results-clicked []
+  (when (-> (jquery "#octopus-ode-deploy-release-form")
+            (.get "0")
+            (.checkValidity))
+    (dommy/set-html! (dommy/sel1 :#results) (template-generic-wait))
+    (render-octopus-ode-deploy-release-results)))
+
+(hiccups/defhtml template-octopus-ode-deploy-release-results [jsonobj]
+  [:h5 {:style "text-align: center"}
+   "Process started in background. See the output at " [:code (get jsonobj "stdout")]])
+
+(defn handler-octopus-ode-deploy-release-results [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#results) (template-octopus-ode-deploy-release-results jsonobj))))
+
+(defn render-octopus-ode-deploy-release-results []
+  (POST "/octopus-ode-deploy-release/results" {:format :raw
+                                               :params {:project_name (dommy/value (dommy/sel1 :#project_name))
+                                                        :version (dommy/value (dommy/sel1 :#version))
+                                                        :ode_names (dommy/value (dommy/sel1 :#ode_names))}
+                                               :handler handler-octopus-ode-deploy-release-results}))
+
+;; octopus-latest-deployments
+
+(hiccups/defhtml template-octopus-latest-deployments [jsonobj]
+  [:h3 {:style "text-align: center"} "Find the latest octopus deployments in each environment."]
+  [:div {:id "content"}]
+  [:div {:id "results"}])
+
+(defn handler-octopus-latest-deployments [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-octopus-latest-deployments jsonobj))
+    (render-octopus-latest-deployments-view)))
+
+(defn render-octopus-latest-deployments []
+  (GET "/octopus-latest-deployments" {:handler handler-octopus-latest-deployments}))
+
+;; octopus-latest-deployments-view
+
+(hiccups/defhtml template-octopus-latest-deployments-view [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(defn handler-octopus-latest-deployments-view [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#content) (template-octopus-latest-deployments-view jsonobj))))
+
+(defn render-octopus-latest-deployments-view []
+  (GET "/octopus-latest-deployments/view" {:handler handler-octopus-latest-deployments-view}))
+
+;; octopus-latest-deployments-results
+
+(defn on-octopus-latest-deployments-results-clicked []
+  (when (-> (jquery "#octopus-latest-deployments-form")
+            (.get "0")
+            (.checkValidity))
+    (dommy/set-html! (dommy/sel1 :#results) (template-generic-wait))
+    (render-octopus-latest-deployments-results)))
+
+(hiccups/defhtml template-octopus-latest-deployments-results [jsonobj]
+  (generic-table jsonobj false))
+
+(defn handler-octopus-latest-deployments-results [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#results) (template-octopus-latest-deployments-results jsonobj))))
+
+(defn render-octopus-latest-deployments-results []
+  (POST "/octopus-latest-deployments/results" {:format :raw
+                                               :params {:ode_only_p (.-checked (dommy/sel1 :#ode_only_p))}
+                                               :handler handler-octopus-latest-deployments-results}))
+
+;; location
+
+(defn on-menu-clicked [handler]
+  (dommy/set-html! (dommy/sel1 :#location) handler)
+  (render-menu)
+  (cond (= handler "/home") (render-home))
+  (cond (= handler "/git-update") (render-git-update))
+  (cond (= handler "/asg-recycle") (render-asg-recycle))
+  (cond (= handler "/tfcloud-apply") (render-tfcloud-apply))
+  (cond (= handler "/octopus-machines-with-roles") (render-octopus-machines-with-roles))
+  (cond (= handler "/octopus-environments-with-roles") (render-octopus-environments-with-roles))
+  (cond (= handler "/octopus-projects-with-roles") (render-octopus-projects-with-roles))
+  (cond (= handler "/octopus-ode-deploy-release") (render-octopus-ode-deploy-release))
+  (cond (= handler "/octopus-latest-deployments") (render-octopus-latest-deployments)))
+
+(defn handler-location [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (on-menu-clicked (get jsonobj "location"))
+    (notifications jsonobj)))
+
+(defn goto-location [location]
+  (POST "/location" {:format :raw
+                     :params {:location location}
+                     :handler handler-location}))