urbit/pkg/landscape/sur/post.hoon

/-  *resource
|%
+$  index       (list atom)
+$  uid         [=resource =index]
::
::  +sham (half sha-256) hash of +validated-portion
+$  hash  @ux
::
+$  signature   [p=@ux q=ship r=life]
+$  signatures  (set signature)
+$  post
  $:  author=ship
      =index
      time-sent=time
      contents=(list content)
      hash=(unit hash)
      =signatures
  ==
::
+$  indexed-post  [a=atom p=post]
::
+$  validated-portion
  $:  parent-hash=(unit hash)
      author=ship
      time-sent=time
      contents=(list content)
  ==
::
+$  reference
  $%  [%graph group=resource =uid]
      [%group group=resource]
      [%app =ship =desk =path]
  ==
::
+$  content
  $%  [%text text=cord]
      [%mention =ship]
      [%url url=cord]
      [%code expression=cord output=(list tank)]
      [%reference =reference]
  ==
::
++  post-one
  |%
  ::
  +$  indexed-post  [a=atom p=post]
  ::
  +$  post
    $:  author=ship
        =index
        time-sent=time
        contents=(list content)
        hash=(unit hash)
        =signatures
    ==
  ::
  +$  content
    $%  [%text text=cord]
        [%mention =ship]
        [%url url=cord]
        [%code expression=cord output=(list tank)]
        [%reference =reference]
  ==
  ::
  +$  reference
    $%  [%graph group=resource =uid]
        [%group group=resource]
    ==
  --
::
++  post-zero
  |%
  ::
  +$  content
    $%  [%text text=cord]
        [%mention =ship]
        [%url url=cord]
        [%code expression=cord output=(list tank)]
        [%reference =uid]
    ==
  ::
  +$  post
    $:  author=ship
        =index
        time-sent=time
        contents=(list content)
        hash=(unit hash)
        =signatures
    ==
  --
--