import qualified Data.Text as T
import Text.Pandoc

-- Read an org document with a yaml metadata block and print it
printDocWithMetaData :: IO ()
printDocWithMetaData = do
  input <- readFile "root.org"
  let readerOpts = def {
    readerStandalone = True,
    readerExtensions = extensionsFromList [Ext_yaml_metadata_block]
  }
  doc <- runIO $ readOrg readerOpts (T.pack input)
  print doc