urbit/ren/rss-xml.hoon
2016-02-11 16:33:22 -08:00

34 lines
807 B
Plaintext

:: Simple rss transformer
::
:::: /hoon/rss-xml/ren
::
/? 314
/= sum /snip/
/^ kid=(map knot ,[marl marl])
/_ /snip/
/$ |=([bem=beam but=path] [our=p.bem tub=(slag 1 (flop but))])
::
:::: ~fyr
::
:: Link from relative path
=+ hok=`hart`[& ~ `/org/urbit/(rsh 3 1 (scot %p our))]
=+ ref=|=(a=path (earn hok `(weld tub a) ~))
:: urb:front attrs confuse RSS validators, readers
=+ no-meta=|=(a=marl `_a`?~(a ~ ?.(?=(%meta n.g.i.a) a $(a t.a))))
::
%- crip %- poxo
;rss(version "2.0")
;channel
;title: *{hed.sum}
;link: {(ref /)}
;description: *{(no-meta tal.sum)}
;* %+ turn (~(tap by kid))
|= [nom=@t hed=marl tal=marl]
;item
;title: *{hed}
;description: *{(no-meta tal)}
;link: {(ref /[nom])}
==
==
==