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-01-30 01:41:19 +03:00
|
|
|
/= sum /snip/
|
2015-12-08 00:01:38 +03:00
|
|
|
/^ kid=(map span ,[marl marl])
|
2016-01-30 01:41:19 +03:00
|
|
|
/_ /snip/
|
|
|
|
|
/$ |=([bem=beam but=path] [our=p.bem tub=(slag 1 (flop but))])
|
2015-12-08 00:01:38 +03:00
|
|
|
::
|
|
|
|
|
:::: ~fyr
|
|
|
|
|
::
|
|
|
|
|
:: Link from relative path
|
|
|
|
|
=+ hok=`hart`[& ~ `/org/urbit/(rsh 3 1 (scot %p our))]
|
2016-01-30 01:41:19 +03:00
|
|
|
=+ ref=|=(a=path (earn hok `(weld tub a) ~))
|
2015-12-08 00:01:38 +03:00
|
|
|
:: 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])}
|
|
|
|
|
==
|
|
|
|
|
==
|
|
|
|
|
==
|
