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

only print subscribed stations on ;who

Browse Source
This commit is contained in:
Anton Dyudin 2016-09-22 15:10:47 -07:00
parent aa3359f259
commit 2233937a4c
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/talk.hoon
View File

@ -1010,9 +1010,15 @@
|=(a/(set partner) [%txt <a>]) :: XX ~(te-whom te man.she a)
::
++ who :: %who
|= pan/(set partner) ^+ ..sh-work
|= pan/(set partner) ^+ ..sh-work
=. pan
?^ pan pan
:: default to all named channels
%- ~(rep by nik)
|= {{a/(set partner) @} b/(set partner)}
(~(uni by a) b)
=+ foo=`(list (pair partner atlas))`(~(tap by q.owners.she))
=+ bar=`(list (pair partner atlas))`(sort foo aor)
=+ bar=`(list (pair partner atlas))`(sort foo aor)
=< (sh-fact %mor (murn (sort (~(tap by q.owners.she) ~) aor) .))
|= {pon/partner alt/atlas} ^- (unit sole-effect)
?. |(=(~ pan) (~(has in pan) pon)) ~