module Mensam.Client.UI.Brick.Draw where

import Brick
import Data.Text qualified as T

drawHelp :: Widget a
drawHelp :: forall a. Widget a
drawHelp =
  [Widget a] -> Widget a
forall n. [Widget n] -> Widget n
vBox
    [ Text -> Widget a
forall n. Text -> Widget n
txt Text
title
    , Padding -> Widget a -> Widget a
forall n. Padding -> Widget n -> Widget n
padTop Padding
Max (Widget a -> Widget a) -> Widget a -> Widget a
forall a b. (a -> b) -> a -> b
$ Padding -> Widget a -> Widget a
forall n. Padding -> Widget n -> Widget n
padLeft Padding
Max (Widget a -> Widget a) -> Widget a -> Widget a
forall a b. (a -> b) -> a -> b
$ Text -> Widget a
forall n. Text -> Widget n
txt Text
footerMenu
    ]

title :: T.Text
title :: Text
title =
  Text
"  __  __                             \n\
  \ |  \\/  | ___  _ _   ___ __ _  _ __  \n\
  \ | |\\/| |/ -_)| ' \\ (_-// _` || '  \\ \n\
  \ |_|  |_|\\___||_||_|/__/\\__/_||_|_|_|\n"

footerMenuHelp :: T.Text
footerMenuHelp :: Text
footerMenuHelp = Text
" Menu (Escape) | Help (?) "

footerMenu :: T.Text
footerMenu :: Text
footerMenu = Text
" Menu (Escape) "