From 5c502f47f8643c855c6fe3dd72c37513567a6145 Mon Sep 17 00:00:00 2001 From: Dustin Getz Date: Mon, 23 Sep 2024 11:20:00 -0400 Subject: [PATCH] input-zoo: InputSubmitCreate!, renamed from InputSubmitClear! --- src/hyperfiddle/input_zoo0.cljc | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/src/hyperfiddle/input_zoo0.cljc b/src/hyperfiddle/input_zoo0.cljc index 6943604ab..33e72ca69 100644 --- a/src/hyperfiddle/input_zoo0.cljc +++ b/src/hyperfiddle/input_zoo0.cljc @@ -194,8 +194,11 @@ ;; Submit and clear inputs - chat, create-new, etc -(e/defn InputSubmitClear! [& {:keys [maxlength type] :as props - :or {maxlength 100 type "text"}}] +(e/defn InputSubmitCreate! + "optimistic, cancel & retry are forwarded to optimistic list item's InputSubmit! +buffers (dirty), commit, discard bundled as enter/esc" + [& {:keys [maxlength type] :as props + :or {maxlength 100 type "text"}}] (e/client (dom/input (dom/props (assoc props :maxLength maxlength :type type)) (letfn [(read! [node] (not-empty (subs (.-value node) 0 maxlength))) @@ -205,9 +208,8 @@ (= "Enter" k) (read-clear! (.-target e)) (= "Escape" k) (do (set! (.-value dom/node) "") nil) () nil)))] - (PendingMonitor - (dom/OnAll "keydown" submit!)))))) - + #_(PendingMonitor) ; the optimistic list item is responsible for pending/retry affordances + (dom/OnAll "keydown" submit!))))) ;; Graveyard