14 lines
411 B
Haskell
14 lines
411 B
Haskell
|
module Zenith.CLI where
|
||
|
|
|
||
|
|
import Brick (Widget, (<+>), joinBorders, simpleMain, str, withBorderStyle)
|
||
|
|
import Brick.Widgets.Border (borderWithLabel, vBorder)
|
||
|
|
import Brick.Widgets.Border.Style (unicode)
|
||
|
|
import Brick.Widgets.Center (center)
|
||
|
|
|
||
|
|
ui :: Widget ()
|
||
|
|
ui =
|
||
|
|
joinBorders $
|
||
|
|
withBorderStyle unicode $
|
||
|
|
borderWithLabel (str "Zenith") $
|
||
|
|
(center (str "Addresses") <+> vBorder <+> center (str "Transactions"))
|