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

remove passive auto-audience entirely

Browse Source
This commit is contained in:
Anton Dyudin 2017-01-09 13:33:46 -08:00
parent 8a36b8d3d4
commit 08e689255b
1 changed files with 11 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
app/talk.hoon
View File

@ -381,9 +381,7 @@
%+ sh-fact %pro %+ sh-fact %pro
:+ & %talk-line :+ & %talk-line
^- tape ^- tape
=+ ^= rew ^- (pair (pair @t @t) (set partner)) =/ rew/(pair (pair @t @t) (set partner))
?~ active.she
[['(' ')'] passive.she]
[['[' ']'] u.active.she] [['[' ']'] u.active.she]
=+ cha=(~(get by nik) q.rew) =+ cha=(~(get by nik) q.rew)
?^ cha ~[u.cha ' '] ?^ cha ~[u.cha ' ']
@ -394,9 +392,10 @@
++ sh-pact :: update active aud ++ sh-pact :: update active aud
|= lix/(set partner) |= lix/(set partner)
^+ +> ^+ +>
=+ act=?~(lix ~ `(sh-pare lix)) =+ act=(sh-pare lix)
?: =(active.she act) +>.$ ?~ act ~|(%no-audience !!)
sh-prod(active.she act) ?: =(active.she `act) +>.$
sh-prod(active.she `act)
:: ::
++ sh-pare :: adjust target list ++ sh-pare :: adjust target list
|= paz/(set partner) |= paz/(set partner)
@ -411,25 +410,6 @@
(~(has in sources.shape:(~(got by stories) man.she)) `partner`n.paz) (~(has in sources.shape:(~(got by stories) man.she)) `partner`n.paz)
== ==
:: ::
++ sh-pass :: passive from aud
|= aud/audience
%- sh-poss
%- ~(gas in *(set partner))
(turn (~(tap by aud)) |=({a/partner *} a))
::
++ sh-poss :: passive update
|= lix/(set partner)
?^ buf.say.she
+>.$
=+ sap=(sh-pare lix)
?: =(sap passive.she)
+>.$
:: XX exclude autogenerated forum stations
?: %+ lien (~(tap in passive.she))
|=(a/partner ?=({$& ship ?($post $comments)} a))
+>.$
sh-prod(passive.she sap)
::
++ sh-pest :: report listen ++ sh-pest :: report listen
|= tay/partner |= tay/partner
^+ +> ^+ +>
@ -437,12 +417,12 @@
=+ sib=(~(get by ham.system.she) `station`p.tay) =+ sib=(~(get by ham.system.she) `station`p.tay)
?. |(?=($~ sib) !?=($white p.cordon.u.sib)) ?. |(?=($~ sib) !?=($white p.cordon.u.sib))
+>.$ +>.$
(sh-poss [tay ~ ~]) (sh-pact [tay ~ ~])
:: ::
++ sh-rend :: print on one line ++ sh-rend :: print on one line
|= gam/telegram |= gam/telegram
=+ lin=~(tr-line tr man.she settings.she gam) =+ lin=~(tr-line tr man.she settings.she gam)
(sh-pass:(sh-fact %txt lin) q.q.gam) (sh-fact %txt lin)
:: ::
++ sh-numb :: print msg number ++ sh-numb :: print msg number
|= num/@ud |= num/@ud
@ -966,7 +946,7 @@
++ sh-whom :: current audience ++ sh-whom :: current audience
^- audience ^- audience
%- ~(gas by *audience) %- ~(gas by *audience)
%+ turn (~(tap in ?~(active.she passive.she u.active.she))) %+ turn (~(tap in u.active.she))
|=(a/partner [a *envelope %pending]) |=(a/partner [a *envelope %pending])
:: ::
++ sh-tell :: add command ++ sh-tell :: add command
@ -1083,7 +1063,7 @@
:: ::
++ bind :: %bind ++ bind :: %bind
|= {cha/char pan/(unit (set partner))} ^+ ..sh-work |= {cha/char pan/(unit (set partner))} ^+ ..sh-work
?~ pan $(pan [~ ?~(active.she passive.she u.active.she)]) ?~ pan $(pan [~ u.active.she])
=+ ole=(~(get by nik) u.pan) =+ ole=(~(get by nik) u.pan)
?: =(ole [~ cha]) ..sh-work ?: =(ole [~ cha]) ..sh-work
(sh-note:(set-glyph cha u.pan) "bound {<cha>} {<u.pan>}") (sh-note:(set-glyph cha u.pan) "bound {<cha>} {<u.pan>}")
@ -1255,7 +1235,7 @@
^+ +> ^+ +>
?- -.act ?- -.act
$det (sh-stir +.act) $det (sh-stir +.act)
$clr (sh-pact ~) $clr ..sh-sole :: (sh-pact ~) :: XX clear to PM-to-self?
$ret sh-done $ret sh-done
== ==
:: ::
@ -1539,7 +1519,7 @@
{@ta $~} i.pax {@ta $~} i.pax
== ==
=/ she/shell =/ she/shell
%*(. *shell her her, man man, passive (sy [%& our.hid man] ~)) %*(. *shell her her, man man, active `(sy [%& our.hid man] ~))
sh-abet:~(sh-peer sh ~ `shell`she) sh-abet:~(sh-peer sh ~ `shell`she)
:: ::
++ ra-subscribe :: listen to ++ ra-subscribe :: listen to