04478cf · typeable/pandoc

87 }

88

89evalMuse :: PandocMonad m => Muse m a -> WriterEnv -> WriterState -> m a

90−evalMuse document env st = evalStateT (runReaderT document env) st

90+evalMuse document env = evalStateT $ runReaderT document env

91

92-- | Convert Pandoc to Muse.

93writeMuse :: PandocMonad m

276notesToMuse :: PandocMonad m

277 => Notes

278 -> Muse m Doc

279−notesToMuse notes = vsep <$> (zipWithM noteToMuse [1 ..] notes)

279+notesToMuse notes = vsep <$> zipWithM noteToMuse [1 ..] notes

280

281-- | Return Muse representation of a note.

282noteToMuse :: PandocMonad m

307

308-- | Escape special characters for Muse if needed.

309containsFootnotes :: String -> Bool

310−containsFootnotes st =

310+containsFootnotes = p

311− p st

312 where p ('[':xs) = q xs || p xs

311 where p ('[':xs) = q xs || p xs

313 p (_:xs) = p xs

312 p (_:xs) = p xs

314 p "" = False

313 p "" = False