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

Add disable images option

db4
Slava Pestov 2008-06-14 00:30:51 -05:00
parent a1ff275a4d
commit 9b3964c5d6
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
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: disable-images?
SYMBOL: link-no-follow? SYMBOL: link-no-follow?
<PRIVATE <PRIVATE
@ -88,18 +89,22 @@ MEMO: eq ( -- parser )
escape-link escape-link
[ [
"<a" , "<a" ,
" href=\"" , >r , r> " href=\"" , >r , r> "\"" ,
link-no-follow? get [ " nofollow=\"true\"" , ] when link-no-follow? get [ " nofollow=\"true\"" , ] when
"\">" , , "</a>" , ">" , , "</a>" ,
] { } make ; ] { } make ;
: make-image-link ( href alt -- seq ) : make-image-link ( href alt -- seq )
escape-link disable-images? get [
[ 2drop "<strong>Images are not allowed</strong>"
"<img src=\"" , swap , "\"" , ] [
dup empty? [ drop ] [ " alt=\"" , , "\"" , ] if escape-link
"/>" , ] [
{ } make ; "<img src=\"" , swap , "\"" ,
dup empty? [ drop ] [ " alt=\"" , , "\"" , ] if
"/>" ,
] { } make
] if ;
MEMO: image-link ( -- parser ) MEMO: image-link ( -- parser )
[ [