remove code duplication
parent
c252060bb5
commit
7e983e5ee0
|
@ -20,9 +20,8 @@ TUPLE: superscript child ;
|
|||
TUPLE: subscript child ;
|
||||
TUPLE: inline-code child ;
|
||||
TUPLE: paragraph child ;
|
||||
TUPLE: unordered-list-item child ;
|
||||
TUPLE: list-item child ;
|
||||
TUPLE: unordered-list child ;
|
||||
TUPLE: ordered-list-item child ;
|
||||
TUPLE: ordered-list child ;
|
||||
TUPLE: table child ;
|
||||
TUPLE: table-row child ;
|
||||
|
@ -113,12 +112,12 @@ paragraph = ((paragraph-item nl => [[ first ]])+ nl+ => [[ first ]]
|
|||
list-item = (cell | inline-tag)*
|
||||
|
||||
ordered-list-item = '#' list-item
|
||||
=> [[ second ordered-list-item boa ]]
|
||||
=> [[ second list-item boa ]]
|
||||
ordered-list = ((ordered-list-item nl)+ ordered-list-item? | ordered-list-item)
|
||||
=> [[ ordered-list boa ]]
|
||||
|
||||
unordered-list-item = '-' list-item
|
||||
=> [[ second unordered-list-item boa ]]
|
||||
=> [[ second list-item boa ]]
|
||||
unordered-list = ((unordered-list-item nl)+ unordered-list-item? | unordered-list-item)
|
||||
=> [[ unordered-list boa ]]
|
||||
|
||||
|
@ -187,9 +186,8 @@ M: emphasis (write-farkup) [ child>> (write-farkup) ] "em" in-tag. ;
|
|||
M: superscript (write-farkup) [ child>> (write-farkup) ] "sup" in-tag. ;
|
||||
M: subscript (write-farkup) [ child>> (write-farkup) ] "sub" in-tag. ;
|
||||
M: inline-code (write-farkup) [ child>> (write-farkup) ] "code" in-tag. ;
|
||||
M: unordered-list-item (write-farkup) [ child>> (write-farkup) ] "li" in-tag. ;
|
||||
M: list-item (write-farkup) [ child>> (write-farkup) ] "li" in-tag. ;
|
||||
M: unordered-list (write-farkup) [ child>> (write-farkup) ] "ul" in-tag. ;
|
||||
M: ordered-list-item (write-farkup) [ child>> (write-farkup) ] "li" in-tag. ;
|
||||
M: ordered-list (write-farkup) [ child>> (write-farkup) ] "ol" in-tag. ;
|
||||
M: paragraph (write-farkup) [ child>> (write-farkup) ] "p" in-tag. ;
|
||||
M: link (write-farkup) [ href>> ] [ text>> ] bi write-link ;
|
||||
|
|
Loading…
Reference in New Issue