Minimal detection of PubPub footnote links.
This commit is contained in:
parent
70a06b2c4d
commit
162d126aeb
@ -17,21 +17,17 @@ PubPubGrammar >> document [
|
||||
|
||||
{ #category : #links }
|
||||
PubPubGrammar >> link [
|
||||
^ linkLabel, linkContent ==> #second
|
||||
^ linkLabel, linkContent
|
||||
]
|
||||
|
||||
{ #category : #links }
|
||||
PubPubGrammar >> linkContent [
|
||||
| content |
|
||||
content := ($} asPParser not) star flatten.
|
||||
^ ${ asPParser, content, $} asPParser
|
||||
^ '{' asPParser, #any asPParser starLazy flatten, '}' asPParser ==> #second.
|
||||
]
|
||||
|
||||
{ #category : #links }
|
||||
PubPubGrammar >> linkLabel [
|
||||
| label |
|
||||
label := ($] asPParser not) star flatten.
|
||||
^ $[ asPParser, label, $] asPParser
|
||||
^ $[ asPParser, #any asPParser starLazy flatten, $] asPParser ==> #second.
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
|
Loading…
Reference in New Issue
Block a user