fix layout of selection prompt

This commit is contained in:
Jonathan Lamothe 2023-05-31 13:21:49 -04:00
parent 2d5c4e6471
commit 820aab5e96

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,8 +218,8 @@ selectPrompt params = Prompt
desc = spElemDesc params x
in str $ "F" ++ show n ++ ") " ++ desc)
results
in hBox $
[ showCursor () (Location (0, pWidth)) $ str pStr
in vBox $
[ showCursor () (Location (pWidth, 0)) $ str pStr
, str " "
, str $ spSearchHeader params
] ++ fmtRes