Job.hs

{-# LANGUAGE ScopedTypeVariables #-}

-----------------------------------------------------------------------------
-- |
-- Module      : Application.HXournal.Job 
-- Copyright   : (c) 2011, 2012 Ian-Woo Kim
--
-- License     : BSD3
-- Maintainer  : Ian-Woo Kim <ianwookim@gmail.com>
-- Stability   : experimental
-- Portability : GHC
--

module Application.HXournal.Job where

import Application.HXournal.Script.Hook

import Application.HXournal.GUI
-- import Application.HXournal.Builder



startJob :: Maybe FilePath -> Maybe Hook -> IO () 
startJob mfname mhook = do 
  putStrLn "job started"
  startGUI mfname mhook 

{-
startTestBuilder :: FilePath -> IO () 
startTestBuilder fname = do 
  putStrLn fname
  xojcontent <- read_xojgz fname 
  L.writeFile "mytest.xoj" $ builder xojcontent
-}