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