Add no-follow option
parent
83e9a717f7
commit
b7a6e117ec
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue