🐛 Properly show message on password recovery request.

Additionally, add the ability to reset form passing `nil`
on `reset!` function of Atom interface.

frontend/src/app/main/ui/auth/recovery_request.cljs

@@ -30,8 +30,7 @@
         (mf/use-callback
          (fn [_ _]
            (reset! submitted false)
-           (st/emit! (dm/info (tr "auth.notifications.recovery-token-sent"))
+           (st/emit! (dm/info (tr "auth.notifications.recovery-token-sent")))))
-                     (rt/nav :auth-login))))
 
         on-error
         (mf/use-callback

frontend/src/app/util/forms.cljs

@@ -37,10 +37,16 @@
   [& {:keys [initial] :as opts}]
   (let [state      (mf/useState 0)
         render     (aget state 1)
-        state-ref  (mf/use-ref {:data (if (fn? initial) (initial) initial)
+
-                                :errors {}
+        get-state  (mf/use-callback
-                                :touched {}})
+                    (mf/deps initial)
-        form       (mf/use-memo #(create-form-mutator state-ref render opts))]
+                    (fn []
+                      {:data (if (fn? initial) (initial) initial)
+                       :errors {}
+                       :touched {}}))
+
+        state-ref  (mf/use-ref (get-state))
+        form       (mf/use-memo (mf/deps initial) #(create-form-mutator state-ref render get-state opts))]
 
     (mf/use-effect
      (mf/deps initial)
@@ -72,7 +78,7 @@
                          (not= cleaned ::s/invalid))))))
 
 (defn- create-form-mutator
-  [state-ref render opts]
+  [state-ref render get-state opts]
   (reify
     IDeref
     (-deref [_]
@@ -80,7 +86,9 @@
 
     IReset
     (-reset! [it new-value]
-      (mf/set-ref-val! state-ref new-value)
+      (if (nil? new-value)
+        (mf/set-ref-val! state-ref (get-state))
+        (mf/set-ref-val! state-ref new-value))
       (render inc))
 
     ISwap