Added anchors

src/Lexer.hs

@@ -83,6 +83,7 @@ lexText = go
                   , link
                   , labeledLink
                   , modules
+                  , anchors
                   , textElement
                   , quotes
                   , birdTrack
@@ -161,6 +162,24 @@ header5 = delimitedMaybe (void $ "===== ") eol (Header Five) Nothing
 header6 :: Lexer
 header6 = delimitedMaybe (void $ "====== ") eol (Header Six) Nothing
 
+-- #anchors#
+anchors :: Lexer
+anchors = do
+  pos <- getPosition
+  void $ try anchor'
+  pos' <- getPosition
+  txt <- anyUntil anchor'
+  pos'' <- getPosition
+  void $ try anchor'
+
+  pure
+    [ (pos, Anchor)
+    , (pos', Token txt)
+    , (pos'', Anchor)
+    ]
+ where
+  anchor' = (string "#" <|> string "\\#")
+
 -- "Module.Name"
 -- "Module.Name#anchor"
 -- "Module.Name#anchor"