Add cache busting to inputs

fulcrologic · May 21, 2024 · 06e59b9 · 06e59b9
1 parent 18469d9
commit 06e59b9
Showing 1 changed file with 10 additions and 7 deletions.
diff --git a/src/main/com/fulcrologic/fulcro/dom/inputs.cljc b/src/main/com/fulcrologic/fulcro/dom/inputs.cljc
@@ -35,25 +35,28 @@
                                                         (let [{:keys [value onChange]} (comp/props this)
                                                               nsv (evt/target-value evt)
                                                               nv  (string->model nsv)]
-                                                          (comp/set-state! this {:stringValue  nsv
-                                                                                 :oldPropValue value
-                                                                                 :value        nv})
+                                                          (comp/set-state! this {:stringValue   nsv
+                                                                                 :oldPropValue  value
+                                                                                 :cacheValue    nv
+                                                                                 :cacheInvalid? false})
                                                           (when (and onChange (not= value nv))
                                                             (onChange nv))))
-                                        :stringValue  (model->string value)}]
+                                        :stringValue  (model->string value)
+                                        :cacheInvalid? true}]
                      (set! (.-state this) (cljs.core/js-obj "fulcro$state" initial-state)))
                    nil)))]
     (comp/configure-component! cls kw
       {:getDerivedStateFromProps
        (fn [latest-props state]
          (let [{:keys [value]} latest-props
-               {:keys [oldPropValue stringValue]} state
-               ignorePropValue?  (or (= oldPropValue value) (= value (:value state)))
+               {:keys [oldPropValue stringValue cacheValue cacheInvalid?]} state
+               ignorePropValue?  (or (= oldPropValue value) (when-not cacheInvalid? (= value cacheValue)))
+               cacheInvalid?     (or cacheInvalid? ignorePropValue?)
                stringValue       (cond-> (if ignorePropValue?
                                            stringValue
                                            (model->string value))
                                    string-filter string-filter)
-               new-derived-state (merge state {:stringValue stringValue :oldPropValue value})]
+               new-derived-state (merge state {:stringValue stringValue :oldPropValue value :cacheInvalid? cacheInvalid?})]
            #js {"fulcro$state" new-derived-state}))
        :render
        (fn [this]