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