shrub/lib/talk.hoon
2015-12-20 13:16:39 -08:00

72 lines
2.0 KiB
Plaintext

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