shrub/pkg/landscape/sur/metadata-store.hoon

/-  *resource
^?
|%
::
+$  app-name      term
+$  md-resource   [=app-name =resource]
+$  association   [group=resource =metadatum]
+$  associations  (map md-resource association)
+$  group-preview
  $:  group=resource
      channels=associations
      members=@ud
      channel-count=@ud
      =metadatum
  ==
::
+$  color  @ux
+$  url    @t
::
::  $vip-metadata: variation in permissions
::
::    This will be passed to the graph-permissions mark
::    conversion to allow for custom permissions.
::
::    %reader-comments: Allow readers to comment, regardless
::      of whether they can write. (notebook, collections)
::    %member-metadata: Allow members to add channels (groups)
::    %host-feed: Only host can post to group feed
::    %admin-feed: Only admins and host can post to group feed
::    %$: No variation
::
+$  vip-metadata  
  $?  %reader-comments
      %member-metadata 
      %host-feed
      %admin-feed
      %$
  ==
::
+$  md-config
  $~  [%empty ~]
  $%  [%group feed=(unit (unit md-resource))]
      [%graph module=term] 
      [%empty ~]
  ==
::
+$  edit-field
  $%  [%title title=cord]
      [%description description=cord]
      [%color color=@ux]
      [%picture =url]
      [%preview preview=?]
      [%hidden hidden=?]
      [%vip vip=vip-metadata]
  ==
::
+$  metadatum
  $:  title=cord
      description=cord
      =color
      date-created=time
      creator=ship
      config=md-config
      picture=url
      preview=?
      hidden=?
      vip=vip-metadata
  ==
::
+$  action
  $%  [%add group=resource resource=md-resource =metadatum]
      [%remove group=resource resource=md-resource]
      [%edit group=resource resource=md-resource =edit-field]
      [%initial-group group=resource =associations]
  ==
::
+$  hook-update
   $%  [%req-preview group=resource]
       [%preview group-preview]
   ==
::
+$  update
  $%  action
      [%associations =associations]
      $:  %updated-metadata 
          group=resource
          resource=md-resource 
          before=metadatum
          =metadatum
      ==
  ==
::  historical
++  one
  |%
  ::
  +$  action
    $~  [%remove *resource *md-resource]
    $<  %edit  ^action
  ::
  +$  update
    $~  [%remove *resource *md-resource]
    $<  %edit  ^update
  ::
  --
++  zero
  |%
  ::
  +$  association   [group=resource =metadatum]
  ::
  +$  associations  (map md-resource association)
  ::
  +$  metadatum
    $:  title=cord
        description=cord
        =color
        date-created=time
        creator=ship
        module=term
        picture=url
        preview=?
        vip=vip-metadata
    ==
  ::
  +$  update
    $%  [%add group=resource resource=md-resource =metadatum]
        [%remove group=resource resource=md-resource]
        [%initial-group group=resource =associations]
        [%associations =associations]
        $:  %updated-metadata 
            group=resource
            resource=md-resource 
            before=metadatum
            =metadatum
        ==
    ==
  ::
  --
--