lib/Daffm.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

module Daffm (app, loadDirToState, mkEmptyAppState) where

import qualified Brick.Main as M
import Daffm.Attrs (appAttrMap)
import Daffm.Event (appEvent)
import Daffm.State (loadDirToState, mkEmptyAppState)
import Daffm.Types (AppState (..), FocusTarget)
import Daffm.View (appView)

app :: M.App AppState e FocusTarget
app =
  M.App
    { M.appDraw = appView,
      M.appChooseCursor = M.showFirstCursor,
      M.appHandleEvent = appEvent,
      M.appStartEvent = pure (),
      M.appAttrMap = const appAttrMap
    }