1a7686a · typeable/pandoc

git.iko.soy/typeable/pandoc

Ext_header_identifiers -> Ext_auto_identifiers.

commit1a7686ad79b302b789c8c1038d9b5294b27a3743 authorJohn MacFarlane <fiddlosopher@gmail.com> dateThu 10 Jan 2013, 19:58 (14 years ago) parentcf4cd2c

2 files changed+3−3

unifiedsplit

src/Text/Pandoc/Options.hs+2−2

@@ -90,7 +90,7 @@ data Extension =

9090 | Ext_hard_line_breaks -- ^ All newlines become hard line breaks

9191 | Ext_literate_haskell -- ^ Enable literate Haskell conventions

9292 | Ext_abbreviations -- ^ PHP markdown extra abbreviation definitions

93− | Ext_header_identifiers -- ^ Automatic identifiers for headers

93+ | Ext_auto_identifiers -- ^ Automatic identifiers for headers

9494 | Ext_implicit_header_references -- ^ Implicit reference links for headers

9595 deriving (Show, Read, Enum, Eq, Ord, Bounded)

9696

@@ -128,7 +128,7 @@ pandocExtensions = Set.fromList

128128 , Ext_strikeout

129129 , Ext_superscript

130130 , Ext_subscript

131− , Ext_header_identifiers

131+ , Ext_auto_identifiers

132132 , Ext_implicit_header_references

133133 ]

134134

src/Text/Pandoc/Readers/Markdown.hs+1−1

@@ -377,7 +377,7 @@ addToHeaderList :: F Inlines -> MarkdownParser String

377377addToHeaderList text = do

378378 let headerList = B.toList $ runF text defaultParserState

379379 updateState $ \st -> st{ stateHeaders = headerList : stateHeaders st }

380− (do guardEnabled Ext_header_identifiers

380+ (do guardEnabled Ext_auto_identifiers

381381 ids <- stateIdentifiers `fmap` getState

382382 let id' = uniqueIdent headerList ids

383383 updateState $ \st -> st{ stateIdentifiers = id' : ids }