jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-10-27 09:38:28 +03:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' of github.com:jtdaugherty/brick

Browse Source
This commit is contained in:
Jonathan Daugherty 2018-02-05 18:19:08 -08:00
commit 29e426cc47
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/Brick/Widgets/Dialog.hs
View File

@ -76,10 +76,10 @@ suffixLenses ''Dialog
handleDialogEvent :: Event -> Dialog a -> EventM n (Dialog a)
handleDialogEvent ev d =
return $ case ev of
EvKey (KChar '\t') [] -> nextButtonBy 1 d
EvKey KBackTab [] -> nextButtonBy (-1) d
EvKey KRight [] -> nextButtonBy 1 d
EvKey KLeft [] -> nextButtonBy (-1) d
EvKey (KChar '\t') [] -> nextButtonBy 1 True d
EvKey KBackTab [] -> nextButtonBy (-1) True d
EvKey KRight [] -> nextButtonBy 1 False d
EvKey KLeft [] -> nextButtonBy (-1) False d
_ -> d
-- | Create a dialog.
@ -133,13 +133,18 @@ renderDialog d body =
, hCenter buttons
]
nextButtonBy :: Int -> Dialog a -> Dialog a
nextButtonBy amt d =
nextButtonBy :: Int -> Bool -> Dialog a -> Dialog a
nextButtonBy amt wrapCycle d =
let numButtons = length $ d^.dialogButtonsL
in if numButtons == 0 then d
else case d^.dialogSelectedIndexL of
Nothing -> d & dialogSelectedIndexL .~ (Just 0)
Just i -> d & dialogSelectedIndexL .~ (Just $ (i + amt) `mod` numButtons)
Just i -> d & dialogSelectedIndexL .~ (Just newIndex)
where
addedIndex = i + amt
newIndex = if wrapCycle
then addedIndex `mod` numButtons
else max 0 $ min addedIndex $ numButtons - 1
-- | Obtain the value associated with the dialog's currently-selected
-- button, if any. This function is probably what you want when someone