ca93680 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Allow the URI in a RST hyperlink target to start on the line

ca93680fiddlosopher20 years ago

src/Text/Pandoc/Readers/RST.hs+3

@@ -508,6 +508,7 @@ imageKey = try (do

508anonymousKey = try (do

509 choice [string ".. __:", string "__"]

510 skipSpaces

511+ option ' ' newline

511 src <- manyTill anyChar newline

512 src <- manyTill anyChar newline

512 state <- getState

513 state <- getState

513 return (Key [Str "_"] (Src (removeLeadingTrailingSpace src) "")))

514 return (Key [Str "_"] (Src (removeLeadingTrailingSpace src) "")))

@@ -516,6 +517,7 @@ regularKeyQuoted = try (do

516 string ".. _`"

517 string ".. _`"

517 ref <- manyTill inline (string "`:")

518 ref <- manyTill inline (string "`:")

518 skipSpaces

519 skipSpaces

520+ option ' ' newline

519 src <- manyTill anyChar newline

521 src <- manyTill anyChar newline

520 return (Key (normalizeSpaces ref)

522 return (Key (normalizeSpaces ref)

521 (Src (removeLeadingTrailingSpace src) "")))

523 (Src (removeLeadingTrailingSpace src) "")))

@@ -524,6 +526,7 @@ regularKey = try (do

524 string ".. _"

526 string ".. _"

525 ref <- manyTill inline (char ':')

527 ref <- manyTill inline (char ':')

526 skipSpaces

528 skipSpaces

529+ option ' ' newline

527 src <- manyTill anyChar newline

530 src <- manyTill anyChar newline

528 return (Key (normalizeSpaces ref)

531 return (Key (normalizeSpaces ref)

529 (Src (removeLeadingTrailingSpace src) "")))

532 (Src (removeLeadingTrailingSpace src) "")))