Add no-follow option

diff --git a/extra/farkup/farkup.factor b/extra/farkup/farkup.factor
index 5dcfa7528e196ed6ed11b98c22dbef73832a1639..d58b54af3752e38a39a778e39b0ad47605579356 100755 (executable)
--- a/extra/farkup/farkup.factor
+++ b/extra/farkup/farkup.factor
@@ -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