Deleting dead code in extra/rss
parent
b5b0a5dae1
commit
eca98a3b8f
|
@ -3,22 +3,14 @@
|
|||
IN: rss
|
||||
! USING: kernel http-client xml xml-utils xml-data errors io strings
|
||||
! sequences xml-writer parser-combinators lazy-lists entities ;
|
||||
USING: xml.utilities kernel promises parser-combinators assocs
|
||||
parser-combinators.replace strings sequences xml.data xml.writer
|
||||
USING: xml.utilities kernel assocs
|
||||
strings sequences xml.data xml.writer
|
||||
io.streams.string combinators xml xml.entities io.files io
|
||||
http.client ;
|
||||
|
||||
: ?children>string ( tag/f -- string/f )
|
||||
[ children>string ] [ f ] if* ;
|
||||
|
||||
LAZY: '&' ( -- parser )
|
||||
"&" token
|
||||
[ blank? ] satisfy &>
|
||||
[ "&" swap add ] <@ ;
|
||||
|
||||
: &>& ( string -- string )
|
||||
'&' replace ;
|
||||
|
||||
TUPLE: feed title link entries ;
|
||||
|
||||
C: <feed> feed
|
||||
|
|
Loading…
Reference in New Issue