Pretty print internal representation in Djot utility

bin/src/Djot.idr

@@ -6,6 +6,8 @@ import System.File
 import SSG.Djot
 import SSG.HTML
 
+import Text.PrettyPrint.Bernardy
+
 main : IO ()
 main = do
   args <- getArgs
@@ -14,8 +16,12 @@ main = do
       Right contents <- readFile file
         | Left err => printLn err
       let parsed = djot contents
-      printLn parsed
       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