contrib.str - fix deprecation warnings

src/contrib/element_syntax.cljc

@@ -104,7 +104,7 @@
       {:props {:placeholder "Type a message"}
        :on-keydown (e/fn [e]
                      (when (= "Enter" (.-key e))
-                       (when-some [v (contrib.str/empty->nil (-> e .-target .-value))]
+                       (when-some [v (not-empty (-> e .-target .-value))]
                          (dom/style {:background-color "yellow"})
                          (e/server (swap! !msgs #(cons {::username username ::msg v} (take 9 %))))
                          (set! (.-value dom/node) ""))))}))

src/contrib/str.cljc

@@ -60,7 +60,7 @@
   (any-matches? ["abc"] "d") := nil)
 
 
-(defn ^{:deprecated "Use clojure.core/empty?"} empty? [s]
+(defn ^:deprecated empty? "Deprecated. Use clojure.core/empty?" [s]
   (or (and (string? s) (zero? (count s)))
     (nil? s)))
 
@@ -73,7 +73,7 @@
   (clojure.core/empty? " ") := false
   )
 
-(defn ^{:deprecated "Use clojure.core/not-empty"} empty->nil [s] (if (empty? s) nil s))
+(defn ^:deprecated empty->nil "Deprecated. Use clojure.core/not-empty" [s] (if (clojure.core/empty? s) nil s))
 
 (tests
   (empty->nil nil)             := nil

src/hyperfiddle/electric_ui4.cljc

@@ -116,7 +116,7 @@ can be pending."
 
 #?(:cljs (defn ?read-line! [node e]
            (let [line (.-value node)]
-             (when (and (= "Enter" (.-key e)) (contrib.str/empty->nil line))
+             (when (and (= "Enter" (.-key e)) (not-empty line))
                (set! (.-value node) "") line))))
 
 (defmacro on-submit