From 11341be6d79ef2d8ac73346f85b8d38adf79377d Mon Sep 17 00:00:00 2001 From: Anton Dyudin Date: Wed, 17 Feb 2016 15:16:33 -0800 Subject: [PATCH] fix rss renderer --- mar/rss-xml.hoon | 6 ++++++ ren/rss-xml.hoon | 21 +++++++++++---------- 2 files changed, 17 insertions(+), 10 deletions(-) create mode 100644 mar/rss-xml.hoon diff --git a/mar/rss-xml.hoon b/mar/rss-xml.hoon new file mode 100644 index 000000000..a60519e5e --- /dev/null +++ b/mar/rss-xml.hoon @@ -0,0 +1,6 @@ +:: +:::: /hoon/rss-xml/mar + :: +/? 310 +:: +// /===/mar/xml :: alias diff --git a/ren/rss-xml.hoon b/ren/rss-xml.hoon index be957186a..0b3915bd3 100644 --- a/ren/rss-xml.hoon +++ b/ren/rss-xml.hoon @@ -2,19 +2,20 @@ :: :::: /hoon/rss-xml/ren :: -/? 314 +/? 310 /= sum /snip/ -/^ kid=(map knot ,[marl marl]) - /_ /snip/ -/$ |=([bem=beam but=path] [our=p.bem tub=(slag 1 (flop but))]) -:: -:::: ~fyr +/= kid /^ (map knot {marl marl}) + /_ /snip/ +/$ |=({bem/beam *} [our=p.bem tub=(slag 1 (flop s.bem))]) +!: +:::: ~fyr, ~tasfyn-partyv :: +~& [sum=sum kid=kid] :: Link from relative path -=+ hok=`hart`[& ~ `/org/urbit/(rsh 3 1 (scot %p our))] -=+ ref=|=(a=path (earn hok `(weld tub a) ~)) +=+ 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)))) +=+ no-meta=|=(a/marl ^+(a ?~(a ~ ?.(?=($meta n.g.i.a) a $(a t.a))))) :: %- crip %- poxo ;rss(version "2.0") @@ -23,7 +24,7 @@ ;link: {(ref /)} ;description: *{(no-meta tal.sum)} ;* %+ turn (~(tap by kid)) - |= [nom=@t hed=marl tal=marl] + |= {nom/@t hed/marl tal/marl} ;item ;title: *{hed} ;description: *{(no-meta tal)}