blob: 02529ac7b59477c480cee748f7045478fa363d3a (
plain) (
blame)
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
|
module Daffm.View where
import Brick.Types (Widget)
import Brick.Widgets.Core (str, vBox, vLimit, withAttr, (<+>))
import qualified Brick.Widgets.List as L
import Daffm.Attrs (selectedFileAttr)
import Daffm.Types (AppState (..), FileInfo (..))
import qualified Data.Vector as Vec
appView :: AppState -> [Widget ()]
appView (AppState {stateFiles, stateCwd}) = [ui]
where
ui = vBox [vLimit 1 header, box, vLimit 1 cmdline]
header = str stateCwd
cmdline = str "Item " <+> cur <+> str " of " <+> total
cur = case L.listSelected stateFiles of
Nothing -> str "-"
Just i -> str (show (i + 1))
total = str $ show $ Vec.length $ L.listElements stateFiles
box = L.renderList fileItemView True stateFiles
fileItemView :: Bool -> FileInfo -> Widget ()
fileItemView sel (FileInfo {fileName, fileSize, fileType}) =
let wrap w = if sel then withAttr selectedFileAttr w else w
in wrap (str fileName) <+> str (" : " <> show fileSize <> " | " <> show fileType)
|
