From 8262643bbc4db671b0f32ff1aa627c05bb8b4963 Mon Sep 17 00:00:00 2001
From: Justin Bedo <cu@cua0.org>
Date: Thu, 7 Nov 2024 07:20:37 +1100
Subject: scroll to top when deleting to top of buffer

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

(limited to 'jterm.hs')

diff --git a/jterm.hs b/jterm.hs
index 681c283..0d60341 100644
--- a/jterm.hs
+++ b/jterm.hs
@@ -1,4 +1,4 @@
- {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE StrictData #-}
@@ -33,6 +33,7 @@ import qualified Streamly.Data.Stream.Prelude as S
 import System.Environment
 import System.IO.Unsafe
 import System.Posix.Pty
+import Debug.Trace
 
 doubleClickDelay = 300
 
@@ -342,8 +343,9 @@ handleEvent display win bgcolour fgcolour linecolour selcolour font event = do
               put $ b {cursor = (min p q, max p q)}
             _ -> do
               case (mod, keysym) of
-                (4, 117) ->
+                (4, 117) -> do
                   -- ctrl-u (delete content before cursor)
+                  put $ b {pos = 0}
                   delins 0 start ""
                 (4, 105) ->
                   -- ctrl-i (delete content after cursor)
-- 
cgit v1.2.3