::
::::  /hoon/work/sur
  ::
  ::  A block comment might go here!
  ::
/-    talk
|%
++  client
  $:  tasks=(map ,@uvH client-task)
      sort=(list ,@uvH)
  ==
++  client-task
  $:  archived=_|
      audience=(set station:talk)
      tax=task
  ==
++  task
  $:  id=@uvH
      date-created=@da
      version=@u
      date-modified=@da
      creator=@p
      doer=(unit ,@p)
      tags=(set ,@t)
      date-due=(unit ,@da)
      done=(unit ,@da)
      title=@t
      description=@t    ::  XX (list ,@t)
      discussion=(list comment)
  ==
++  comment
  $:  date=@da
      ship=@p
      body=@t   ::  XX (list ,@t)
  ==
++  command
  $%  [%new audience=(set station:talk) task]
      [%old id=@uvH dif=update]
      [%sort p=(list ,@uvH)]
  ==
++  update    ::  XX rename, web-edit?
  $%  $:  %set
  $%  [%audience to=(set station:talk)]
      [%date-due p=(unit ,@da)]
      [%title p=@t]
      [%description p=@t]
      [%tags p=(set ,@t)]
      [%done p=?]
  ==  ==
      $:  %add
  $%  [%comment @t]
  ==  ==
      $:  %doer
  $%  [%release ~]
      [%claim ~]
  ==  ==
  ==
--