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

Tighten farkup a bit

db4
Slava Pestov 2008-05-01 16:23:52 -05:00
parent d3660002c5
commit 0994c4f29e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/farkup/farkup.factor
View File

@ -63,8 +63,12 @@ MEMO: eq ( -- parser )
] with-html-stream ] with-html-stream
] with-string-writer ; ] with-string-writer ;
: check-url ( href -- href' )
dup { "http://" "https://" "ftp://" } [ head? ] with contains?
[ drop "/" ] unless ;
: escape-link ( href text -- href-esc text-esc ) : escape-link ( href text -- href-esc text-esc )
>r escape-quoted-string r> escape-string ; >r check-url escape-quoted-string r> escape-string ;
: make-link ( href text -- seq ) : make-link ( href text -- seq )
escape-link escape-link