27 lines
572 B
Idris
27 lines
572 B
Idris
module Djot
|
|
|
|
import System
|
|
import System.File
|
|
|
|
import SSG.Djot
|
|
import SSG.HTML
|
|
|
|
import Text.PrettyPrint.Bernardy
|
|
|
|
main : IO ()
|
|
main = do
|
|
args <- getArgs
|
|
case args of
|
|
[_, file] => do
|
|
Right contents <- readFile file
|
|
| Left err => printLn err
|
|
let parsed = djot contents
|
|
putStr . render $ renderHtml parsed
|
|
[_, "raw", file] => do
|
|
Right contents <- readFile file
|
|
| Left err => printLn err
|
|
let parsed = djot contents
|
|
putStrLn . Doc.render (Opts 80) $ pretty parsed
|
|
_ => do
|
|
putStrLn "?"
|
|
exitFailure
|