mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 01:08:54 +03:00
72 lines
2.0 KiB
Plaintext
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)>}"
|
|
==
|
|
--
|
|
--
|