mdcat-0.1.0.0: src/Main.hs

module Main where
  import Mdcat
  import System.Environment (getArgs)
  import Text.Pandoc
  import System.Directory
  import System.Console.ANSI
  import Control.Monad

  main :: IO ()
  main = do
    l <- getArgs
    case l of
      (file:_) -> do
        file_exists <- doesFileExist file
        if file_exists then do
          file_content <- readFile file
          let pandoc_document = readMarkdown def file_content
          render pandoc_document
          debugMessage 100 "Finished Rendering"
        else
          print "Error, file does not exists"
      _ -> print "Error, please at leaset provide a file path"