app/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

module Main where

import qualified UI.HSCurses.Curses as Curses
import qualified UI.HSCurses.Widgets as W
import qualified UI.HSCurses.CursesHelper as CursesH

import Lib

mkTextWidget :: String -> W.TextWidget
mkTextWidget m = W.newTextWidget options m
    where options = W.defaultTWOptions
                    { W.twopt_size = W.TWSizeFixed (1, length m) }

main :: IO ()
main = do
  CursesH.start
  let w = mkTextWidget "Hello, Curses!"
  size <- Curses.scrSize
  W.draw (0, 0) (1, 14) W.DHNormal w
  Curses.refresh
  Curses.getCh
  CursesH.end