diff options
author | Kjetil Orbekk <kjetil.orbekk@gmail.com> | 2016-02-24 03:52:12 +0100 |
---|---|---|
committer | Kjetil Orbekk <kjetil.orbekk@gmail.com> | 2016-02-24 03:52:12 +0100 |
commit | b9d0c16ae87d37f26f94d24933b8e9e72c93d50e (patch) | |
tree | 4351c72b6edab5724f3965435f9ce2558f8f5574 /app/Main.hs | |
parent | 15eef06c3619a6f723fd6d9b1638c436b6f98c8f (diff) |
Diffstat (limited to 'app/Main.hs')
-rw-r--r-- | app/Main.hs | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs index 9d74405..69afe0d 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -1,6 +1,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 = undefined +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 |