start refactoring for issuer

This commit is contained in:
jem 2021-06-15 21:37:59 +02:00
parent a694acb1fa
commit e2bf9a25cd

View file

@ -35,6 +35,13 @@
(set-validation-result! name
(expound/expound-str spec content {:print-specs? false})))))
(defn validate-optional! [name spec]
(let [content (get-content-from-element name)]
(if (or (st/blank? content) (s/valid? spec content))
(set-validation-result! name "")
(set-validation-result! name
(expound/expound-str spec content {:print-specs? false})))))
(defn issuer []
(-> js/document
(.getElementById "issuer")))
@ -45,6 +52,15 @@
(when-not (st/blank? issuer-str)
(keyword issuer-str))))
(defn validate-issuer! []
(let [name "issuer"
spec ::kc/issuer
issuer (issuer-from-document)]
(if (or (st/blank? issuer) (s/valid? spec issuer))
(set-validation-result! name "")
(set-validation-result! name
(expound/expound-str spec issuer {:print-specs? false})))))
(defn auth []
(-> js/document
(.getElementById "auth")))
@ -59,7 +75,7 @@
(when-not (st/blank? (issuer-from-document))
{:issuer (issuer-from-document)})))
(defn auth-from-document []
(defn auth-from-document []
(edn/read-string (-> (auth)
(.-value))))
@ -70,25 +86,6 @@
(.-value)
(set! input)))
(defn set-issuer-validation-result!
[validation-result]
(-> js/document
(.getElementById "issuer-validation")
(.-innerHTML)
(set! validation-result))
(-> (issuer)
(.setCustomValidity validation-result))
validation-result)
(defn validate-issuer! []
(let [issuer (issuer-from-document)]
(print-debug (js->clj issuer))
(print-debug (st/blank? issuer))
(if (or (st/blank? issuer) (s/valid? ::kc/issuer issuer))
(set-issuer-validation-result! "")
(set-issuer-validation-result!
(expound/expound-str ::kc/issuer issuer {:print-specs? false})))))
(defn set-validated! []
(-> (form)
(.-classList)
@ -117,7 +114,6 @@
(validate-auth!)
(set-validated!))
(defn init []
(-> js/document
(.getElementById "generate-button")