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

centred title screen

Browse Source
This commit is contained in:
Jonathan Lamothe
2020-01-22 13:43:58 -05:00
parent 9c2e2291c8
commit f2b2ff3fef
1 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/Mtlstats/Control/TitleScreen.hs
View File

@@ -28,13 +28,16 @@ import Data.Char (chr)
import qualified UI.NCurses as C import qualified UI.NCurses as C
import Mtlstats.Actions import Mtlstats.Actions
import Mtlstats.Format
import Mtlstats.Types import Mtlstats.Types
titleScreenC :: Controller titleScreenC :: Controller
titleScreenC = Controller titleScreenC = Controller
{ drawController = const $ do { drawController = const $ do
C.drawString $ unlines $ titleText ++ (_, cols) <- C.windowSize
[ "" C.drawString $ unlines $ map (centre $ fromIntegral $ pred cols)
$ titleText
++ [ ""
, "Copyright (C) 1984, 1985, 2019, 2020 Rhéal Lamothe" , "Copyright (C) 1984, 1985, 2019, 2020 Rhéal Lamothe"
, "<rheal.lamothe@gmail.com>" , "<rheal.lamothe@gmail.com>"
, "" , ""