2015-12-08 00:01:38 +03:00
|
|
|
:: Simple rss transformer
|
|
|
|
|
::
|
2016-01-30 01:41:19 +03:00
|
|
|
:::: /hoon/rss-xml/ren
|
2015-12-08 00:01:38 +03:00
|
|
|
::
|
2016-02-18 02:16:33 +03:00
|
|
|
/? 310
|
2016-02-26 04:22:03 +03:00
|
|
|
/= sum /&snip&elem&/|(/elem/ /~[;div;])
|
2016-02-18 02:16:33 +03:00
|
|
|
/= kid /^ (map knot {marl marl})
|
2016-02-26 04:22:03 +03:00
|
|
|
/_ /&snip&/elem/
|
2016-02-18 02:16:33 +03:00
|
|
|
/$ |=({bem/beam *} [our=p.bem tub=(slag 1 (flop s.bem))])
|
2016-11-17 04:42:58 +03:00
|
|
|
::
|
2016-02-18 02:16:33 +03:00
|
|
|
:::: ~fyr, ~tasfyn-partyv
|
2015-12-08 00:01:38 +03:00
|
|
|
::
|
2016-02-26 04:22:03 +03:00
|
|
|
::~& [sum=sum kid=kid]
|
2015-12-08 00:01:38 +03:00
|
|
|
:: Link from relative path
|
2016-12-07 06:13:33 +03:00
|
|
|
=, eyre
|
2016-12-03 04:11:44 +03:00
|
|
|
=, html
|
2016-02-26 04:22:03 +03:00
|
|
|
=+ hok=.^(hart %e /(scot %p our)/host/real)
|
2016-12-03 04:11:44 +03:00
|
|
|
=+ ref=|=(a/path (en-purl hok `(weld tub a) ~))
|
2015-12-08 00:01:38 +03:00
|
|
|
:: urb:front attrs confuse RSS validators, readers
|
2016-02-18 02:16:33 +03:00
|
|
|
=+ no-meta=|=(a/marl ^+(a ?~(a ~ ?.(?=($meta n.g.i.a) a $(a t.a)))))
|
2015-12-08 00:01:38 +03:00
|
|
|
::
|
2016-11-17 04:30:39 +03:00
|
|
|
%- crip %- print
|
2015-12-08 00:01:38 +03:00
|
|
|
;rss(version "2.0")
|
|
|
|
|
;channel
|
|
|
|
|
;title: *{hed.sum}
|
|
|
|
|
;link: {(ref /)}
|
|
|
|
|
;description: *{(no-meta tal.sum)}
|
2017-02-13 23:43:18 +03:00
|
|
|
;* %+ turn ~(tap by kid)
|
2016-02-18 02:16:33 +03:00
|
|
|
|= {nom/@t hed/marl tal/marl}
|
2015-12-08 00:01:38 +03:00
|
|
|
;item
|
|
|
|
|
;title: *{hed}
|
|
|
|
|
;description: *{(no-meta tal)}
|
|
|
|
|
;link: {(ref /[nom])}
|
|
|
|
|
==
|
|
|
|
|
==
|
|
|
|
|
==
|
