a3a3e3f · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Merge branch 'org-meta-handling'

a3a3e3fAlbert Krewinkel10 years ago

pandoc.cabal+1

compare with master

unifiedsplit

@@ -401,6 +401,7 @@ Library

401 Text.Pandoc.Readers.Org.Blocks,

402 Text.Pandoc.Readers.Org.ExportSettings,

403 Text.Pandoc.Readers.Org.Inlines,

404+ Text.Pandoc.Readers.Org.Meta,

404 Text.Pandoc.Readers.Org.ParserState,

405 Text.Pandoc.Readers.Org.ParserState,

405 Text.Pandoc.Readers.Org.Parsing,

406 Text.Pandoc.Readers.Org.Parsing,

406 Text.Pandoc.Readers.Org.Shared,

407 Text.Pandoc.Readers.Org.Shared,

src/Text/Pandoc/Readers/Org/Blocks.hs+3−66

@@ -34,8 +34,8 @@ module Text.Pandoc.Readers.Org.Blocks

34 ) where

36import Text.Pandoc.Readers.Org.BlockStarts

37−import Text.Pandoc.Readers.Org.ExportSettings ( exportSettings )

38import Text.Pandoc.Readers.Org.Inlines

37import Text.Pandoc.Readers.Org.Inlines

38+import Text.Pandoc.Readers.Org.Meta ( metaExport, metaLine )

39import Text.Pandoc.Readers.Org.ParserState

40import Text.Pandoc.Readers.Org.Parsing

41import Text.Pandoc.Readers.Org.Shared

@@ -52,9 +52,7 @@ import Text.Pandoc.Shared ( compactify', compactify'DL )

52import Control.Monad ( foldM, guard, mzero, void )

53import Data.Char ( isSpace, toLower, toUpper)

54import Data.List ( foldl', intersperse, isPrefixOf )

55−import qualified Data.Map as M

56import Data.Maybe ( fromMaybe, isNothing )

55import Data.Maybe ( fromMaybe, isNothing )

57−import Network.HTTP ( urlEncode )

59--

57--

60-- Org headers

58-- Org headers

@@ -232,8 +230,8 @@ blockList = do

232-- | Get the meta information safed in the state.

230-- | Get the meta information safed in the state.

233meta :: OrgParser Meta

231meta :: OrgParser Meta

234meta = do

232meta = do

235− st <- getState

233+ meta' <- metaExport

236− return $ runF (orgStateMeta st) st

234+ runF meta' <$> getState

237

235

238blocks :: OrgParser (F Blocks)

236blocks :: OrgParser (F Blocks)

239blocks = mconcat <$> manyTill block (void (lookAhead headerStart) <|> eof)

237blocks = mconcat <$> manyTill block (void (lookAhead headerStart) <|> eof)

@@ -631,67 +629,9 @@ exampleCode = B.codeBlockWith ("", ["example"], [])

631specialLine :: OrgParser (F Blocks)

629specialLine :: OrgParser (F Blocks)

632specialLine = fmap return . try $ metaLine <|> commentLine

630specialLine = fmap return . try $ metaLine <|> commentLine

633

631

634−-- The order, in which blocks are tried, makes sure that we're not looking at

635−-- the beginning of a block, so we don't need to check for it

636−metaLine :: OrgParser Blocks

637−metaLine = mempty <$ metaLineStart <* (optionLine <|> declarationLine)

638−

639commentLine :: OrgParser Blocks

632commentLine :: OrgParser Blocks

640commentLine = commentLineStart *> anyLine *> pure mempty

633commentLine = commentLineStart *> anyLine *> pure mempty

641

634

642−declarationLine :: OrgParser ()

643−declarationLine = try $ do

644− key <- metaKey

645− value <- metaInlines

646− updateState $ \st ->

647− let meta' = B.setMeta key <$> value <*> pure nullMeta

648− in st { orgStateMeta = orgStateMeta st <> meta' }

649−

650−metaInlines :: OrgParser (F MetaValue)

651−metaInlines = fmap (MetaInlines . B.toList) <$> inlinesTillNewline

652−

653−metaKey :: OrgParser String

654−metaKey = map toLower <$> many1 (noneOf ": \n\r")

655− <* char ':'

656− <* skipSpaces

657−

658−optionLine :: OrgParser ()

659−optionLine = try $ do

660− key <- metaKey

661− case key of

662− "link" -> parseLinkFormat >>= uncurry addLinkFormat

663− "options" -> exportSettings

664− _ -> mzero

665−

666−addLinkFormat :: String

667− -> (String -> String)

668− -> OrgParser ()

669−addLinkFormat key formatter = updateState $ \s ->

670− let fs = orgStateLinkFormatters s

671− in s{ orgStateLinkFormatters = M.insert key formatter fs }

672−

673−parseLinkFormat :: OrgParser ((String, String -> String))

674−parseLinkFormat = try $ do

675− linkType <- (:) <$> letter <*> many (alphaNum <|> oneOf "-_") <* skipSpaces

676− linkSubst <- parseFormat

677− return (linkType, linkSubst)

678−

679−-- | An ad-hoc, single-argument-only implementation of a printf-style format

680−-- parser.

681−parseFormat :: OrgParser (String -> String)

682−parseFormat = try $ do

683− replacePlain <|> replaceUrl <|> justAppend

684− where

685− -- inefficient, but who cares

686− replacePlain = try $ (\x -> concat . flip intersperse x)

687− <$> sequence [tillSpecifier 's', rest]

688− replaceUrl = try $ (\x -> concat . flip intersperse x . urlEncode)

689− <$> sequence [tillSpecifier 'h', rest]

690− justAppend = try $ (++) <$> rest

691−

692− rest = manyTill anyChar (eof <|> () <$ oneOf "\n\r")

693− tillSpecifier c = manyTill (noneOf "\n\r") (try $ string ('%':c:""))

694−

695

635

696--

636--

697-- Tables

637-- Tables

@@ -868,9 +808,6 @@ paraOrPlain = try $ do

868 *> return (B.para <$> ils))

808 *> return (B.para <$> ils))

869 <|> (return (B.plain <$> ils))

809 <|> (return (B.plain <$> ils))

870

810

871−inlinesTillNewline :: OrgParser (F Inlines)

872−inlinesTillNewline = trimInlinesF . mconcat <$> manyTill inline newline

873−

874

811

875--

812--

876-- list blocks

813-- list blocks

src/Text/Pandoc/Readers/Org/ExportSettings.hs+5−3

@@ -54,13 +54,15 @@ exportSetting = choice

54 , ignoredSetting "<"

55 , ignoredSetting "\\n"

56 , archivedTreeSetting "arch" (\val es -> es { exportArchivedTrees = val })

57− , ignoredSetting "author"

57+ , booleanSetting "author" (\val es -> es { exportWithAuthor = val })

58 , ignoredSetting "c"

59− , ignoredSetting "creator"

59+ -- org-mode allows the special value `comment` for creator, which we'll

60+ -- interpret as true as it doesn't make sense in the context of Pandoc.

61+ , booleanSetting "creator" (\val es -> es { exportWithCreator = val })

60 , complementableListSetting "d" (\val es -> es { exportDrawers = val })

62 , complementableListSetting "d" (\val es -> es { exportDrawers = val })

61 , ignoredSetting "date"

63 , ignoredSetting "date"

62 , ignoredSetting "e"

64 , ignoredSetting "e"

63− , ignoredSetting "email"

65+ , booleanSetting "email" (\val es -> es { exportWithEmail = val })

64 , ignoredSetting "f"

66 , ignoredSetting "f"

65 , integerSetting "H" (\val es -> es { exportHeadlineLevels = val })

67 , integerSetting "H" (\val es -> es { exportHeadlineLevels = val })

66 , ignoredSetting "inline"

68 , ignoredSetting "inline"

src/Text/Pandoc/Readers/Org/Meta.hsnew file+181

@@ -0,0 +1,181 @@

1+{-# LANGUAGE FlexibleContexts #-}

2+{-# LANGUAGE TupleSections #-}

3+{-

6+This program is free software; you can redistribute it and/or modify

7+it under the terms of the GNU General Public License as published by

8+the Free Software Foundation; either version 2 of the License, or

9+(at your option) any later version.

10+

11+This program is distributed in the hope that it will be useful,

12+but WITHOUT ANY WARRANTY; without even the implied warranty of

13+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

14+GNU General Public License for more details.

15+

16+You should have received a copy of the GNU General Public License

17+along with this program; if not, write to the Free Software

18+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

19+-}

20+

21+{- |

22+ Module : Text.Pandoc.Readers.Org.Meta

24+ License : GNU GPL, version 2 or above

25+

26+ Maintainer : Albert Krewinkel <tarleb+pandoc@moltkeplatz.de>

27+

28+Parsers for Org-mode meta declarations.

29+-}

30+module Text.Pandoc.Readers.Org.Meta

31+ ( metaLine

32+ , metaExport

33+ ) where

34+

35+import Text.Pandoc.Readers.Org.BlockStarts

36+import Text.Pandoc.Readers.Org.ExportSettings ( exportSettings )

37+import Text.Pandoc.Readers.Org.Inlines

38+import Text.Pandoc.Readers.Org.ParserState

39+import Text.Pandoc.Readers.Org.Parsing

40+

41+import qualified Text.Pandoc.Builder as B

42+import Text.Pandoc.Builder ( Blocks, Inlines )

43+import Text.Pandoc.Definition

44+import Text.Pandoc.Compat.Monoid ((<>))

45+

46+import Control.Monad ( mzero )

47+import Data.Char ( toLower )

48+import Data.List ( intersperse )

49+import qualified Data.Map as M

50+import Network.HTTP ( urlEncode )

51+

52+-- | Returns the current meta, respecting export options.

53+metaExport :: OrgParser (F Meta)

54+metaExport = do

55+ st <- getState

56+ let settings = orgStateExportSettings st

57+ return $ (if exportWithAuthor settings then id else removeMeta "author")

58+ . (if exportWithCreator settings then id else removeMeta "creator")

59+ . (if exportWithEmail settings then id else removeMeta "email")

60+ <$> orgStateMeta st

61+

62+removeMeta :: String -> Meta -> Meta

63+removeMeta key meta' =

64+ let metaMap = unMeta meta'

65+ in Meta $ M.delete key metaMap

66+

67+-- | Parse and handle a single line containing meta information

68+-- The order, in which blocks are tried, makes sure that we're not looking at

69+-- the beginning of a block, so we don't need to check for it

70+metaLine :: OrgParser Blocks

71+metaLine = mempty <$ metaLineStart <* (optionLine <|> declarationLine)

72+

73+declarationLine :: OrgParser ()

74+declarationLine = try $ do

75+ key <- map toLower <$> metaKey

76+ (key', value) <- metaValue key

77+ updateState $ \st ->

78+ let meta' = B.setMeta key' <$> value <*> pure nullMeta

79+ in st { orgStateMeta = meta' <> orgStateMeta st }

80+

81+metaKey :: OrgParser String

82+metaKey = map toLower <$> many1 (noneOf ": \n\r")

83+ <* char ':'

84+ <* skipSpaces

85+

86+metaValue :: String -> OrgParser (String, (F MetaValue))

87+metaValue key =

88+ let inclKey = "header-includes"

89+ in case key of

90+ "author" -> (key,) <$> metaInlinesCommaSeparated

91+ "title" -> (key,) <$> metaInlines

92+ "date" -> (key,) <$> metaInlines

93+ "header-includes" -> (key,) <$> accumulatingList key metaInlines

94+ "latex_header" -> (inclKey,) <$>

95+ accumulatingList inclKey (metaExportSnippet "latex")

96+ "latex_class" -> ("documentclass",) <$> metaString

97+ -- Org-mode expects class options to contain the surrounding brackets,

98+ -- pandoc does not.

99+ "latex_class_options" -> ("classoption",) <$>

100+ metaModifiedString (filter (`notElem` "[]"))

101+ "html_head" -> (inclKey,) <$>

102+ accumulatingList inclKey (metaExportSnippet "html")

103+ _ -> (key,) <$> metaString

104+

105+metaInlines :: OrgParser (F MetaValue)

106+metaInlines = fmap (MetaInlines . B.toList) <$> inlinesTillNewline

107+

108+metaInlinesCommaSeparated :: OrgParser (F MetaValue)

109+metaInlinesCommaSeparated = do

110+ authStrs <- (many1 (noneOf ",\n")) `sepBy1` (char ',')

111+ newline

112+ authors <- mapM (parseFromString inlinesTillNewline . (++ "\n")) authStrs

113+ let toMetaInlines = MetaInlines . B.toList

114+ return $ MetaList . map toMetaInlines <$> sequence authors

115+

116+metaString :: OrgParser (F MetaValue)

117+metaString = metaModifiedString id

118+

119+metaModifiedString :: (String -> String) -> OrgParser (F MetaValue)

120+metaModifiedString f = return . MetaString . f <$> anyLine

121+

122+-- | Read an format specific meta definition

123+metaExportSnippet :: String -> OrgParser (F MetaValue)

124+metaExportSnippet format =

125+ return . MetaInlines . B.toList . B.rawInline format <$> anyLine

126+

127+-- | Accumulate the result of the @parser@ in a list under @key@.

128+accumulatingList :: String

129+ -> OrgParser (F MetaValue)

130+ -> OrgParser (F MetaValue)

131+accumulatingList key p = do

132+ value <- p

133+ meta' <- orgStateMeta <$> getState

134+ return $ (\m v -> MetaList (curList m ++ [v])) <$> meta' <*> value

135+ where curList m = case lookupMeta key m of

136+ Just (MetaList ms) -> ms

137+ Just x -> [x]

138+ _ -> []

139+

140+--

141+-- export options

142+--

143+optionLine :: OrgParser ()

144+optionLine = try $ do

145+ key <- metaKey

146+ case key of

147+ "link" -> parseLinkFormat >>= uncurry addLinkFormat

148+ "options" -> exportSettings

149+ _ -> mzero

150+

151+addLinkFormat :: String

152+ -> (String -> String)

153+ -> OrgParser ()

154+addLinkFormat key formatter = updateState $ \s ->

155+ let fs = orgStateLinkFormatters s

156+ in s{ orgStateLinkFormatters = M.insert key formatter fs }

157+

158+parseLinkFormat :: OrgParser ((String, String -> String))

159+parseLinkFormat = try $ do

160+ linkType <- (:) <$> letter <*> many (alphaNum <|> oneOf "-_") <* skipSpaces

161+ linkSubst <- parseFormat

162+ return (linkType, linkSubst)

163+

164+-- | An ad-hoc, single-argument-only implementation of a printf-style format

165+-- parser.

166+parseFormat :: OrgParser (String -> String)

167+parseFormat = try $ do

168+ replacePlain <|> replaceUrl <|> justAppend

169+ where

170+ -- inefficient, but who cares

171+ replacePlain = try $ (\x -> concat . flip intersperse x)

172+ <$> sequence [tillSpecifier 's', rest]

173+ replaceUrl = try $ (\x -> concat . flip intersperse x . urlEncode)

174+ <$> sequence [tillSpecifier 'h', rest]

175+ justAppend = try $ (++) <$> rest

176+

177+ rest = manyTill anyChar (eof <|> () <$ oneOf "\n\r")

178+ tillSpecifier c = manyTill (noneOf "\n\r") (try $ string ('%':c:""))

179+

180+inlinesTillNewline :: OrgParser (F Inlines)

181+inlinesTillNewline = trimInlinesF . mconcat <$> manyTill inline newline

src/Text/Pandoc/Readers/Org/ParserState.hs+6

@@ -163,6 +163,9 @@ data ExportSettings = ExportSettings

163 , exportSmartQuotes :: Bool -- ^ Parse quotes smartly

164 , exportSpecialStrings :: Bool -- ^ Parse ellipses and dashes smartly

165 , exportSubSuperscripts :: Bool -- ^ TeX-like syntax for sub- and superscripts

166+ , exportWithAuthor :: Bool -- ^ Include author in final meta-data

167+ , exportWithCreator :: Bool -- ^ Include creator in final meta-data

168+ , exportWithEmail :: Bool -- ^ Include email in final meta-data

166 }

169 }

167

170

168instance Default ExportSettings where

171instance Default ExportSettings where

@@ -177,6 +180,9 @@ defaultExportSettings = ExportSettings

177 , exportSmartQuotes = True

180 , exportSmartQuotes = True

178 , exportSpecialStrings = True

181 , exportSpecialStrings = True

179 , exportSubSuperscripts = True

182 , exportSubSuperscripts = True

183+ , exportWithAuthor = True

184+ , exportWithCreator = True

185+ , exportWithEmail = True

180 }

186 }

181

187

182

188

tests/Tests/Readers/Org.hs+124−63

@@ -467,7 +467,14 @@ tests =

467 , "Author" =:

468 "#+author: Albert /Emacs-Fanboy/ Krewinkel" =?>

469 let author = toList . spcSep $ [ "Albert", emph "Emacs-Fanboy", "Krewinkel" ]

470− meta = setMeta "author" (MetaInlines author) $ nullMeta

470+ meta = setMeta "author" (MetaList [MetaInlines author]) $ nullMeta

471+ in Pandoc meta mempty

472+

473+ , "Multiple authors" =:

474+ "#+author: James Dewey Watson, Francis Harry Compton Crick " =?>

475+ let watson = MetaInlines $ toList "James Dewey Watson"

476+ crick = MetaInlines $ toList "Francis Harry Compton Crick"

477+ meta = setMeta "author" (MetaList [watson, crick]) $ nullMeta

471 in Pandoc meta mempty

478 in Pandoc meta mempty

472

479

473 , "Date" =:

480 , "Date" =:

@@ -478,8 +485,8 @@ tests =

478

485

479 , "Description" =:

486 , "Description" =:

480 "#+DESCRIPTION: Explanatory text" =?>

487 "#+DESCRIPTION: Explanatory text" =?>

481− let description = toList . spcSep $ [ "Explanatory", "text" ]

488+ let description = "Explanatory text"

482− meta = setMeta "description" (MetaInlines description) $ nullMeta

489+ meta = setMeta "description" (MetaString description) $ nullMeta

483 in Pandoc meta mempty

490 in Pandoc meta mempty

484

491

485 , "Properties drawer" =:

492 , "Properties drawer" =:

@@ -489,6 +496,38 @@ tests =

489 ] =?>

496 ] =?>

490 (mempty::Blocks)

497 (mempty::Blocks)

491

498

499+ , "LaTeX_headers options are translated to header-includes" =:

500+ "#+LaTeX_header: \\usepackage{tikz}" =?>

501+ let latexInlines = rawInline "latex" "\\usepackage{tikz}"

502+ inclList = MetaList [MetaInlines (toList latexInlines)]

503+ meta = setMeta "header-includes" inclList nullMeta

504+ in Pandoc meta mempty

505+

506+ , "LaTeX_class option is translated to documentclass" =:

507+ "#+LATEX_CLASS: article" =?>

508+ let meta = setMeta "documentclass" (MetaString "article") nullMeta

509+ in Pandoc meta mempty

510+

511+ , "LaTeX_class_options is translated to classoption" =:

512+ "#+LATEX_CLASS_OPTIONS: [a4paper]" =?>

513+ let meta = setMeta "classoption" (MetaString "a4paper") nullMeta

514+ in Pandoc meta mempty

515+

516+ , "LaTeX_class_options is translated to classoption" =:

517+ "#+html_head: <meta/>" =?>

518+ let html = rawInline "html" "<meta/>"

519+ inclList = MetaList [MetaInlines (toList html)]

520+ meta = setMeta "header-includes" inclList nullMeta

521+ in Pandoc meta mempty

522+

523+ , "later meta definitions take precedence" =:

524+ unlines [ "#+AUTHOR: this will not be used"

525+ , "#+author: Max"

526+ ] =?>

527+ let author = MetaInlines [Str "Max"]

528+ meta = setMeta "author" (MetaList [author]) $ nullMeta

529+ in Pandoc meta mempty

530+

492 , "Logbook drawer" =:

531 , "Logbook drawer" =:

493 unlines [ " :LogBook:"

532 unlines [ " :LogBook:"

494 , " - State \"DONE\" from \"TODO\" [2014-03-03 Mon 11:00]"

533 , " - State \"DONE\" from \"TODO\" [2014-03-03 Mon 11:00]"

@@ -563,69 +602,91 @@ tests =

563 ] =?>

602 ] =?>

564 (para (link "http://example.com/foo" "" "bar"))

603 (para (link "http://example.com/foo" "" "bar"))

565

604

566− , "Export option: Disable simple sub/superscript syntax" =:

567− unlines [ "#+OPTIONS: ^:nil"

568− , "a^b"

569− ] =?>

570− para "a^b"

571−

572− , "Export option: directly select drawers to be exported" =:

573− unlines [ "#+OPTIONS: d:(\"IMPORTANT\")"

574− , ":IMPORTANT:"

575− , "23"

576− , ":END:"

577− , ":BORING:"

578− , "very boring"

579− , ":END:"

580− ] =?>

581− divWith (mempty, ["IMPORTANT", "drawer"], mempty) (para "23")

582−

583− , "Export option: exclude drawers from being exported" =:

584− unlines [ "#+OPTIONS: d:(not \"BORING\")"

585− , ":IMPORTANT:"

586− , "5"

587− , ":END:"

588− , ":BORING:"

589− , "very boring"

590− , ":END:"

591− ] =?>

592− divWith (mempty, ["IMPORTANT", "drawer"], mempty) (para "5")

593

605

606+ , testGroup "export options"

607+

608+ [ "disable simple sub/superscript syntax" =:

609+ unlines [ "#+OPTIONS: ^:nil"

610+ , "a^b"

611+ ] =?>

612+ para "a^b"

613+

614+ , "directly select drawers to be exported" =:

615+ unlines [ "#+OPTIONS: d:(\"IMPORTANT\")"

616+ , ":IMPORTANT:"

617+ , "23"

618+ , ":END:"

619+ , ":BORING:"

620+ , "very boring"

621+ , ":END:"

622+ ] =?>

623+ divWith (mempty, ["IMPORTANT", "drawer"], mempty) (para "23")

624+

625+ , "exclude drawers from being exported" =:

626+ unlines [ "#+OPTIONS: d:(not \"BORING\")"

627+ , ":IMPORTANT:"

628+ , "5"

629+ , ":END:"

630+ , ":BORING:"

631+ , "very boring"

632+ , ":END:"

633+ ] =?>

634+ divWith (mempty, ["IMPORTANT", "drawer"], mempty) (para "5")

635+

594− , "Export option: don't include archive trees" =:

636+ , "don't include archive trees" =:

595− unlines [ "#+OPTIONS: arch:nil"

637+ unlines [ "#+OPTIONS: arch:nil"

596− , "* old :ARCHIVE:"

638+ , "* old :ARCHIVE:"

597− ] =?>

639+ ] =?>

598− (mempty ::Blocks)

640+ (mempty ::Blocks)

641+

642+ , "include complete archive trees" =:

643+ unlines [ "#+OPTIONS: arch:t"

644+ , "* old :ARCHIVE:"

645+ , " boring"

646+ ] =?>

647+ let tagSpan t = spanWith ("", ["tag"], [("data-tag-name", t)]) mempty

648+ in mconcat [ headerWith ("old", [], mempty) 1 ("old" <> tagSpan "ARCHIVE")

649+ , para "boring"

650+ ]

599

651

600− , "Export option: include complete archive trees" =:

652+ , "include archive tree header only" =:

601− unlines [ "#+OPTIONS: arch:t"

653+ unlines [ "#+OPTIONS: arch:headline"

602− , "* old :ARCHIVE:"

654+ , "* old :ARCHIVE:"

603− , " boring"

655+ , " boring"

604− ] =?>

656+ ] =?>

605− let tagSpan t = spanWith ("", ["tag"], [("data-tag-name", t)]) mempty

657+ let tagSpan t = spanWith ("", ["tag"], [("data-tag-name", t)]) mempty

606− in mconcat [ headerWith ("old", [], mempty) 1 ("old" <> tagSpan "ARCHIVE")

658+ in headerWith ("old", [], mempty) 1 ("old" <> tagSpan "ARCHIVE")

607− , para "boring"

659+

660+ , "limit headline depth" =:

661+ unlines [ "#+OPTIONS: H:2"

662+ , "* section"

663+ , "** subsection"

664+ , "*** list item 1"

665+ , "*** list item 2"

666+ ] =?>

667+ mconcat [ headerWith ("section", [], []) 1 "section"

668+ , headerWith ("subsection", [], []) 2 "subsection"

669+ , orderedList [ para "list item 1", para "list item 2" ]

608− ]

670+ ]

609

671

610− , "Export option: include archive tree header only" =:

672+ , "disable author export" =:

611− unlines [ "#+OPTIONS: arch:headline"

673+ unlines [ "#+OPTIONS: author:nil"

612− , "* old :ARCHIVE:"

674+ , "#+AUTHOR: ShyGuy"

613− , " boring"

614− ] =?>

675+ ] =?>

615− let tagSpan t = spanWith ("", ["tag"], [("data-tag-name", t)]) mempty

676+ Pandoc nullMeta mempty

616− in headerWith ("old", [], mempty) 1 ("old" <> tagSpan "ARCHIVE")

677+

617−

678+ , "disable creator export" =:

618− , "Export option: limit headline depth" =:

619− unlines [ "#+OPTIONS: H:2"

679+ unlines [ "#+OPTIONS: creator:nil"

620− , "* section"

680+ , "#+creator: The Architect"

621− , "** subsection"

681+ ] =?>

622− , "*** list item 1"

682+ Pandoc nullMeta mempty

623− , "*** list item 2"

683+

624− ] =?>

684+ , "disable email export" =:

625− mconcat [ headerWith ("section", [], []) 1 "section"

685+ unlines [ "#+OPTIONS: email:nil"

626− , headerWith ("subsection", [], []) 2 "subsection"

686+ , "#+email: no-mail-please@example.com"

627− , orderedList [ para "list item 1", para "list item 2" ]

687+ ] =?>

688+ Pandoc nullMeta mempty

628− ]

689+ ]

629 ]

690 ]

630

691

631 , testGroup "Basic Blocks" $

692 , testGroup "Basic Blocks" $