diff options
| -rw-r--r-- | jterm.hs | 3 | ||||
| -rw-r--r-- | package.yaml | 2 |
2 files changed, 1 insertions, 4 deletions
@@ -412,11 +412,10 @@ handleEvent buffer display win bgcolour fgcolour linecolour selcolour font event T toAppend -> do let noesc = stripAnsiEscapeCodes toAppend expandedTabs = T.intercalate "\n" $ map expandTabs $ T.splitOn "\n" noesc - pl = pos b & linePos cl = ptycursor b & linePos linePos p = content b & R.splitAt p & fst & R.lengthAsPosition & posLine delins' True (ptycursor b) (ptycursor b) $ R.fromText expandedTabs - when (pl + pageheight > cl) redraw + when (pos b + pageheight > cl) redraw Notify -> do prop <- internAtom display "JTERM_CLIPBOARD" False getWindowProperty8 display prop win >>= \case diff --git a/package.yaml b/package.yaml index e040603..70f2a4f 100644 --- a/package.yaml +++ b/package.yaml @@ -14,8 +14,6 @@ dependencies: - text - utf8-string - bytestring - - mtl - - transformers - strip-ansi-escape - fusion-plugin - containers |