Avoid hiding view by using display

ldgrp · Jan 9, 2024 · b4b4a20 · b4b4a20
1 parent 1980535
commit b4b4a20
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 16 deletions.
diff --git a/up-top/src/Event.hs b/up-top/src/Event.hs
@@ -10,37 +10,37 @@ import Control.Monad.IO.Class (liftIO)
 import qualified Data.HashMap.Strict as H
 import qualified Data.Vector as Vec
 import Graphics.Vty
-import Lens.Micro.Platform hiding (view)
+import Lens.Micro.Platform
 import Types
 import Up.Model.Account
 import Up.Model.Category
 
 -- Handling events
 handleEvent :: BrickEvent Name UEvent -> EventM Name State ()
 handleEvent (VtyEvent e) = do
-  use (screen . focus . view) >>= \case
+  use (screen . focus . display) >>= \case
     MainView lz ViewportMode ->
       case e of
         EvKey KEsc []        -> pure ()
-        EvKey (KChar 'k') [] -> modify (setView (MainView (focusLeft lz) NormalMode))
-        EvKey (KChar 'j') [] -> modify (setView (MainView (focusRight lz) NormalMode))
-        EvKey KUp []         -> modify (setView (MainView (focusLeft lz) NormalMode))
-        EvKey KDown []       -> modify (setView (MainView (focusRight lz) NormalMode))
-        _                    -> modify (setView (MainView lz NormalMode))
+        EvKey (KChar 'k') [] -> modify (setDisplay (MainView (focusLeft lz) NormalMode))
+        EvKey (KChar 'j') [] -> modify (setDisplay (MainView (focusRight lz) NormalMode))
+        EvKey KUp []         -> modify (setDisplay (MainView (focusLeft lz) NormalMode))
+        EvKey KDown []       -> modify (setDisplay (MainView (focusRight lz) NormalMode))
+        _                    -> modify (setDisplay (MainView lz NormalMode))
     MainView lz NormalMode ->
       case e of
         EvKey KEsc []             -> halt
         EvKey (KChar 'q') []      -> halt
         EvKey (KChar '?') []      -> modify setHelpScreen
-        EvKey (KChar 'w') [MCtrl] -> modify (setView (MainView lz ViewportMode))
+        EvKey (KChar 'w') [MCtrl] -> modify (setDisplay (MainView lz ViewportMode))
         EvKey KEnter []           -> case lz ^. focus of
           FocusAccounts -> do
             aid <- use (accounts . to L.listSelectedElement) >>= \case
               Just (_, a) -> pure (accountId a)
               Nothing     -> error "" -- TODO: No more monad fail
             ch <- use reqChan
             liftIO $ writeBChan ch $ FetchTransaction aid
-            modify (setView (MainView (focusRight lz) NormalMode))
+            modify (setDisplay (MainView (focusRight lz) NormalMode))
           _ -> pure ()
         ev -> case lz ^. focus of
           FocusTransactions -> do

diff --git a/up-top/src/Types.hs b/up-top/src/Types.hs
@@ -7,7 +7,7 @@ import Brick.BChan
 import qualified Brick.Widgets.List as L
 import Data.HashMap.Strict
 import qualified Data.Text as T
-import Lens.Micro.Platform hiding (view)
+import Lens.Micro.Platform
 import Servant.Client (ClientEnv)
 import Up.Model.Account
 import Up.Model.Category
@@ -83,7 +83,7 @@ makeLenses ''Version
 data Mode = NormalMode | ViewportMode
   deriving (Eq, Ord, Show)
 
-data View
+data Display
   = MainView (ListZipper Focus) Mode
   | HelpView
   deriving (Eq, Ord, Show)
@@ -96,7 +96,7 @@ data Tag
 -- A Screen is a tag and a view
 data Screen = Screen
   { _tag :: Tag,
-    _view :: View
+    _display :: Display
   }
 
 makeLenses ''Screen
@@ -128,5 +128,5 @@ setMainScreen = setScreen MainTag
 setHelpScreen :: State -> State
 setHelpScreen = setScreen HelpTag
 
-setView :: View -> State -> State
-setView v st = st & (screen . focus . view) .~ v
+setDisplay :: Display -> State -> State
+setDisplay v st = st & (screen . focus . display) .~ v
diff --git a/up-top/src/UI.hs b/up-top/src/UI.hs
@@ -1,14 +1,14 @@
 module UI where
 
 import Brick.Types
-import Lens.Micro.Platform hiding (view)
+import Lens.Micro.Platform
 
 import Types
 import UI.HelpView
 import UI.MainView
 
 drawUI :: State -> [Widget Name]
 drawUI st =
-  case st ^. (screen . focus . view) of
+  case st ^. (screen . focus . display) of
     MainView lz _m -> drawMain st lz
     HelpView -> drawHelp st