jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-12-04 17:36:43 +03:00
Code Issues Projects Releases Wiki Activity

List: add support for Home/End keys

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-08-20 08:46:05 -07:00
parent 1950bc01de
commit 717186ef5e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Brick/Widgets/List.hs
View File

@ -54,6 +54,8 @@ import Brick.AttrMap
-- * Up/down arrow keys: move cursor of selected item
-- * Page up / page down keys: move cursor of selected item by one page
-- at a time (based on the number of items shown)
-- * Home/end keys: move cursor of selected item to beginning or end of
-- list
data List e =
List { listElements :: !(V.Vector e)
, listSelected :: !(Maybe Int)
@ -69,6 +71,8 @@ instance HandleEvent (List e) where
f = case e of
EvKey KUp [] -> return $ listMoveUp theList
EvKey KDown [] -> return $ listMoveDown theList
EvKey KHome [] -> return $ listMoveTo 0 theList
EvKey KEnd [] -> return $ listMoveTo (length $ listElements theList) theList
EvKey KPageDown [] -> do
v <- lookupViewport (theList^.listNameL)
case v of