fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix layout of selection prompt

This commit is contained in:
Jonathan Lamothe 2023-05-31 13:21:49 -04:00
parent 2d5c4e6471
commit 820aab5e96
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Mtlstats/Prompt.hs
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