shrub/lib/talk.hoon

::
::::  /hoon+talk+lib
  ::  
  ::  This file is in the public domain.
  ::
/?    314 
/-    talk
!:
::::
  ::
[. ^talk]
|%
++  main                                                ::  main story
  |=  our/ship  ^-  cord
  =+  can=(clan our)
  ?+  can  %porch
    $czar  %court
    $king  %floor
  == 
::
++  said                                                ::  app message
  |=  {our/@p dap/term now/@da eny/@uvI mes/(list tank)}
  :-  %talk-command
  ^-  command
  :-  %publish
  |-  ^-  (list thought)
  ?~  mes  ~
  :_  $(mes t.mes, eny (sham eny mes))
  ^-  thought
  :+  (shaf %thot eny)
    [[[%& our (main our)] [*envelope %pending]] ~ ~]
  [now *bouquet [%app dap (crip ~(ram re i.mes))]]
::
++  rend-work-duty
  =+  work-stuff
  |^  |=  due/duty  ^-  tape
      ?-    -.due
          $archive  =+(due " -{(tr-id id)} fin.")
          $create   =+(due " -{(tr-id id.tax)} new: {<title.tax>}")
          $change   =+(due " -{(tr-id id)} mod {(tr-meat meat)}")
          $update   
        =+  due
        " -{(tr-id id)} v{<version>} by {<her>} {(tr-meat meat.due)}"
      ==
  ++  tr-id  |=(a/@uv (scow %uv (rsh 2 25 a)))
  ++  tr-term  
    |=  a/term
    =+  ^-  {typ/tape key/tape}
        %+  rash  a
        ;~  (glue hep)
          (plus aln)
          (plus ;~(pose (cold ' ' hep) next))
        ==
    ?+  (crip typ)  "{typ} {key}"
      $set  ":{key}"
      $add  "+{key}"
    ==
  ++  tr-meat
    |=  feh/flesh  ^-  tape
    ?-  -.feh
      $set-done         =+(feh ?:(don (tr-term -.feh) (tr-term %set-undone)))
      $set-doer         =+(feh "{(tr-term -.feh)} {?~(her "none" <u.her>)}")
      $set-date-due     =+(feh "{(tr-term -.feh)} {?~(wen "none" <u.wen>)}")
      $set-tags         =+(feh "{(tr-term -.feh)} {<tag>}")
      $set-title        =+(feh "{(tr-term -.feh)} {<(trip til)>}")
      $set-description  =+(feh "{(tr-term -.feh)} {<(trip des)>}")
      $add-comment      =+  feh
                        "{(tr-term -.feh)} {(scow %p who)} {<(trip com)>}"
    ==
  --
--