urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-03 05:43:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

Comments now properly refer to status instead of presence.

Browse Source
This commit is contained in:
Fang 2017-07-17 14:41:57 -07:00
parent 4022ecd70e
commit 4664756dac
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
app/talk-guardian.hoon
View File

@ -54,8 +54,8 @@
++ story ::> wire content ++ story ::> wire content
$: count/@ud ::< (lent grams) $: count/@ud ::< (lent grams)
grams/(list telegram) ::< all messages grams/(list telegram) ::< all messages
locals/group ::< local presence locals/group ::< local status
remotes/(map circle group) ::< remote presence remotes/(map circle group) ::< remote status
shape/config ::< configuration shape/config ::< configuration
mirrors/(map circle config) ::< remote config mirrors/(map circle config) ::< remote config
::TODO? never gets updated. still needed? :: ::TODO? never gets updated. still needed? ::
@ -459,7 +459,7 @@
(ta-delta %observe who) (ta-delta %observe who)
:: ::
++ ta-subscribe ::< listen to ++ ta-subscribe ::< listen to
::> add her to a presence list if applicable. ::> add her to a status list if applicable.
:: ::
|= {her/ship qer/query} |= {her/ship qer/query}
^+ +> ^+ +>
@ -767,12 +767,12 @@
%+ roll (~(tap by rem.cos)) %+ roll (~(tap by rem.cos))
|= {{r/circle c/config} _self} |= {{r/circle c/config} _self}
(so-delta-our %config r %full c) (so-delta-our %config r %full c)
:: local presence :: local status
=. self =. self
%+ roll (~(tap by loc.pes)) %+ roll (~(tap by loc.pes))
|= {{w/ship s/status} _self} |= {{w/ship s/status} _self}
(so-delta-our %status so-cir w %full s) (so-delta-our %status so-cir w %full s)
:: remote presence :: remote status
=. self =. self
%+ roll (~(tap by rem.pes)) %+ roll (~(tap by rem.pes))
|= {{c/circle g/group} _self} |= {{c/circle g/group} _self}
@ -861,16 +861,16 @@
:: ::
(so-delta-our %remove ~) (so-delta-our %remove ~)
:: ::
++ so-attend ::< add local presence ++ so-attend ::< add local status
::> add {her} status to this story's presence map. ::> add {her} status to this story's status map.
:: ::
|= {her/ship sat/status} |= {her/ship sat/status}
^+ +> ^+ +>
?: =(`sat (~(get by locals) her)) +>.$ ?: =(`sat (~(get by locals) her)) +>.$
(so-delta-our %status so-cir her %full sat) (so-delta-our %status so-cir her %full sat)
:: ::
++ so-absent ::< del local presence ++ so-absent ::< del local status
::> remove {her} from our presence map. ::> remove {her} from our status map.
:: ::
|= her/ship |= her/ship
^+ +> ^+ +>
@ -1730,7 +1730,7 @@
:: ::
::TODO? %quit bones that are done with their subscription. ::TODO? %quit bones that are done with their subscription.
:: ...but that would also require a ta-cancel call to remove :: ...but that would also require a ta-cancel call to remove
:: them from the presence list! how do? :: them from the status list! how do?
:: should there be an ++away arm for gall to call? :: should there be an ++away arm for gall to call?
|= dif/delta |= dif/delta
^- (list move) ^- (list move)