From 6ab3246d80b5a1650400333ad78a603c98375b19 Mon Sep 17 00:00:00 2001 From: "Robert C. Martin" Date: Sun, 17 Apr 2022 17:27:05 -0500 Subject: [PATCH] Kill edit window buffer after sending message. --- src/more_speech/ui/edit_window.clj | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/more_speech/ui/edit_window.clj b/src/more_speech/ui/edit_window.clj index d3080dc..1850a3f 100644 --- a/src/more_speech/ui/edit_window.clj +++ b/src/more_speech/ui/edit_window.clj @@ -143,6 +143,8 @@ (let [private-key (get-in state [:keys :private-key]) text (string/join \newline (:text frame)) event (events/compose-text-event private-key text) - send-chan (:send-chan state)] + send-chan (:send-chan state) + frame (assoc frame :text [""] :insertion-point [0 0]) + state (assoc-in state (:path frame) frame)] (async/>!! send-chan [:event event]) state))