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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/farkup/farkup.factor
View File

@ -7,6 +7,7 @@ sequences.deep unicode.categories ;
IN: farkup IN: farkup
SYMBOL: relative-link-prefix SYMBOL: relative-link-prefix
SYMBOL: link-no-follow?
<PRIVATE <PRIVATE
@ -79,7 +80,12 @@ MEMO: eq ( -- parser )
: make-link ( href text -- seq ) : make-link ( href text -- seq )
escape-link 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 ) : make-image-link ( href alt -- seq )
escape-link escape-link