urbit/pkg/arvo/mar/graph/validator/link.hoon
2020-11-24 15:40:03 +10:00

39 lines
712 B
Plaintext

/- *post
|_ i=indexed-post
++ grow
|%
++ noun i
++ notification-kind
?+ index.p.i ~
[@ ~] `[%link 0 %each]
[@ @ @ ~] `[%comment 1 %since]
==
--
++ grab
|%
++ noun
|= p=*
=/ ip ;;(indexed-post p)
?+ index.p.ip ~|(index+index.p.ip !!)
:: top-level link post; title and url
::
[@ ~]
?> ?=([[%text @] [%url @] ~] contents.p.ip)
ip
::
:: comment on link post; container structure
::
[@ @ ~]
?> ?=(~ contents.p.ip)
ip
::
:: comment on link post; comment text
::
[@ @ @ ~]
?> ?=(^ contents.p.ip)
ip
==
--
++ grad %noun
--