From 1193bb59641f0fa0ab033d0382916be4c83e07da Mon Sep 17 00:00:00 2001
From: Stephen Altamirano <s@stvs.tv>
Date: Sun, 29 Jan 2023 19:10:48 -0800
Subject: [PATCH] Add support for Textile footnote backlinks (#8585)

Backlinking from footnotes is already the behavior of `Note` values
when writing HTML. This adds parsing support for the explicit
backlinking syntax in Textile as described here:
https://textile-lang.com/doc/footnotes

Previously, these lines would be interpreted as a new paragraph
beginning with "fn3^." in text.
---
 src/Text/Pandoc/Readers/Textile.hs | 5 ++++-
 test/textile-reader.textile        | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs
index e55d8e1eb..0cfe49c4f 100644
--- a/src/Text/Pandoc/Readers/Textile.hs
+++ b/src/Text/Pandoc/Readers/Textile.hs
@@ -90,7 +90,10 @@ parseTextile = do
   Pandoc nullMeta . B.toList <$> parseBlocks -- FIXME
 
 noteMarker :: PandocMonad m => TextileParser m Text
-noteMarker = skipMany spaceChar >> string "fn" >> T.pack <$> manyTill digit (char '.')
+noteMarker = do
+  skipMany spaceChar
+  string "fn"
+  T.pack <$> manyTill digit (string "." <|> try (string "^."))
 
 noteBlock :: PandocMonad m => TextileParser m Text
 noteBlock = try $ do
diff --git a/test/textile-reader.textile b/test/textile-reader.textile
index 164fe966c..194353c9c 100644
--- a/test/textile-reader.textile
+++ b/test/textile-reader.textile
@@ -269,7 +269,7 @@ A note.[1]  Another note[2].
 fn1. The note
 is here!
 
-fn2. Other note.
+fn2^. Other note.
 
 h1. Comment blocks