Ext_header_identifiers -> Ext_auto_identifiers.
This commit is contained in:
parent
cf4cd2ccb0
commit
1a7686ad79
2 changed files with 3 additions and 3 deletions
|
@ -90,7 +90,7 @@ data Extension =
|
|||
| Ext_hard_line_breaks -- ^ All newlines become hard line breaks
|
||||
| Ext_literate_haskell -- ^ Enable literate Haskell conventions
|
||||
| Ext_abbreviations -- ^ PHP markdown extra abbreviation definitions
|
||||
| Ext_header_identifiers -- ^ Automatic identifiers for headers
|
||||
| Ext_auto_identifiers -- ^ Automatic identifiers for headers
|
||||
| Ext_implicit_header_references -- ^ Implicit reference links for headers
|
||||
deriving (Show, Read, Enum, Eq, Ord, Bounded)
|
||||
|
||||
|
@ -128,7 +128,7 @@ pandocExtensions = Set.fromList
|
|||
, Ext_strikeout
|
||||
, Ext_superscript
|
||||
, Ext_subscript
|
||||
, Ext_header_identifiers
|
||||
, Ext_auto_identifiers
|
||||
, Ext_implicit_header_references
|
||||
]
|
||||
|
||||
|
|
|
@ -377,7 +377,7 @@ addToHeaderList :: F Inlines -> MarkdownParser String
|
|||
addToHeaderList text = do
|
||||
let headerList = B.toList $ runF text defaultParserState
|
||||
updateState $ \st -> st{ stateHeaders = headerList : stateHeaders st }
|
||||
(do guardEnabled Ext_header_identifiers
|
||||
(do guardEnabled Ext_auto_identifiers
|
||||
ids <- stateIdentifiers `fmap` getState
|
||||
let id' = uniqueIdent headerList ids
|
||||
updateState $ \st -> st{ stateIdentifiers = id' : ids }
|
||||
|
|
Loading…
Add table
Reference in a new issue