From a774546d3b418c0203bb0d9ed09511b0239ded2a Mon Sep 17 00:00:00 2001 From: Paul Grillenberger Date: Thu, 27 Aug 2026 22:02:06 +0200 Subject: [PATCH] style(tui): center status button in extra line --- app/CertPrep/TUI/Draw.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/app/CertPrep/TUI/Draw.hs b/app/CertPrep/TUI/Draw.hs index 604c785..abc3c5b 100644 --- a/app/CertPrep/TUI/Draw.hs +++ b/app/CertPrep/TUI/Draw.hs @@ -105,12 +105,13 @@ drawExam core q drawAnswer statusButton = statusBar = padLeftRight 1 $ vLimitPercent 10 $ - hBox - [ txt $ renderScoreStatus core, - padLeft (Pad 1) (txt $ renderTimeStatus core), - hCenter statusButton, - txt $ renderKeybindings core - ] + hCenter statusButton + <=> hBox + [ txt $ renderScoreStatus core, + padLeft (Pad 1) (txt $ renderTimeStatus core), + hCenter (txt " "), + txt $ renderKeybindings core + ] renderQuestionTitle :: ExamCore -> Text renderQuestionTitle core =