initial commit

4 files changed, 1115 insertions, 0 deletions

diff --git a/lisp/webapps/resume/clojurescript/resume/.gitignore b/lisp/webapps/resume/clojurescript/resume/.gitignore
new file mode 100644
index 0000000..77c3a20
--- /dev/null
+++ b/lisp/webapps/resume/clojurescript/resume/.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/resume/clojurescript/resume/dev.cljs.edn b/lisp/webapps/resume/clojurescript/resume/dev.cljs.edn
new file mode 100644
index 0000000..b2a7ff0
--- /dev/null
+++ b/lisp/webapps/resume/clojurescript/resume/dev.cljs.edn
@@ -0,0 +1,2 @@
+^{:watch-dirs ["src"]}
+{:main resume.core}
diff --git a/lisp/webapps/resume/clojurescript/resume/project.clj b/lisp/webapps/resume/clojurescript/resume/project.clj
new file mode 100644
index 0000000..a19d784
--- /dev/null
+++ b/lisp/webapps/resume/clojurescript/resume/project.clj
@@ -0,0 +1,24 @@
+(defproject resume.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"]
+                 [cljsjs/react "LATEST"]
+                 [cljsjs/react-dom "LATEST"]
+                 [cljsjs/react-dom-server "LATEST"]
+                 [reagent "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/resume/clojurescript/resume/src/core.cljs b/lisp/webapps/resume/clojurescript/resume/src/core.cljs
new file mode 100644
index 0000000..7010a88
--- /dev/null
+++ b/lisp/webapps/resume/clojurescript/resume/src/core.cljs
@@ -0,0 +1,1073 @@
+(ns resume.core
+  (:require-macros [hiccups.core :as hiccups :refer [html]])
+  (:require [ajax.core :refer [GET POST PUT DELETE raw-response-format]]
+            [dommy.core :as dommy]
+            [hiccups.runtime :as hiccupsrt]
+            [cljsjs.showdown :as showdown]
+            [clojure.string :as str]
+            [cljs-time.format :as time-format]
+            [reagent.core :as r]
+            [reagent.dom :as rd]
+            [reagent.dom.client :as rdc]
+            [org-ckons-cljs.notifications.react :as ck-notifications]
+            [org-ckons-cljs.form.core :as ck-form]))
+
+;; declarations
+
+(declare date-sql-to-pretty)
+(declare markdown-to-html)
+(declare reduce-checkboxes)
+(declare comp-app)
+(declare start-render)
+(declare start-location)
+(declare reset-location)
+(declare start)
+(declare notifications)
+(declare auth-notifications)
+(declare comp-menu-main)
+(declare comp-menu-user)
+(declare handler-menu)
+(declare handler-menu-user)
+(declare render-menu)
+(declare comp-home)
+(declare handler-home)
+(declare render-home)
+(declare template-login)
+(declare handler-login)
+(declare render-login)
+(declare on-login-submit-clicked)
+(declare handler-login-authenticate)
+(declare render-login-authenticate)
+(declare handler-logout)
+(declare render-logout)
+(declare template-profile)
+(declare handler-profile)
+(declare render-profile)
+(declare template-profile-view)
+(declare handler-profile-view)
+(declare render-profile-view)
+(declare on-profile-modify-clicked)
+(declare template-profile-modify)
+(declare handler-profile-modify)
+(declare render-profile-modify)
+(declare on-profile-modify-submit-clicked)
+(declare handler-profile-modify-submit)
+(declare render-profile-modify-submit)
+(declare template-password)
+(declare handler-password)
+(declare render-password)
+(declare on-password-submit-clicked)
+(declare handler-password-submit)
+(declare render-password-submit)
+(declare template-about-us)
+(declare handler-about-us)
+(declare render-lessons)
+(declare template-about-us-view)
+(declare handler-about-us-view)
+(declare render-about-us-view)
+(declare on-about-us-modify-clicked)
+(declare template-about-us-modify)
+(declare handler-about-us-modify)
+(declare render-about-us-modify)
+(declare on-about-us-modify-submit-clicked)
+(declare handler-about-us-modify-submit)
+(declare render-about-us-modify-submit)
+(declare template-contact-us)
+(declare handler-contact-us)
+(declare render-contact-us)
+(declare template-contact-us-view)
+(declare handler-contact-us-view)
+(declare render-contact-us-view)
+(declare on-contact-us-email-submit-clicked)
+(declare handler-contact-us-email-submit)
+(declare render-contact-us-email-submit)
+(declare template-messages)
+(declare handler-messages)
+(declare render-messages)
+(declare on-messages-mode-clicked)
+(declare template-messages-results)
+(declare handler-messages-results)
+(declare render-messages-results)
+(declare on-messages-mark)
+(declare handler-messages-mark)
+(declare render-messages-mark)
+(declare template-users)
+(declare handler-users)
+(declare render-users)
+(declare template-users-view)
+(declare handler-users-view)
+(declare render-users-view)
+(declare on-users-add-clicked)
+(declare template-users-add)
+(declare handler-users-add)
+(declare render-users-add)
+(declare on-users-add-submit-clicked)
+(declare handler-users-add-submit)
+(declare render-users-add-submit)
+(declare template-users-register)
+(declare handler-users-register)
+(declare render-users-register)
+(declare template-users-register-form)
+(declare handler-users-register-form)
+(declare handler-users-register-form-impl)
+(declare render-users-register-form)
+(declare on-users-register-submit-clicked)
+(declare template-users-register-submit)
+(declare handler-users-register-submit)
+(declare render-users-register-submit)
+(declare on-users-modify-clicked)
+(declare template-users-modify)
+(declare handler-users-modify)
+(declare render-users-modify)
+(declare on-users-modify-submit-clicked)
+(declare handler-users-modify-submit)
+(declare render-users-modify-submit)
+(declare on-users-toggle-active-clicked)
+(declare handler-users-toggle-active)
+(declare render-users-toggle-active)
+(declare on-users-delete-clicked)
+(declare handler-users-delete)
+(declare render-users-delete)
+(declare on-menu-clicked)
+(declare handler-location)
+(declare goto-location)
+(declare goto-register)
+(declare reset-app)
+(declare reset-about-us-category)
+
+(enable-console-print!)
+
+(defonce jquery (js* "$"))
+(defonce sql-formatter (time-format/formatter "yyyy-MM-dd HH:mm:ss"))
+(defonce pretty-formatter (time-format/formatters :rfc822))
+(defonce location-state (r/atom "/home"))
+(defonce about-us-category-state (r/atom nil))
+(defonce menu-main-state (r/atom []))
+(defonce menu-user-state (r/atom []))
+(defonce menu-user-label (r/atom nil))
+
+;; helper functions
+
+(defn date-sql-to-pretty [sql-date]
+  (first (str/split (time-format/unparse pretty-formatter (time-format/parse sql-formatter (first (str/split sql-date ".")))) " Z")))
+
+(defn markdown-to-html [markdown]
+  (let [converter (js/showdown.Converter.)]
+    (.makeHtml converter markdown)))
+
+(defn reduce-checkboxes [selector]
+  "Reduces the names of all checked checkboxes to a pipe-separated
+  list. Assumes that the checkboxes are named via the convention
+  `chk_something-more'. The important thing is the underscore
+  separating the throwaway prefix and the remaining useful
+  bit. `selector' will likely be something like: [id^='chk_']"
+  (reduce (fn [x y]
+            (cond (and x y) (str x "|" y)
+                  (and x (not y)) x
+                  (and (not x) y) y
+                  :else ""))
+          (map (fn [elem]
+                 (let [this (jquery (str "#" (dommy/attr elem :id)))]
+                   (when (-> this (.prop "checked"))
+                     (second (str/split (-> this (.prop "id")) "_")))))
+               (.toArray (jquery selector)))))
+
+;; body
+
+(defn comp-app []
+  [:div {:class "container-fluid"}
+   [:div {:class "banner"}
+    [:table {:width "100%" :height "100%"}
+     [:tbody
+      [:tr
+       [:td {:class "banner-menu"}
+        [comp-menu-user]]
+       [:td {:class "banner-title"} "Bogen-" [:i "Herr"]]
+       [:td {:class "banner-menu"} " "]]]]]
+   [comp-menu-main]
+   [ck-notifications/comp-errormsg]
+   [ck-notifications/comp-message]
+   [:div {:id "body"}]
+   [:div {:id "footer"}
+    [:hr]
+    "Carlos Konstanski (970) 294-9708"
+    [:br]
+    [:a {:href "https://github.com/ckonstanski/resume/tree/master"
+         :target "_blank"}
+     "Source code on GitHub"]]])
+
+;; start the react app
+
+(defn start-render []
+  (let [app-root (rdc/create-root (js/document.getElementById "app"))]
+    (rdc/render app-root [comp-app])))
+
+(defn start-location []
+  (cond (str/starts-with? @location-state "/register/")
+        (goto-register (str/replace-first @location-state "/register/" ""))
+        :else
+        (goto-location @location-state)))
+
+(defn reset-location [url]
+  (reset! location-state url))
+
+(defn reset-about-us-category [category]
+  (reset! about-us-category-state category))
+
+(defn ^:dev/after-load start
+  ([]
+   (start-render)
+   (start-location))
+  ([url]
+   (reset-location url)
+   (start-render)
+   (start-location)))
+
+;; notifications
+
+(defn notifications [jsonobj]
+  (ck-notifications/reset-message (get jsonobj "message"))
+  (ck-notifications/reset-errormsg (get jsonobj "errormsg")))
+
+(defn auth-notifications [jsonobj]
+  (cond (empty? (get jsonobj "errormsg"))
+        (notifications jsonobj)
+        :else
+        (do
+          (render-home "" (get jsonobj "errormsg"))
+          (render-menu))))
+
+;; menu
+
+(defn comp-menu-main []
+  [:div {:class "well"}
+   [:ul {:class "nav nav-pills"}
+    (for [menuitem @menu-main-state]
+      [:li {:key (str "li_" (get menuitem "id"))
+            :class "nav-item"}
+       [:a {:class (cond (= (str/upper-case (get menuitem "handler"))
+                            (str/upper-case @location-state))
+                         "nav-link active"
+                         :else
+                         "nav-link")
+            :key (get menuitem "id")
+            :on-click #(on-menu-clicked (get menuitem "handler"))}
+        (get menuitem "label")]])]])
+
+(defn comp-menu-user []
+  [:div {:class "dropdown"}
+   [:button {:class "btn btn-primary dropdown-toggle"
+             :type "button"
+             :id "button-menu-user"
+             :data-toggle "dropdown"
+             :aria-haspopup "true"
+             :aria-expanded "false"}
+    @menu-user-label]
+   [:div {:class "dropdown-menu" :aria-labelledby "button-menu-user"}
+    (for [menuitem @menu-user-state]
+      [:a {:key (get menuitem "id")
+           :class "dropdown-item"
+           :on-click #(on-menu-clicked (get menuitem "handler"))}
+       (get menuitem "label")])]])
+
+(defn handler-menu [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (reset! menu-main-state (get jsonobj "menuitems"))))
+
+(defn handler-menu-user [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (reset! menu-user-state (get jsonobj "menuitems"))
+    (reset! menu-user-label (get jsonobj "label"))))
+
+(defn render-menu []
+  (GET "/menu" {:handler handler-menu})
+  (GET "/menu/user" {:handler handler-menu-user}))
+
+;; home
+
+(hiccups/defhtml template-home [jsonobj]
+  [:div
+   [:h2 {:style "text-align: center"} "Welcome To Carlos Konstanski's Music Studio"]
+   [:h3 {:style "text-align: center"}
+    [:i "a.k.a. der Bogenherr" [:br] "a.k.a. Dr. Divertimento"]]
+   [:h2 {:style "text-align: center"} "Study the Violin, Viola and Viola d'Amore With Me!"]
+   [:div {:style "text-align: center"}
+    [:img {:style "width: 100%"
+           :src "/static/images/instrument-cabinet.jpg"}]]])
+
+(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})))
+
+;; login
+
+(hiccups/defhtml template-login [jsonobj]
+  [:h3 {:style "text-align: center"} (get jsonobj "title")]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x))
+  [:div {:style "text-align: center"}
+   [:a {:href ""} "Forgot password?"]])
+
+(defn handler-login [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-login jsonobj))))
+
+(defn render-login []
+  (GET "/login" {:handler handler-login}))
+
+;; login-authenticate
+
+(defn on-login-submit-clicked []
+  (when (-> (jquery "#login-form")
+            (.get "0")
+            (.checkValidity))
+    (render-login-authenticate)))
+
+(defn handler-login-authenticate [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (cond (get jsonobj "errormsg")
+          (goto-location "/login")
+          (get jsonobj "message")
+          (do
+            (reset-location "/home")
+            (render-home)
+            (render-menu)))))
+
+(defn render-login-authenticate []
+  (POST "/login/authenticate"
+        {:format :raw
+         :params {:username (dommy/value (dommy/sel1 :#username))
+                  :pwd (dommy/value (dommy/sel1 :#pwd))}
+         :handler handler-login-authenticate}))
+
+;; logout
+
+(defn handler-logout [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (render-home "You are now logged out" "")
+    (reset-location "/home")
+    (render-menu)))
+
+(defn render-logout []
+  (GET "/logout" {:handler handler-logout}))
+
+;; profile
+
+(hiccups/defhtml template-profile [jsonobj]
+  [:h3 {:style "text-align: center"} (get jsonobj "title")]
+  [:div {:id "content"}]
+  [:div {:id "modify"
+         :class "modal fade"
+         :role "dialog"
+         :tabindex "-1"}
+   [:div {:class "modal-dialog modal-lg"}
+    [:div {:class "modal-content"}
+     [:div {:class "modal-header"}
+      [:h5 {:class "modal-title"} "Profile - Modify"]
+      [:button {:type "button"
+                :class "close"
+                :data-dismiss "modal"}
+       "×"]]
+     [:div {:id "modify-body"
+            :class "modal-body"
+            :style "height: 460px;"}]
+     [:div {:class "modal-footer"}
+      [:button {:type "submit"
+                :class "btn btn-danger btn-default"
+                :data-dismiss "modal"}
+       [:span {:class "glyphicon glyphicon-remove"}]
+       "Cancel"]]]]])
+
+(defn handler-profile [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-profile jsonobj))
+    (render-profile-view)))
+
+(defn render-profile []
+  (GET "/profile" {:handler handler-profile}))
+
+;; profile-view
+
+(hiccups/defhtml template-profile-view [jsonobj]
+  [:div {:style "text-align: right"}
+   [:img {:src "/static/images/edit.png"
+          :style "cursor:pointer; cursor:hand"
+          :onclick (str (namespace ::x) ".on_profile_modify_clicked()")}]]
+  [:div {:class "container"}
+   [:div {:class "row"}
+    [:div {:class "col" :style "text-align: right"} "Username:"]
+    [:div {:class "col-10"} (get jsonobj "username")]]
+   [:div {:class "row"}
+    [:div {:class "col" :style "text-align: right"} "First Name:"]
+    [:div {:class "col-10"} (get jsonobj "first_name")]]
+   [:div {:class "row"}
+    [:div {:class "col" :style "text-align: right"} "Last Name:"]
+    [:div {:class "col-10"} (get jsonobj "last_name")]]
+   [:div {:class "row"}
+    [:div {:class "col" :style "text-align: right"} "Email:"]
+    [:div {:class "col-10"} (get jsonobj "email")]]
+   [:div {:class "row"}
+    [:div {:class "col" :style "text-align: right"} "Phone:"]
+    [:div {:class "col-10"} (get jsonobj "phone")]]])
+
+(defn handler-profile-view [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (dommy/set-html! (dommy/sel1 :#content) (template-profile-view jsonobj))))
+
+(defn render-profile-view []
+  (GET "/profile/view" {:handler handler-profile-view}))
+
+;; profile-modify
+
+(defn on-profile-modify-clicked []
+  (render-profile-modify))
+
+(hiccups/defhtml template-profile-modify [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(defn handler-profile-modify [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (auth-notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#modify-body) (template-profile-modify jsonobj))
+    (.modal (jquery "#modify"))))
+
+(defn render-profile-modify []
+  (POST "/profile/modify" {:handler handler-profile-modify}))
+
+;; profile-modify-submit
+
+(defn on-profile-modify-submit-clicked []
+  (when (-> (jquery "#profile-modify-form")
+            (.get "0")
+            (.checkValidity))
+    (.modal (jquery "#modify") "hide")
+    (render-profile-modify-submit)))
+
+(defn handler-profile-modify-submit [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (auth-notifications jsonobj)
+    (on-menu-clicked "/profile")))
+
+(defn render-profile-modify-submit []
+  (POST "/profile/modify/submit"
+        {:format :raw
+         :params {:id (dommy/value (dommy/sel1 :#id))
+                  :username (dommy/value (dommy/sel1 :#username))
+                  :first_name (dommy/value (dommy/sel1 :#first_name))
+                  :last_name (dommy/value (dommy/sel1 :#last_name))
+                  :email (dommy/value (dommy/sel1 :#email))
+                  :phone (dommy/value (dommy/sel1 :#phone))}
+         :handler handler-profile-modify-submit}))
+
+;; password
+
+(hiccups/defhtml template-password [jsonobj]
+  [:h3 {:style "text-align: center"} (get jsonobj "title")]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(defn handler-password [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-password jsonobj))))
+
+(defn render-password []
+  (GET "/password" {:handler handler-password}))
+
+;; password-submit
+
+(defn on-password-submit-clicked []
+  (when (-> (jquery "#password-form")
+            (.get "0")
+            (.checkValidity))
+    (render-password-submit)))
+
+(defn handler-password-submit [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (auth-notifications jsonobj)
+    (on-menu-clicked "/password")))
+
+(defn render-password-submit []
+  (POST "/password/submit"
+        {:format :raw
+         :params {:id (dommy/value (dommy/sel1 :#id))
+                  :pwd (dommy/value (dommy/sel1 :#pwd))
+                  :pwd2 (dommy/value (dommy/sel1 :#pwd2))}
+         :handler handler-password-submit}))
+
+;; about-us (lessons, gigs, programming)
+
+(hiccups/defhtml template-about-us [jsonobj]
+  [:h1 {:style "text-align: center"}
+   (cond (= @about-us-category-state "lessons") "About the Studio"
+         (= @about-us-category-state "gigs") "Hire Me to Play"
+         (= @about-us-category-state "programming") "Hire Me to Write Software")]
+  [:div {:id "content"}]
+  [:div {:id "modify"
+         :class "modal fade"
+         :role "dialog"
+         :tabindex "-1"}
+   [:div {:class "modal-dialog modal-lg"}
+    [:div {:class "modal-content"}
+     [:div {:class "modal-header"}
+      [:h5 [:span {:id "modify-title"}]]
+      [:button {:type "button"
+                :class "close"
+                :data-dismiss "modal"}
+       "×"]]
+     [:div {:id "modify-body"
+            :class "modal-body"
+            :style "height: 460px;"}]
+     [:div {:class "modal-footer"}
+      [:button {:type "submit"
+                :class "btn btn-danger btn-default"
+                :data-dismiss "modal"}
+       [:span {:class "glyphicon glyphicon-remove"}]
+       "Cancel"]]]]])
+
+(defn handler-about-us [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (reset-about-us-category (get jsonobj "category"))
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-about-us jsonobj))
+    (render-about-us-view)))
+
+(defn render-lessons []
+  (GET "/lessons" {:handler handler-about-us}))
+
+(defn render-gigs []
+  (GET "/gigs" {:handler handler-about-us}))
+
+(defn render-programming []
+  (GET "/programming" {:handler handler-about-us}))
+
+;; about-us-view
+
+(hiccups/defhtml template-about-us-view [jsonobj]
+  (when (get jsonobj "adminP")
+    [:div {:style "text-align: right;"}
+     [:img {:src "/static/images/edit.png"
+            :style "cursor:pointer; cursor:hand"
+            :onclick (str (namespace ::x) ".on_about_us_modify_clicked()")}]])
+  [:div {:id "markdown"}])
+
+(defn handler-about-us-view [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (dommy/set-html! (dommy/sel1 :#content) (template-about-us-view jsonobj))
+    (dommy/set-html! (dommy/sel1 :#markdown) (markdown-to-html (get jsonobj "content")))))
+
+(defn render-about-us-view []
+  (GET (str "/" @about-us-category-state "/view")
+       {:handler handler-about-us-view}))
+
+;; about-us-modify
+
+(defn on-about-us-modify-clicked []
+  (render-about-us-modify))
+
+(hiccups/defhtml template-about-us-modify [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(defn handler-about-us-modify [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (auth-notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#modify-title)
+                     (str (cond (= @about-us-category-state "lessons") "About the Studio"
+                                (= @about-us-category-state "gigs") "For Hire"
+                                (= @about-us-category-state "programming") "Software Consulting")
+                          " - Modify"))
+    (dommy/set-html! (dommy/sel1 :#modify-body) (template-about-us-modify jsonobj))
+    (.modal (jquery "#modify"))))
+
+(defn render-about-us-modify []
+  (POST (str "/" @about-us-category-state "/modify")
+        {:handler handler-about-us-modify}))
+
+;; about-us-modify-submit
+
+(defn on-about-us-modify-submit-clicked []
+  (when (-> (jquery "#about-us-modify-form")
+            (.get "0")
+            (.checkValidity))
+    (.modal (jquery "#modify") "hide")
+    (render-about-us-modify-submit)))
+
+(defn handler-about-us-modify-submit [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (auth-notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#content) (template-about-us-view jsonobj))
+    (dommy/set-html! (dommy/sel1 :#markdown) (markdown-to-html (get jsonobj "content")))))
+
+(defn render-about-us-modify-submit []
+  (POST (str "/" @about-us-category-state "/modify/submit")
+        {:format :raw
+         :params {:content (dommy/value (dommy/sel1 :#txt-content))}
+         :handler handler-about-us-modify-submit}))
+
+;; contact-us
+
+(hiccups/defhtml template-contact-us [jsonobj]
+  [:h1 {:style "text-align: center"} "Reach out to me by filling out the form."]
+  [:div {:id "content"}]
+  [:table {:width "100%"}
+   [:tr
+    [:td {:style "width: 100%; text-align: center;"}
+     [:h3 "Located on the edge of the ISU campus!"]]]
+   [:tr
+    [:td {:style "width: 100%; text-align: center;"}
+     [:iframe {:src "https://www.google.com/maps/embed?pb=!1m18!1m12!1m3!1d3225.263770603599!2d-112.4266916!3d42.8635091!2m3!1f0!2f0!3f0!3m2!1i1024!2i768!4f13.1!3m3!1m2!1s0x53554f343c440407%3A0xf13bf897ecb4f7e0!2sBogenherr%20Violin%20and%20Viola%20Studio!5e1!3m2!1sen!2sus!4v1783097048097!5m2!1sen!2sus"
+               :style "width: 600px; height: 450px; border: 0px;"
+               :allowfullscreen ""
+               :loading "lazy"
+               :referrerpolicy "strict-origin-when-cross-origin"}]]]])
+
+(defn handler-contact-us [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-contact-us jsonobj))
+    (render-contact-us-view)))
+
+(defn render-contact-us []
+  (GET "/contact-us" {:handler handler-contact-us}))
+
+;; contact-us-view
+
+(hiccups/defhtml template-contact-us-view [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(defn handler-contact-us-view [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#content) (template-contact-us-view jsonobj))))
+
+(defn render-contact-us-view []
+  (GET "/contact-us/view" {:handler handler-contact-us-view}))
+
+;; contact-us-submit
+
+(defn on-contact-us-email-submit-clicked []
+  (when (-> (jquery "#contact-us-form")
+            (.get "0")
+            (.checkValidity))
+    (render-contact-us-email-submit)))
+
+(defn handler-contact-us-email-submit [response]
+  (on-menu-clicked "/contact-us"))
+
+(defn render-contact-us-email-submit []
+  (POST "/contact-us/email"
+        {:format :raw
+         :params {:first_name (dommy/value (dommy/sel1 :#first_name))
+                  :last_name (dommy/value (dommy/sel1 :#last_name))
+                  :email (dommy/value (dommy/sel1 :#email))
+                  :phone (dommy/value (dommy/sel1 :#phone))
+                  :comments (dommy/value (dommy/sel1 :#comments))}
+         :handler handler-contact-us-email-submit}))
+
+;; messages
+
+(hiccups/defhtml template-messages [jsonobj]
+  [:h3 {:style "text-align: center"} (get jsonobj "title")]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x))
+  [:div {:id "results"}])
+
+(defn handler-messages [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-messages jsonobj))
+    (when (not (empty? (dommy/value (dommy/sel1 :#read))))
+      (render-messages-results))))
+
+(defn render-messages []
+  (GET "/messages" {:handler handler-messages}))
+
+;; messages-results
+
+(defn on-messages-mode-clicked [read]
+  (dommy/set-value! (dommy/sel1 :#read) read)
+  (render-messages-results))
+
+(hiccups/defhtml template-messages-results [jsonobj]
+  (let [results (get jsonobj "results")
+        keys (remove (fn [x]
+                       (not (get (first results) x)))
+                     (keys (first results)))]
+    (cond (empty? results)
+          [:h5 {:style "text-align: center"} "No results found."]
+          :else
+          [:table {:class "table table-hover"}
+           [:thead
+            [:tr
+             (for [key keys]
+               [:th key])
+             [:th
+              (str "Mark " (cond (= (dommy/value (dommy/sel1 :#read)) "read")
+                                    "unread"
+                                    :else
+                                    "read"))]]]
+           [:tbody
+            (for [rec results]
+              (let [onclick "void()"]
+                [:tr
+                 (for [key keys]
+                   [:td {:onclick onclick} (get rec key)])
+                 [:td [:img {:src (str "/static/images/"
+                                       (cond (= (dommy/value (dommy/sel1 :#read)) "read")
+                                             "edit-undo.png"
+                                             :else
+                                             "edit-redo.png"))
+                             :style "cursor: pointer; cursor: hand"
+                             :onclick (str (namespace ::x)
+                                           ".on_messages_mark("
+                                           (cond (= (dommy/value (dommy/sel1 :#read)) "read")
+                                                 "'unread'"
+                                                 :else
+                                                 "'read'")
+                                           "," (get rec "id") ")")}]]]))]])))
+
+(defn handler-messages-results [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (auth-notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#results) (template-messages-results jsonobj))))
+
+(defn render-messages-results []
+  (POST "/messages/results"
+        {:format :raw
+         :params {:read (dommy/value (dommy/sel1 :#read))}
+         :handler handler-messages-results}))
+
+;; messages-mark
+
+(defn on-messages-mark [read id]
+  (render-messages-mark read id))
+
+(defn handler-messages-mark [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (auth-notifications jsonobj)
+    (on-menu-clicked "/messages")))
+
+(defn render-messages-mark [read id]
+  (POST "/messages/mark"
+        {:format :raw
+         :params {:read read
+                  :id id}
+         :handler handler-messages-mark}))
+
+;; users
+
+(hiccups/defhtml template-users [jsonobj]
+  [:h3 {:style "text-align: center"} (get jsonobj "title")]
+  [:div {:id "content"}]
+  [:div {:id "modify"
+         :class "modal fade"
+         :role "dialog"
+         :tabindex "-1"}
+   [:div {:class "modal-dialog modal-lg"}
+    [:div {:class "modal-content"}
+     [:div {:class "modal-header"}
+      [:h5 [:span {:id "modify-title"}]]
+      [:button {:type "button"
+                :class "close"
+                :data-dismiss "modal"}
+       "×"]]
+     [:div {:id "modify-body"
+            :class "modal-body"
+            :style "height: 450px;"}]
+     [:div {:class "modal-footer"}
+      [:button {:type "submit"
+                :class "btn btn-danger btn-default"
+                :data-dismiss "modal"}
+       [:span {:class "glyphicon glyphicon-remove"}]
+       "Cancel"]]]]])
+
+(defn handler-users [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#body) (template-users jsonobj))
+    (render-users-view)))
+
+(defn render-users []
+  (GET "/users" {:handler handler-users}))
+
+;; users-view
+
+(hiccups/defhtml template-users-view [jsonobj]
+  [:div {:style "text-align: right"}
+   [:img {:src "/static/images/add.png"
+          :style "cursor:pointer; cursor:hand"
+          :onclick (str (namespace ::x) ".on_users_add_clicked()")}]]
+  [:table {:class "table table-striped table-hover table-sm"}
+   [:thead
+    [:tr
+     [:th {:scope "col"} "Active?"]
+     [:th {:scope "col"} "Last Name"]
+     [:th {:scope "col"} "First Name"]
+     [:th {:scope "col"} "Username"]
+     [:th {:scope "col"} "Email"]
+     [:th {:scope "col"} "Phone"]
+     [:th {:scope "col"} "Del"]]]
+   [:tbody
+    (for [user (get jsonobj "users")]
+      (let [onclick (str (namespace ::x) ".on_users_modify_clicked(" (get user "id") ")")
+            toggle-active (str (namespace ::x) ".on_users_toggle_active_clicked(" (get user "id") ")")]
+        [:tr
+         [:td [:img {:src (cond (get user "active")
+                                "/static/images/yes.png"
+                                :else
+                                "/static/images/no.png")
+                     :onclick toggle-active}]]
+         [:td {:onclick onclick} (get user "last_name")]
+         [:td {:onclick onclick} (get user "first_name")]
+         [:td {:onclick onclick} (get user "username")]
+         [:td {:onclick onclick} (get user "email")]
+         [:td {:onclick onclick} (get user "phone")]
+         [:td [:img {:src "/static/images/delete.png"
+                     :onclick (str (namespace ::x) ".on_users_delete_clicked(" (get user "id") ", '" (get user "first_name") "', '" (get user "last_name") "')")}]]]))]])
+  
+(defn handler-users-view [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (dommy/set-html! (dommy/sel1 :#content) (template-users-view jsonobj))))
+
+(defn render-users-view []
+  (GET "/users/view" {:handler handler-users-view}))
+
+;; users-add
+
+(defn on-users-add-clicked []
+  (render-users-add))
+
+(hiccups/defhtml template-users-add [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(defn handler-users-add [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (auth-notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#modify-title) (get jsonobj "title"))
+    (dommy/set-html! (dommy/sel1 :#modify-body) (template-users-add jsonobj))
+    (.modal (jquery "#modify"))))
+
+(defn render-users-add []
+  (POST "/users/add" {:handler handler-users-add}))
+
+;; users-add-submit
+
+(defn on-users-add-submit-clicked []
+  (when (-> (jquery "#users-add-form")
+            (.get "0")
+            (.checkValidity))
+    (.modal (jquery "#modify") "hide")
+    (render-users-add-submit)))
+
+(defn handler-users-add-submit [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (auth-notifications jsonobj)
+    (on-menu-clicked "/users")))
+
+(defn render-users-add-submit []
+  (POST "/users/add/submit"
+        {:format :raw
+         :params {:role_groups (reduce-checkboxes "[id^='chk_']")
+                  :first_name (dommy/value (dommy/sel1 :#first_name))
+                  :last_name (dommy/value (dommy/sel1 :#last_name))
+                  :email (dommy/value (dommy/sel1 :#email))}
+         :handler handler-users-add-submit}))
+
+;; users-register
+
+(hiccups/defhtml template-users-register [jsonobj]
+  [:h3 {:style "text-align: center"} (get jsonobj "title")]
+  [:div {:id "content"}])
+
+(defn handler-users-register [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (dommy/set-html! (dommy/sel1 :#body) (template-users-register jsonobj))
+    (render-users-register-form (get jsonobj "hash"))))
+
+(defn render-users-register [hash]
+  (POST "/users/register"
+        {:format :raw
+         :params {:hash hash}
+         :handler handler-users-register}))
+
+;; users-register-form
+
+(hiccups/defhtml template-users-register-form [jsonobj]
+  (cond (get jsonobj "errormsg")
+        [:a {:href (str "javascript:" (namespace ::x) ".reset_app()")}
+         "Click here to return to the home page."]
+        :else
+        (do
+          [:p (str "Welcome " (get jsonobj "firstName") " " (get jsonobj "lastName") " to the new user registration page. Please fill out the form below to complete your registration.")]
+          [:p "Create a new username and password for your login to the website. Phone number is optional."]
+          [:p (str "Your email address is recorded as " (get jsonobj "email") ". This is where notifications will be sent. If this is not the desired email address, you can change it later by visiting the Edit Profile page.")]
+          [:p (str "This registration will expire in " (get jsonobj "validFor") ". Please submit this form before that time.")]
+          (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))))
+
+(defn handler-users-register-form [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#content) (template-users-register-form jsonobj))))
+
+(defn render-users-register-form [hash]
+  (POST "/users/register/form"
+        {:format :raw
+         :params {:hash hash}
+         :handler handler-users-register-form}))
+
+;; users-register-submit
+
+(defn on-users-register-submit-clicked []
+  (when (-> (jquery "#users-register-form")
+            (.get "0")
+            (.checkValidity))
+    (render-users-register-submit)))
+
+(hiccups/defhtml template-users-register-submit [jsonobj]
+  [:a {:href (str "javascript:" (namespace ::x) ".reset_app()")}
+   "Click here to start using the website!"])
+
+(defn handler-users-register-submit [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (notifications jsonobj)
+    (cond (get jsonobj "errormsg")
+          (do
+            (dommy/set-value! (dommy/sel1 :#pwd) "")
+            (dommy/set-value! (dommy/sel1 :#pwd2) ""))
+          :else
+          (dommy/set-html! (dommy/sel1 :#content) (template-users-register-submit jsonobj)))))
+
+(defn render-users-register-submit []
+  (POST "/users/register/submit"
+        {:format :raw
+         :params {:hash (dommy/value (dommy/sel1 :#hash))
+                  :username (dommy/value (dommy/sel1 :#username))
+                  :pwd (dommy/value (dommy/sel1 :#pwd))
+                  :pwd2 (dommy/value (dommy/sel1 :#pwd2))
+                  :phone (dommy/value (dommy/sel1 :#phone))}
+         :handler handler-users-register-submit}))
+
+;; users-modify
+
+(defn on-users-modify-clicked [id]
+  (render-users-modify id))
+
+(hiccups/defhtml template-users-modify [jsonobj]
+  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
+
+(defn handler-users-modify [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (auth-notifications jsonobj)
+    (dommy/set-html! (dommy/sel1 :#modify-title) (get jsonobj "title"))
+    (dommy/set-html! (dommy/sel1 :#modify-body) (template-users-modify jsonobj))
+    (.modal (jquery "#modify"))))
+
+(defn render-users-modify [id]
+  (POST "/users/modify"
+        {:format :raw
+         :params {:id id}
+         :handler handler-users-modify}))
+
+;; users-modify-submit
+
+(defn on-users-modify-submit-clicked []
+  (when (-> (jquery "#users-modify-form")
+            (.get "0")
+            (.checkValidity))
+    (.modal (jquery "#modify") "hide")
+    (render-users-modify-submit)))
+
+(defn handler-users-modify-submit [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (auth-notifications jsonobj)
+    (on-menu-clicked "/users")))
+
+(defn render-users-modify-submit []
+  (POST "/users/modify/submit"
+        {:format :raw
+         :params {:id (dommy/value (dommy/sel1 :#id))
+                  :role_groups (reduce-checkboxes "[id^='chk_']")
+                  :username (dommy/value (dommy/sel1 :#username))
+                  :first_name (dommy/value (dommy/sel1 :#first_name))
+                  :last_name (dommy/value (dommy/sel1 :#last_name))
+                  :email (dommy/value (dommy/sel1 :#email))
+                  :phone (dommy/value (dommy/sel1 :#phone))}
+         :handler handler-users-modify-submit}))
+
+;; users-toggle-active
+
+(defn on-users-toggle-active-clicked [id]
+  (render-users-toggle-active id))
+
+(defn handler-users-toggle-active [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (auth-notifications jsonobj)
+    (on-menu-clicked "/users")))
+
+(defn render-users-toggle-active [id]
+  (POST "/users/toggle-active"
+        {:format :raw
+         :params {:id id}
+         :handler handler-users-toggle-active}))
+
+;; users-delete
+
+(defn on-users-delete-clicked [id first-name last-name]
+  (when (js/confirm (str "Are you sure you want to delete " first-name " " last-name "? This action cannot be undone."))
+    (render-users-delete id)))
+
+(defn handler-users-delete [response]
+  (let [jsonobj (js->clj (js/JSON.parse response))]
+    (auth-notifications jsonobj)
+    (on-menu-clicked "/users")))
+
+(defn render-users-delete [id]
+  (DELETE (str "/users/delete/" id)
+          {:format :raw
+           :handler handler-users-delete}))
+
+;; location
+
+(defn on-menu-clicked [handler]
+  (reset-location handler)
+  (render-menu)
+  (cond (= handler "/home") (render-home)
+        (= handler "/login") (render-login)
+        (= handler "/logout") (render-logout)
+        (= handler "/profile") (render-profile)
+        (= handler "/password") (render-password)
+        (= handler "/lessons") (render-lessons)
+        (= handler "/gigs") (render-gigs)
+        (= handler "/programming") (render-programming)
+        (= handler "/contact-us") (render-contact-us)
+        (= handler "/messages") (render-messages)
+        (= handler "/users") (render-users)))
+
+(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}))
+
+(defn reset-app []
+  (set! (.-location js/document) "/"))
+
+(defn goto-register [hash]
+  (reset-location "/users/register")
+  (render-menu)
+  (render-users-register hash))