diff options
author | Justin Bedo <cu@cua0.org> | 2024-10-18 14:02:31 +1100 |
---|---|---|
committer | Justin Bedo <cu@cua0.org> | 2024-10-18 14:02:32 +1100 |
commit | 6bc3b1d517980b16fffc55b46bb93bc8106fdc05 (patch) | |
tree | 53e0521c866bbde8ac5553d288857b5dcd103d08 | |
parent | a2ee9d0cbfa365315ccfae15a7545d1824ee89b5 (diff) |
remove debugging code
-rw-r--r-- | jterm.hs | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -32,7 +32,6 @@ import qualified Streamly.Data.Stream.Prelude as S import System.Environment import System.IO.Unsafe import System.Posix.Pty -import Debug.Trace doubleClickDelay = 300 @@ -328,7 +327,7 @@ handleEvent display win bgcolour fgcolour linecolour selcolour font event = do -- middle click down case bsearch selstr (content b) (start -. 1) of Just p -> do - put $ b {cursor = join traceShow (p + start - end, p), pos = min (pos b) $ R.lengthInLines (R.splitAt p (content b) & fst) -. 1} + put $ b {cursor = (p + start - end, p), pos = min (pos b) $ R.lengthInLines (R.splitAt p (content b) & fst) -. 1} Nothing -> pure () (0, 4) -> scrollup 3 -- scroll wheel (0, 5) -> scrolldown 3 |