tkhs-0.2.1: src/Main.hs

module Main where

import Tkhs
import Parser

import System.Environment
import System.IO.UTF8 as U
import Data.Char
import qualified Data.List.PointedList as Zipper
import Data.Maybe

main :: IO ()
main = getArgs >>= U.readFile . headOrUsage
               >>= either (error . show)
                          (runP presentation . fromJust . Zipper.fromList . (++[T ["[End of Slide]"]]))
                         . parseSlides

headOrUsage :: [String] -> String
headOrUsage ls | null ls = error "Usage: tkhs [presentation]"
               | otherwise = head ls