urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-04 10:32:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

Talk now renders a notification when someone's status changes.

Browse Source
This commit is contained in:
Fang 2017-11-13 22:25:05 +01:00
parent 944d2587f3
commit e3c9ccb968
1 changed files with 38 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
app/talk.hoon
View File

@ -340,15 +340,18 @@
==
::
$status
%= +>
=+ rem=(fall (~(get by remotes) cir.rum) *group)
=+ cur=(fall (~(get by rem) who.rum) *status)
=. +>.$
=< sh-done
%- ~(sh-show-status sh cli)
[cir.rum who.rum cur dif.rum]
%= +>.$
remotes
%+ ~(put by remotes) cir.rum
=+ rem=(fall (~(get by remotes) cir.rum) *group)
?: ?=($remove -.dif.rum) (~(del by rem) who.rum)
%+ ~(put by rem) who.rum
%+ change-status
(fall (~(get by rem) who.rum) *status)
dif.rum
(change-status cur dif.rum)
==
==
::
@ -1556,35 +1559,38 @@
^- tape
['%' (trip pec.sat)]
::
++ sh-show-precs ::< print group diff
++ sh-show-status ::< print status diff
::> prints presence changes to the cli.
::
|= $: pre/tape
$= cul
$: old/(list (pair ship status))
new/(list (pair ship status))
cha/(list (pair ship status))
==
==
?: (~(has in settings.she) %quiet)
+>.$
=. +>.$
|- ^+ +>.^$
?~ old.cul +>.^$
=. +>.^$ $(old.cul t.old.cul)
(sh-note (weld pre "bye {(scow %p p.i.old.cul)}"))
=. +>.$
|- ^+ +>.^$
?~ new.cul +>.^$
=. +>.^$ $(new.cul t.new.cul)
%- sh-note
(weld pre "met {(scow %p p.i.new.cul)} {(sh-scis q.i.new.cul)}")
=. +>.$
|- ^+ +>.^$
?~ cha.cul +>.^$
%- sh-note
(weld pre "set {(scow %p p.i.cha.cul)} {(sh-scis q.i.cha.cul)}")
+>.$
|= {cir/circle who/ship cur/status dif/diff-status}
^+ +>
?: (~(has in settings.she) %quiet) +>
=. +>
%- sh-note
%+ weld "for "
(~(cr-show cr cir) ~)
%- sh-note
?- -.dif
$full
"met {(scow %p who)} {(scow %tas pec.sat.dif)}"
::
$presence
"set {(scow %p who)} {(scow %tas pec.dif)}"
::
$human
%+ weld "nom {(scow %p who)}"
?: ?=($true -.dif.dif) ~
=- " '{(trip (fall han.man.cur ''))}' -> '{-}'"
%- trip
=- (fall - '')
?- -.dif.dif
$full han.man.dif.dif
$handle han.dif.dif
==
::
$remove
"bye {(scow %p who)}"
==
::
++ sh-show-permits ::< show permits
::> prints invite/banish effects to the cli.