git.iko.soy/typeable/pandoc
on master help sign in
LaTeX reader: plainbreak, fancybreak et al from the memoir class (#3833)
685788cbucklereed
src/Text/Pandoc/Readers/LaTeX.hs+9
compare with master
unifiedsplit
@@ -1701,6 +1701,15 @@ blockCommands = M.fromList $
1701 -- letters
1701 -- letters
1702 , ("opening", (para . trimInlines) <$> (skipopts *> tok))
1702 , ("opening", (para . trimInlines) <$> (skipopts *> tok))
1703 , ("closing", skipopts *> closing)
1703 , ("closing", skipopts *> closing)
1704+ -- memoir
1705+ , ("plainbreak", braced >> pure horizontalRule)
1706+ , ("plainbreak*", braced >> pure horizontalRule)
1707+ , ("fancybreak", braced >> pure horizontalRule)
1708+ , ("fancybreak*", braced >> pure horizontalRule)
1709+ , ("plainfancybreak", braced >> braced >> braced >> pure horizontalRule)
1710+ , ("plainfancybreak*", braced >> braced >> braced >> pure horizontalRule)
1711+ , ("pfbreak", pure horizontalRule)
1712+ , ("pfbreak*", pure horizontalRule)
1704 --
1713 --
1705 , ("hrule", pure horizontalRule)
1714 , ("hrule", pure horizontalRule)
1706 , ("strut", pure mempty)
1715 , ("strut", pure mempty)
test/Tests/Readers/LaTeX.hs+26
@@ -117,6 +117,32 @@ tests = [ testGroup "basic"
117 mconcat ["^^" <> T.pack [i] | i <- hex] =?>
117 mconcat ["^^" <> T.pack [i] | i <- hex] =?>
118 para (str $ ['p'..'y']++['!'..'&'])
118 para (str $ ['p'..'y']++['!'..'&'])
119 ]
119 ]
120+ , testGroup "memoir scene breaks"
121+ [ "plainbreak" =:
122+ "hello\\plainbreak{2}goodbye" =?>
123+ para (str "hello") <> horizontalRule <> para (str "goodbye")
124+ , "plainbreak*" =:
125+ "hello\\plainbreak*{2}goodbye" =?>
126+ para (str "hello") <> horizontalRule <> para (str "goodbye")
127+ , "fancybreak" =:
128+ "hello\\fancybreak{b r e a k}goodbye" =?>
129+ para (str "hello") <> horizontalRule <> para (str "goodbye")
130+ , "fancybreak*" =:
131+ "hello\\fancybreak*{b r e a k}goodbye" =?>
132+ para (str "hello") <> horizontalRule <> para (str "goodbye")
133+ , "plainfancybreak" =:
134+ "hello\\plainfancybreak{4}{2}{b r e a k}goodbye" =?>
135+ para (str "hello") <> horizontalRule <> para (str "goodbye")
136+ , "plainfancybreak*" =:
137+ "hello\\plainfancybreak*{4}{2}{b r e a k}goodbye" =?>
138+ para (str "hello") <> horizontalRule <> para (str "goodbye")
139+ , "pfbreak" =:
140+ "hello\\pfbreak{}goodbye" =?>
141+ para (str "hello") <> horizontalRule <> para (str "goodbye")
142+ , "pfbreak*" =:
143+ "hello\\pfbreak*{}goodbye" =?>
144+ para (str "hello") <> horizontalRule <> para (str "goodbye")
145+ ]
120 ]
146 ]
121
147
122baseCitation :: Citation
148baseCitation :: Citation