switch from ncurses to brick #1
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user