jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-09-11 15:55:54 +03:00
Code Issues Projects Releases Wiki Activity

List demo improvements

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-06-28 20:05:30 -07:00
parent 361046b203
commit 0faa130f13
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
programs/ListDemo.hs
View File

@ -54,11 +54,11 @@ listDrawElement sel i =
let selStr s = if sel
then withAttrName customAttr (str $ "<" <> s <> ">")
else str s
in hCenterWith (Just ' ') $ vBox $ for [1..i+1] $ \j ->
"Item " <+> (selStr $ show i) <+> " Line " <+> (str $ show j)
in (hCenterWith (Just ' ') $ vBox $ for [1..i+1] $ \j ->
"Item " <+> (selStr $ show i) <+> " Line " <+> (str $ show j)) <=> hBorder
initialState :: List Int
initialState = list (Name "list") listDrawElement [1, 2, 3]
initialState = list (Name "list") listDrawElement [0, 1, 2]
customAttr :: AttrName
customAttr = listSelectedAttr <> "custom"