diff options
Diffstat (limited to 'lisp/webapps/snow/clojurescript')
| -rw-r--r-- | lisp/webapps/snow/clojurescript/snow/.gitignore | 16 | ||||
| -rw-r--r-- | lisp/webapps/snow/clojurescript/snow/dev.cljs.edn | 2 | ||||
| -rw-r--r-- | lisp/webapps/snow/clojurescript/snow/project.clj | 20 | ||||
| -rw-r--r-- | lisp/webapps/snow/clojurescript/snow/src/core.cljs | 688 |
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})) |