From bb7757338ccd29cd1eb28c073a9baaaba5286374 Mon Sep 17 00:00:00 2001
From: leo <leonard@witzleben.de>
Date: Fri, 5 Nov 2021 14:25:35 +0100
Subject: [PATCH] mob2

---
 src/main/cljs/dda/c4k_common/browser.cljs | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/src/main/cljs/dda/c4k_common/browser.cljs b/src/main/cljs/dda/c4k_common/browser.cljs
index 8d66480..97ea107 100644
--- a/src/main/cljs/dda/c4k_common/browser.cljs
+++ b/src/main/cljs/dda/c4k_common/browser.cljs
@@ -18,10 +18,11 @@
 
 (s/def ::deserializer fn?)
 (s/def ::optional boolean?)
+(def dom-function-parameter (s/keys :opt-un [::deserializer ::optional]))
 (defn-spec get-content-from-element any?
   [name string?
    & {:keys [deserializer optional]
-      :or {deserializer nil optional false}} (s/keys :opt-un [::deserializer ::optional])]
+      :or {deserializer nil optional false}} dom-function-parameter]
   (let [content (-> (get-element-by-id name)
                     (.-value))]
     (cond
@@ -47,7 +48,7 @@
   [name string?
    spec any?
    & {:keys [deserializer optional]
-      :or {deserializer nil optional false}} (s/keys :opt-un [::deserializer ::optional])]
+      :or {deserializer nil optional false}} dom-function-parameter]
   (let [content (get-content-from-element name :optional optional :deserializer deserializer)]
     (if (or (and optional (st/blank? content)) 
             (s/valid? spec content))
@@ -55,14 +56,15 @@
       (set-validation-result! name
        (expound/expound-str spec content {:print-specs? false})))))
 
-(defn set-output!
-  [input]
+(defn-spec set-output! any?
+  [input string?]
   (-> js/document
       (.getElementById "output")
       (.-value)
       (set! input)))
 
-(defn set-validated! []
+(defn-spec set-validated! any? 
+  []
   (-> (get-element-by-id "form")
       (.-classList)
       (.add "was-validated")))