urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 13:37:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

Replaced frequent use of ..arm with self.

Browse Source
This commit is contained in:
Fang 2017-07-06 14:45:38 -07:00
parent 35d057f420
commit 7a91a9721d
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

@ -788,29 +788,29 @@
:: ::
|= {gaz/(list telegram) cos/lobby pes/crowd} |= {gaz/(list telegram) cos/lobby pes/crowd}
^+ +> ^+ +>
::TODO =* self +> =* self +>
:: local config :: local config
=. ..so-bear =. self
(so-config-full `shape loc.cos) (so-config-full `shape loc.cos)
:: remote config :: remote config
=. ..so-bear =. self
%+ roll (~(tap by rem.cos)) %+ roll (~(tap by rem.cos))
|= {{r/circle c/config} _..so-bear} |= {{r/circle c/config} _self}
(so-delta-our %config r %full c) (so-delta-our %config r %full c)
:: local presence :: local presence
=. ..so-bear =. self
%+ roll (~(tap by loc.pes)) %+ roll (~(tap by loc.pes))
|= {{w/ship s/status} _..so-bear} |= {{w/ship s/status} _self}
(so-delta-our %status so-pan w %full s) (so-delta-our %status so-pan w %full s)
:: remote presence :: remote presence
=. ..so-bear =. self
%+ roll (~(tap by rem.pes)) %+ roll (~(tap by rem.pes))
|= {{p/partner g/group} _..so-bear} |= {{p/partner g/group} _self}
%+ roll (~(tap by g)) %+ roll (~(tap by g))
|= {{w/ship s/status} _..so-bear} |= {{w/ship s/status} _self}
(so-delta-our %status p w %full s) (so-delta-our %status p w %full s)
:: telegrams :: telegrams
=. ..so-bear =. self
%+ so-delta-our %grams %+ so-delta-our %grams
%+ turn gaz %+ turn gaz
|= t/telegram |= t/telegram