xanadu - src/Main.hs

-rw-r--r-- src/Main.hs
      1 {-# LANGUAGE OverloadedLabels #-}
      2 {-# LANGUAGE OverloadedStrings #-}
      3 
      4 module Main where
      5 
      6 import Icons (initIcons)
      7 import Style (initStyle)
      8 import Window (initWindow)
      9 
     10 import Control.Monad ((<=<))
     11 import Data.GI.Base
     12 import qualified GI.Gio as Gio
     13 import qualified GI.Gtk as Gtk
     14 
     15 main :: IO ()
     16 main = do
     17     app <- new Gtk.Application
     18       [ #applicationId := "xyz.mcol.xanadu"
     19       , #flags := [ Gio.ApplicationFlagsFlagsNone ]
     20       ]
     21     on app #activate $ activateApp app
     22     Gio.applicationRun app Nothing
     23     return ()
     24 
     25 activateApp :: Gtk.Application -> IO ()
     26 activateApp =
     27     mconcat . sequenceA [initStyle, initIcons, Gtk.widgetShowAll] <=< initWindow
     28