steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove code duplication

db4
Doug Coleman 2008-09-22 20:13:24 -05:00
parent c252060bb5
commit 7e983e5ee0
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/farkup/farkup.factor
View File

@ -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 ;