991b577 · typeable/pandoc

git.iko.soy/typeable/pandoc

hlint Muse reader and writer

commit991b57733c508634d6093e2aeb2ffb3feec13c42 authorAlexander Krotov <ilabdsf@gmail.com> dateFri 2 Mar 2018, 19:51 (9 years ago) parenta015736

2 files changed+3−3

unifiedsplit

src/Text/Pandoc/Readers/Muse.hs+2−2

@@ -401,7 +401,7 @@ exampleTag = try $ do

401401 return $ return $ B.codeBlockWith attr $ rchop $ intercalate "\n" $ dropSpacePrefix $ splitOn "\n" $ lchop contents

402402

403403literalTag :: PandocMonad m => MuseParser m (F Blocks)

404−literalTag = do

404+literalTag =

405405 (return . rawBlock) <$> htmlBlock "literal"

406406 where

407407 -- FIXME: Emacs Muse inserts <literal> without style into all output formats, but we assume HTML

@@ -878,7 +878,7 @@ codeTag = do

878878 return $ return $ B.codeWith attrs content

879879

880880inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines)

881−inlineLiteralTag = do

881+inlineLiteralTag =

882882 (return . rawInline) <$> htmlElement "literal"

883883 where

884884 -- FIXME: Emacs Muse inserts <literal> without style into all output formats, but we assume HTML

src/Text/Pandoc/Writers/Muse.hs+1−1

@@ -157,7 +157,7 @@ blockToMuse (Para inlines) = do

157157 return $ contents <> blankline

158158blockToMuse (LineBlock lns) = do

159159 lns' <- mapM inlineListToMuse lns

160− return $ nowrap $ vcat (map ((text "> ") <>) lns') <> blankline

160+ return $ nowrap $ vcat (map (text "> " <>) lns') <> blankline

161161blockToMuse (CodeBlock (_,_,_) str) =

162162 return $ "<example>" $$ text str $$ "</example>" $$ blankline

163163blockToMuse (RawBlock (Format format) str) =