1
1
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 20:02:51 +03:00
shrub/mar/tree/comments.hoon
2016-10-24 13:41:42 -07:00

26 lines
687 B
Plaintext

::
:::: /hoon/comments/tree/mar
::
/? 310
/+ react, time-to-id
=, markup
!:
::::
::
|_ all/(list (pair time {ship marl}))
::
++ grow :: convert to
|%
++ json
:- %a
%+ turn
(sort all |=({a/* b/*} (lor b a)))
|= {a/time b/ship c/marl} ^- ^json
=+ bod=[[%div id+(time-to-id a) ~] c]
(jobe time+(jode a) user+(jape +:<b>) body+(react-to-json:react bod) ~)
--
++ grab |% :: convert from
++ noun (list {time manx}) :: clam from %noun
::++ elem |=(a=manx `_all`[[/ ((getall %h1) a)] ~ ~])
-- --