urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-08 14:09:29 +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

6
app/talk.hoon
View File

@ -1011,6 +1011,12 @@
::
++ who :: %who
|= 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)
=< (sh-fact %mor (murn (sort (~(tap by q.owners.she) ~) aor) .))