switch from ncurses to brick #1

Merged
jlamothe merged 21 commits from brick into dev 2023-06-02 15:28:41 -04:00
Showing only changes of commit 820aab5e96 - Show all commits

View File

@ -49,7 +49,7 @@ module Mtlstats.Prompt (
) where
import Brick.Types (BrickEvent (VtyEvent), Location (Location), Widget)
import Brick.Widgets.Core (hBox, showCursor, str)
import Brick.Widgets.Core (showCursor, str, vBox)
import Control.Monad (when)
import Control.Monad.Extra (whenJust)
import Control.Monad.State.Class (gets, modify)
@ -218,9 +218,9 @@ selectPrompt params = Prompt
desc = spElemDesc params x
in str $ "F" ++ show n ++ ") " ++ desc)
results
in hBox $
[ showCursor () (Location (0, pWidth)) $ str pStr
, str ""
in vBox $
[ showCursor () (Location (pWidth, 0)) $ str pStr
, str " "
, str $ spSearchHeader params
] ++ fmtRes
, promptProcessChar = spProcessChar params