1
1
mirror of https://github.com/urbit/shrub.git synced 2024-12-15 04:22:48 +03:00
shrub/ren/tree/comments.hoon
2017-09-08 14:27:51 -07:00

22 lines
519 B
Plaintext

::
:::: /hoon/comments/tree/ren
::
/? 310
/: /%/comments
/; |= a/(map knot {ship marl})
=- (sort - dor)
%+ turn (~(tap by a))
|=({b/knot c/{ship marl}} [(slav %da b) c])
/_
/; |= a/manx ^- {ship marl}
~| a
?> ?=(_[/div ;/(~) ~[[%h2 **] ~[[%code **] ;/(who=**)]] kid=**] a)
%. a
|: a=[/div ;/(~) ~[[%h2 **] ~[[%code **] ;/(who=*tape)]] kid=*marl]
[(slav %p (crip who.a)) kid.a]
/&elem&/md/
::
::::
::
`(list (pair time {ship marl}))`-.-