From 26986b0c67cd05be90ab52b0f6080a2ba6fa48bb Mon Sep 17 00:00:00 2001
From: ckonstanski <ckonstanski@pippiandcarlos.com>
Date: Fri, 25 Dec 2020 22:29:00 -0700
Subject: initial import

---
 .gitignore                        |  17 +++++++
 project.clj                       |  10 ++++
 src/org_ckons_cljs/form/core.cljs | 100 ++++++++++++++++++++++++++++++++++++++
 3 files changed, 127 insertions(+)
 create mode 100644 .gitignore
 create mode 100644 project.clj
 create mode 100644 src/org_ckons_cljs/form/core.cljs

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..fdea6a6
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,17 @@
+*~
+*swp
+target
+classes
+resources
+checkouts
+pom.xml
+pom.xml.asc
+*.jar
+*.class
+.lein-*
+.nrepl-port
+.hgignore
+.hg
+profiles.clj
+figwheel_server.log
+.rebel_readline_history
diff --git a/project.clj b/project.clj
new file mode 100644
index 0000000..6ad56ef
--- /dev/null
+++ b/project.clj
@@ -0,0 +1,10 @@
+(defproject org-ckons-cljs.form "0.1.0-SNAPSHOT"
+  :description "A small library which manages the generic form template."
+  :url "FIXME"
+  :license "public domain"
+  :dependencies [[org.clojure/clojure "LATEST"]
+                 [org.clojure/clojurescript "LATEST"]
+                 [prismatic/dommy "LATEST"]
+                 [hiccups "LATEST"]]
+  :plugins [[lein-cljsbuild "LATEST"]]
+  :clean-targets ^{:protect false} [:target-path "out" "resources/public/cljs"])
diff --git a/src/org_ckons_cljs/form/core.cljs b/src/org_ckons_cljs/form/core.cljs
new file mode 100644
index 0000000..1233ce5
--- /dev/null
+++ b/src/org_ckons_cljs/form/core.cljs
@@ -0,0 +1,100 @@
+(ns org-ckons-cljs.form.core
+  (:require-macros [hiccups.core :as hiccups :refer [html]]
+                   [clojure.string :as str]))
+
+(declare template-generic-form)
+
+(hiccups/defhtml template-generic-form [jsonobj namespace]
+   [:div {:id "form-errormsg"}]
+   [:form {:name (get jsonobj "name")
+           :id (get jsonobj "name")
+           :method (get jsonobj "httpMethod")
+           :action (when (get jsonobj "action")
+                     (str "javascript:" namespace "." (get jsonobj "action")))}
+    (for [form-field (get jsonobj "formFields")]
+      (cond (= (get form-field "fieldType") "button")
+            [:div {:class "form-group row"}
+             [:div {:class "offset-sm-2 col-sm-10"}
+              [:button {:class "btn btn-primary"
+                        :data-dismiss (get jsonobj "dismiss")
+                        :type (cond (get form-field "onclick") "button" :else "submit")
+                        :onclick (when (get form-field "onclick")
+                                   (str namespace "." (get form-field "onclick")))}
+               (get form-field "label")]]]
+            (= (get form-field "fieldType") "hidden")
+            [:input {:name (get form-field "name")
+                     :id (get form-field "name")
+                     :value (get form-field "value")
+                     :type (get form-field "fieldType")}]
+            (= (get form-field "fieldType") "checkbox")
+            [:div {:class "form-check"}
+             [:input {:type "checkbox"
+                      :class "form-check-input"
+                      :id (get form-field "name")
+                      :value (get form-field "value")
+                      :checked (get form-field "checked")
+                      :required (get form-field "required")}]
+             (when (get form-field "label")
+               [:label {:class "form-check-label"
+                        :for (get form-field "name")}
+                (get form-field "label")])]
+            (= (get form-field "fieldType") "select")
+            [:div {:class "form-group"}
+             [:label {:for (get form-field "name")}
+              (get form-field "label")]
+             [:select {:class "form-control"
+                       :name (get form-field "name")
+                       :id (get form-field "name")
+                       :required (get form-field "required")
+                       :onchange (when (get form-field "onchange")
+                                   (str namespace "." (get form-field "onchange")))}
+              (for [option (get form-field "options")]
+                [:option {:value (get option "value")
+                          :selected (when (= (get option "value") (get form-field "value"))
+                                      "selected")}
+                 (get option "label")])]]
+            (= (get form-field "fieldType") "textarea")
+            [:div {:class "form-group row"}
+             (when (get form-field "label")
+               [:label {:for (get form-field "name")
+                        :class "col-form-label col-sm-2"
+                        :style "text-align: right"}
+                (get form-field "label")])
+             [:div {:class "col-sm-10"}
+              [:textarea {:name (get form-field "name")
+                          :id (get form-field "name")
+                          :rows "10"
+                          :cols "68"}
+               (get form-field "value")]]]
+            (= (get form-field "fieldType") "datetime-local")
+            [:div {:class "form-group row"}
+             (when (get form-field "label")
+               [:label {:for (get form-field "name")
+                        :class "col-form-label col-sm-2"
+                        :style "text-align: right"}
+                (get form-field "label")])
+             [:div {:class "col-sm-10"}
+              [:input {:name (get form-field "name")
+                       :id (get form-field "name")
+                       :value (get form-field "value")
+                       :type (get form-field "fieldType")
+                       :class "form-control"
+                       :required (get form-field "required")
+                       :min "2018-01-01T00:00"
+                       :max "2020:12-31T23:59"}]]]
+            :else
+            [:div {:class "form-group row"}
+             (when (get form-field "label")
+               [:label {:for (get form-field "name")
+                        :class "col-form-label col-sm-2"
+                        :style "text-align: right"}
+                (get form-field "label")])
+             [:div {:class "col-sm-10"}
+              [:input {:name (get form-field "name")
+                       :id (get form-field "name")
+                       :value (get form-field "value")
+                       :type (get form-field "fieldType")
+                       :class "form-control"
+                       :required (get form-field "required")}]]]))]
+  (when (get jsonobj "requiredP")
+    [:div "* Required"]))
-- 
cgit v1.3