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)>}"
    ==
  --
--