jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-11-25 02:42:28 +03:00
Code Issues Projects Releases Wiki Activity

TabularListDemo: update cursor location text

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-12-27 15:56:11 -08:00
parent 16666f3891
commit f4561dc662
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
programs/TabularListDemo.hs
View File

@ -23,8 +23,7 @@ import Brick.Types
( Widget
)
import Brick.Widgets.Core
( (<+>)
, (<=>)
( (<=>)
, str
, vLimit
, hLimit
@ -47,11 +46,10 @@ drawUI :: AppState -> [Widget ()]
drawUI s = [ui]
where
l = s^.tabularList
label = str "Item " <+> cur <+> str " of " <+> total
label = str $ "Row " <> cur <> " / col " <> show (s^.colIndex + 1)
cur = case l^.(L.listSelectedL) of
Nothing -> str "-"
Just i -> str (show (i + 1))
total = str $ show $ Vec.length $ l^.(L.listElementsL)
Nothing -> "-"
Just i -> show (i + 1)
box = B.borderWithLabel label $
hLimit totalWidth $
vLimit 15 $