Initial commit

1 files changed, 20 insertions, 0 deletions

diff --git a/Text/Pandoc/Readers/Plain.hs b/Text/Pandoc/Readers/Plain.hs
new file mode 100644
index 0000000..600e5f8
--- /dev/null
+++ b/Text/Pandoc/Readers/Plain.hs
@@ -0,0 +1,20 @@
+{- |
+Module      :  Text.Pandoc.Readers.Plain
+Maintainer  :  defanor <defanor@uberspace.net>
+Stability   :  unstable
+Portability :  portable
+-}
+
+{-# LANGUAGE OverloadedStrings #-}
+module Text.Pandoc.Readers.Plain ( readPlain ) where
+
+import Text.Pandoc.Definition
+import Text.Pandoc.Error
+import Data.List
+
+-- | Reads plain text, always succeeding and producing a single
+-- 'Plain' block.
+readPlain :: String -> Either PandocError Pandoc
+readPlain = Right . Pandoc mempty . pure . Plain .
+  concatMap (\l -> (intersperse Space $ map Str $ words l) ++ [LineBreak]) . lines
+  -- or Right . Pandoc mempty . pure . RawBlock "plain"