@@ -146,12 +146,16 @@ noteToMarkdown :: WriterOptions -> Int -> [Block] -> State WriterState Doc
146146noteToMarkdown opts num blocks = do
147147 contents <- blockListToMarkdown opts blocks
148148 let num' = text $ show num
149− let marker = text "[^" <> num' <> text "]:"
149+ let marker = if isEnabled Ext_footnotes opts
150+ then text "[^" <> num' <> text "]:"
151+ else text "[" <> num' <> text "]"
150152 let markerSize = 4 + offset num'
151153 let spacer = case writerTabStop opts - markerSize of
152154 n | n > 0 -> text $ replicate n ' '
153155 _ -> text " "
154− return $ hang (writerTabStop opts) (marker <> spacer) contents
156+ return $ if isEnabled Ext_footnotes opts
157+ then hang (writerTabStop opts) (marker <> spacer) contents
158+ else marker <> spacer <> contents
155159
156160-- | Escape special characters for Markdown.
157161escapeString :: String -> String
@@ -526,8 +530,10 @@ inlineToMarkdown opts (Image alternate (source, tit)) = do
526530 else alternate
527531 linkPart <- inlineToMarkdown opts (Link txt (source, tit))
528532 return $ "!" <> linkPart
529−inlineToMarkdown _ (Note contents) = do
533+inlineToMarkdown opts (Note contents) = do
530534 modify (\st -> st{ stNotes = contents : stNotes st })
531535 st <- get
532536 let ref = show $ (length $ stNotes st)
533− return $ "[^" <> text ref <> "]"
537+ if isEnabled Ext_footnotes opts
538+ then return $ "[^" <> text ref <> "]"
539+ else return $ "[" <> text ref <> "]"