diff options
| -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 |