CrystalSplitter/ghcitui
1
1
Fork 0
mirror of https://github.com/CrystalSplitter/ghcitui.git synced 2024-08-16 06:30:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix Widget caching on resize

Browse Source
This commit is contained in:
CrystalSplitter 2024-01-14 19:18:06 -08:00 committed by Jordan R AW
parent 03f4e47efc
commit fcb6964827
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/Events.hs
View File

@ -70,8 +70,10 @@ handleInfoEvent ev = do
-- Resizing
B.VtyEvent (V.EvKey (V.KChar '-') []) -> do
B.put (AppState.changeInfoWidgetSize (-1) appState)
invalidateLineCache
B.VtyEvent (V.EvKey (V.KChar '+') []) -> do
B.put (AppState.changeInfoWidgetSize 1 appState)
invalidateLineCache
_ -> pure ()
B.invalidateCacheEntry ModulesViewport
@ -259,10 +261,12 @@ handleSrcWindowEvent (B.VtyEvent (V.EvKey key ms))
appState <- B.get
B.put (AppState.changeInfoWidgetSize (-1) appState)
B.invalidateCacheEntry ModulesViewport
invalidateLineCache
| key == V.KChar '-' && null ms = do
appState <- B.get
B.put (AppState.changeInfoWidgetSize 1 appState)
B.invalidateCacheEntry ModulesViewport
invalidateLineCache
| key == V.KChar 'x' && ms == [V.MCtrl] =
B.put . toggleActiveLineInterpreter =<< B.get
| key == V.KChar 'M' = do
@ -291,6 +295,7 @@ scrollPage dir = do
B.put
. (\srcW -> Lens.set AppState.sourceWindow srcW appState)
=<< SourceWindow.srcWindowScrollPage dir (appState ^. AppState.sourceWindow)
invalidateLineCache
-- | Open up the quit dialog. See 'quit' for the actual quitting.
confirmQuit :: B.EventM AppName (AppState AppName) ()