Add no-follow option

db4
Slava Pestov 2008-05-28 17:04:59 -05:00
parent 83e9a717f7
commit b7a6e117ec
1 changed files with 7 additions and 1 deletions
extra/farkup

View File

@ -7,6 +7,7 @@ sequences.deep unicode.categories ;
IN: farkup
SYMBOL: relative-link-prefix
SYMBOL: link-no-follow?
<PRIVATE
@ -79,7 +80,12 @@ MEMO: eq ( -- parser )
: make-link ( href text -- seq )
escape-link
[ "<a href=\"" , >r , r> "\">" , [ , ] when* "</a>" , ] { } make ;
[
"<a" ,
" href=\"" , >r , r>
link-no-follow? get [ " nofollow=\"true\"" , ] when
"\">" , , "</a>" ,
] { } make ;
: make-image-link ( href alt -- seq )
escape-link