From 21f2ce8a37fc8b286bc503f1f010e0cefdaa0594 Mon Sep 17 00:00:00 2001
From: Justin Bedo <cu@cua0.org>
Date: Thu, 7 Nov 2024 07:26:42 +1100
Subject: add ctrl-d for sending to buffer only not pty

---
 jterm.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/jterm.hs b/jterm.hs
index 0d60341..c7498a6 100644
--- a/jterm.hs
+++ b/jterm.hs
@@ -371,6 +371,8 @@ handleEvent display win bgcolour fgcolour linecolour selcolour font event = do
                   home <- getEnv "HOME"
                   T.writeFile (home <> "/jterm.log") (R.toText (content b))
                 (4, 115) -> do
+                  -- ctrl-d (send without sending to pty)
+                  put $ b {content = content b <> selstr <> " "}
                   -- ctrl-s (send)
                   put $ b {content = content b <> selstr <> "\n"}
                   sendline
-- 
cgit v1.2.3