mirror of
https://github.com/unclebob/more-speech.git
synced 2024-09-30 10:30:56 +00:00
Kill edit window buffer after sending message.
This commit is contained in:
parent
0b1da7f1ca
commit
6ab3246d80
@ -143,6 +143,8 @@
|
|||||||
(let [private-key (get-in state [:keys :private-key])
|
(let [private-key (get-in state [:keys :private-key])
|
||||||
text (string/join \newline (:text frame))
|
text (string/join \newline (:text frame))
|
||||||
event (events/compose-text-event private-key text)
|
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])
|
(async/>!! send-chan [:event event])
|
||||||
state))
|
state))
|
||||||
|
Loading…
Reference in New Issue
Block a user