module Main where
import Internal.GridTabularList
import Brick.Widgets.TabularList.Grid
main :: IO ()
main = do
let msgs = [ "Press Up arrow or k to go up one item"
, "Press Down arrow or j to go down one item"
, "Press PageUp or Ctrl+f to go up one page"
, "Press PageDown or Ctrl+b to go down one page"
, "Press Home or g to go to the beginning"
, "Press End or G to go to the end"
, "Press Ctrl+u to go up half page"
, "Press Ctrl+d to go down half page"
, " "
, "Press Left arrow or h to go left by one column"
, "Press Right arrow or l to go right by one column"
, "Press Ctrl+Home or H to go to the first column"
, "Press Ctrl+End or L to go to the last column"
, "Press Ctrl+PageUp or Alt+h or Backspace to go left by one page of columns"
, "Press Ctrl+PageDown or Alt+l to go right by one page of columns" ]
runMain msgs $ \r e -> do
handleGridListEvent r e
handleGridListEventVi r e