lib/Daffm/Attrs.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

module Daffm.Attrs where

import qualified Brick.AttrMap as A
import Brick.Util (bg, fg)
import Brick.Widgets.List (listAttr, listSelectedAttr)
import qualified Brick.Widgets.List as L
import qualified Graphics.Vty as V

fileAttr :: A.AttrName
fileAttr = listAttr <> A.attrName "file"

fileSelectedAttr :: A.AttrName
fileSelectedAttr = listSelectedAttr <> fileAttr

directoryAttr :: A.AttrName
directoryAttr = listAttr <> A.attrName "directory"

directorySelectedAttr :: A.AttrName
directorySelectedAttr = listSelectedAttr <> directoryAttr

appAttrMap :: A.AttrMap
appAttrMap =
  A.attrMap
    V.defAttr
    [ (L.listAttr, fg V.white),
      (listSelectedAttr, bg V.black),
      (directoryAttr, fg V.brightCyan),
      (directorySelectedAttr, fg V.brightCyan),
      (fileAttr, fg V.white),
      (fileSelectedAttr, fg V.white)
    ]