define LinkLabel

1 files changed, 4 insertions, 3 deletions

diff --git a/def.peg b/def.peg
index 4fb3295..4e64c27 100644
--- a/def.peg
+++ b/def.peg
@@ -12,7 +12,7 @@ Block          <- Header / List / LinkDefinition / Paragraph
 Header         <- '#'+ SPACE* Words? SPACE* NEWLINE
 List           <- ([-*]+ / [[:digit:]]+ [).]) (SPACE+ (List / Words))?
                   NEWLINE
-LinkDefinition <- '[' !'[]' PlainWords ']' ':' SPACE Uri NEWLINE
+LinkDefinition <- LinkLabel ':' SPACE Uri NEWLINE
                   SPACE SPACE '"' !'"' PlainWords '"' NEWLINE
 Paragraph      <- (Words (SPACE? NEWLINE / HardBreak))+
                   NEWLINE+
@@ -21,9 +21,10 @@ Paragraph      <- (Words (SPACE? NEWLINE / HardBreak))+
 Words          <- StyledWords / LinkedWords / AnnotatedWords / PlainWords
 StyledWords    <- '*' Words '*' / '**' Words '**' / '_' Words '_'
 LinkedWords    <- '[' Words ']' '(' Uri ')'
-                / '[' Words ']' '[' ![\[\]] LinkDefinitionKeyphrase ']'
-                / '[' LinkDefinitionKeyphrase ']'
+                / '[' Words ']' LinkLabel
+                / LinkLabel
 AnnotatedWords <- '[' Words ']' '{' ![{}] PlainWords '}'
+LinkLabel      <- '[' SPACE? ![\[\]] PlainWords SPACE? ']'
 PlainWords     <- PRINTABLES (SPACE PRINTABLES)*
 Uri            <- '<' ![<>] PRINTABLES? '>' / ![<>] PRINTABLES
 HardBreak      <- SPACE SPACE+ NEWLINE