stuff

1 files changed, 1 insertions, 160 deletions

diff --git a/lisp/webapps/resume/clojurescript/resume/src/resume/core.cljs b/lisp/webapps/resume/clojurescript/resume/src/resume/core.cljs
index 0035ea0..a569f6a 100644
--- a/lisp/webapps/resume/clojurescript/resume/src/resume/core.cljs
+++ b/lisp/webapps/resume/clojurescript/resume/src/resume/core.cljs
@@ -130,29 +130,6 @@
 (declare on-users-delete-clicked)
 (declare handler-users-delete)
 (declare render-users-delete)
-(declare template-resume)
-(declare handler-resume)
-(declare render-resume)
-(declare template-resume-view)
-(declare handler-resume-view)
-(declare render-resume-view)
-(declare on-resume-add-clicked)
-(declare template-resume-add)
-(declare handler-resume-add)
-(declare render-resume-add)
-(declare on-resume-add-submit-clicked)
-(declare handler-resume-add-submit)
-(declare render-resume-add-submit)
-(declare on-resume-modify-clicked)
-(declare template-resume-modify)
-(declare handler-resume-modify)
-(declare render-resume-modify)
-(declare on-resume-modify-submit-clicked)
-(declare handler-resume-modify-submit)
-(declare render-resume-modify-submit)
-(declare on-resume-delete-clicked)
-(declare handler-resume-delete)
-(declare render-resume-delete)
 (declare on-menu-clicked)
 (declare handler-location)
 (declare goto-location)
@@ -1095,145 +1072,9 @@
        [:span {:class "glyphicon glyphicon-remove"}]
        "Cancel"]]]]])
 
-(defn handler-resume [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (notifications jsonobj)
-    (dommy/set-html! (dommy/sel1 :#body) (template-resume jsonobj))
-    (render-resume-view)))
-
-(defn render-resume []
-  (GET "/resume/resume" {:handler handler-resume}))
-
-;; resume-view
-
-
-(hiccups/defhtml template-resume-view [jsonobj]
-  [:div {:style "text-align: right"}
-   [:img {:src "/static/images/add.png"
-          :style "cursor:pointer; cursor:hand"
-          :onclick (str (namespace ::x) ".on_resume_add_clicked()")}]]
-  [:table {:class "table table-striped table-hover table-sm"}
-   [:thead
-    [:tr
-     [:th {:scope "col"} "Name"]
-     [:th {:scope "col"} "Mod"]
-     [:th {:scope "col"} "Del"]]]
-   [:tbody
-    (for [resume (get jsonobj "resumes")]
-      [:tr
-       [:td (get resume "name")]
-       [:td {:width "30"}
-        [:img {:src "/static/images/modify.png"
-               :onclick (str (namespace ::x) ".on_resume_modify_clicked(" (get resume "id") ")")}]]
-       [:td {:width "30"}
-        [:img {:src "/static/images/delete.png"
-               :onclick (str (namespace ::x) ".on_resume_delete_clicked(" (get resume "id") ", '" (get resume "name") "')")}]]])]])
-
-(defn handler-resume-view [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (dommy/set-html! (dommy/sel1 :#content) (template-resume-view jsonobj))))
-
-(defn render-resume-view []
-  (GET "/resume/resume/view" {:handler handler-resume-view}))
-
-;; resume-add
-
-(defn on-resume-add-clicked []
-  (render-resume-add))
-
-(hiccups/defhtml template-resume-add [jsonobj]
-  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
-
-(defn handler-resume-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-resume-add jsonobj))
-    (.modal (jquery "#modify"))))
-
-(defn render-resume-add []
-  (POST "/resume/resume/add" {:handler handler-resume-add}))
-
-;; resume-add-submit
-
-(defn on-resume-add-submit-clicked []
-  (when (-> (jquery "#resume-add-form")
-            (.get "0")
-            (.checkValidity))
-    (.modal (jquery "#modify") "hide")
-    (render-resume-add-submit)))
-
-(defn handler-resume-add-submit [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (auth-notifications jsonobj)
-    (on-menu-clicked "/resume/resume")))
-
-(defn render-resume-add-submit []
-  (POST "/resume/resume/add/submit"
-        {:format :raw
-         :params {:name (dommy/value (dommy/sel1 :#name))}
-         :handler handler-resume-add-submit}))
-
-;; resume-modify
-
-(defn on-resume-modify-clicked [id]
-  (render-resume-modify id))
-
-(hiccups/defhtml template-resume-modify [jsonobj]
-  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
-
-(defn handler-resume-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-resume-modify jsonobj))
-    (.modal (jquery "#modify"))))
-
-(defn render-resume-modify [id]
-  (POST "/resume/resume/modify"
-        {:format :raw
-         :params {:id id}
-         :handler handler-resume-modify}))
-
-;; resume-modify-submit
-
-(defn on-resume-modify-submit-clicked []
-  (when (-> (jquery "#resume-modify-form")
-            (.get "0")
-            (.checkValidity))
-    (.modal (jquery "#modify") "hide")
-    (render-resume-modify-submit)))
-
-(defn handler-resume-modify-submit [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (auth-notifications jsonobj)
-    (on-menu-clicked "/resume/resume")))
-
-(defn render-resume-modify-submit []
-  (POST "/resume/resume/modify/submit"
-        {:format :raw
-         :params {:id (dommy/value (dommy/sel1 :#id))
-                  :name (dommy/value (dommy/sel1 :#name))}
-         :handler handler-resume-modify-submit}))
-
-;; resume-delete
-
-(defn on-resume-delete-clicked [id name]
-  (when (js/confirm (str "Are you sure you want to delete " name "? This action cannot be undone."))
-    (render-resume-delete id)))
-
-(defn handler-resume-delete [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (auth-notifications jsonobj)
-    (on-menu-clicked "/resume/resume")))
-
-(defn render-resume-delete [id]
-  (DELETE (str "/resume/resume/delete/" id)
-          {:format :raw
-           :handler handler-resume-delete}))
-
 ;; components
 
+(define-resume-component "resume")
 (define-resume-component "contactinfo")
 (define-resume-component "education")
 (define-resume-component "language")