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

Fix nofollow in farkup

db4
Slava Pestov 2009-03-07 20:02:57 -06:00
parent ba0d3a7990
commit a28bf0b918
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/farkup/farkup.factor
View File

@ -169,8 +169,8 @@ CONSTANT: invalid-url "javascript:alert('Invalid URL in farkup');"
} cond url-encode ;
: write-link ( href text -- xml )
[ check-url link-no-follow? get "true" and ] dip
[XML <a href=<-> nofollow=<->><-></a> XML] ;
[ check-url link-no-follow? get "nofollow" and ] dip
[XML <a href=<-> rel=<->><-></a> XML] ;
: write-image-link ( href text -- xml )
disable-images? get [