meissa/c4k-keycloak
6
0
Fork 0
Code Issues Pull requests Projects Releases 3 Packages Wiki Activity

correct config and auth generate output

Browse source
This commit is contained in:
bom 2021-06-14 13:01:33 +02:00
parent 8def2ec408
commit 2466dbc85f
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/main/cljs/dda/c4k_keycloak/browser.cljs
View file

@ -11,7 +11,7 @@
(defn fqdn [] (defn fqdn []
(-> js/document (-> js/document
(.getElementById "fqdn"))) (.getElementById "fqdn")))
(defn issuer [] (defn issuer []
(-> js/document (-> js/document
@ -38,8 +38,8 @@
:issuer (issuer-from-document)}) :issuer (issuer-from-document)})
(defn auth-from-document [] (defn auth-from-document []
(-> (auth) (edn/read-string (-> (auth)
(.-value))) (.-value))))
(defn set-output! (defn set-output!
[input] [input]
@ -83,8 +83,7 @@
validation-result) validation-result)
(defn validate-auth! [] (defn validate-auth! []
(let [auth-str (auth-from-document) (let [auth-map (auth-from-document)]
auth-map (edn/read-string auth-str)]
(if (s/valid? core/auth? auth-map) (if (s/valid? core/auth? auth-map)
(set-auth-validation-result! "") (set-auth-validation-result! "")
(set-auth-validation-result! (set-auth-validation-result!