Removed /friend query for now.

This commit is contained in:
Fang 2017-07-07 16:21:13 -07:00
parent 9075373db7
commit ab7f7d47a5
2 changed files with 1 additions and 28 deletions

View File

@ -1662,18 +1662,6 @@
?- -.qer ?- -.qer
$reader $reader
``[%reader nak nicks] ``[%reader nak nicks]
::
$friend
:+ ~ ~
:- %friend
%- ~(gas in *(set circle))
%+ murn
=- (~(tap in src.shape.-))
(~(got by stories) (main our.bol))
|= p/partner
^- (unit circle)
?. ?=($& -.p) ~
[~ p.p]
:: ::
$burden $burden
:+ ~ ~ :+ ~ ~
@ -1753,18 +1741,6 @@
$glyph `[%reader dif] $glyph `[%reader dif]
$nick `[%reader dif] $nick `[%reader dif]
== ==
::
$friend
:: new or removed local stories apply.
::TODO include mailbox sources. check privacy flags.
?. ?=($story -.dif) ~
=/ add/(unit ?)
?+ -.dif.dif ~
$new `&
$remove `|
==
?~ add ~
`[%friend u.add [our.bol nom.dif]]
:: ::
$burden $burden
::?: &(=(who.qer src.bol) did-they-send-a-burden) ~ ::?: &(=(who.qer src.bol) did-they-send-a-burden) ~
@ -1844,7 +1820,6 @@
=> depa => depa
|^ %- af :~ |^ %- af :~
[%reader ul] [%reader ul]
[%friend ul]
[%burden (at /[%p])] [%burden (at /[%p])]
[%report ul] [%report ul]
[%circle (al knot rang)] [%circle (al knot rang)]
@ -1862,7 +1837,6 @@
^- ? ^- ?
?- -.qer ?- -.qer
$reader (team our.bol who) $reader (team our.bol who)
$friend &
$burden ?& =(who who.qer) $burden ?& =(who who.qer)
=(our.bol (above who)) =(our.bol (above who))
== ==
@ -1982,7 +1956,7 @@
?~ fal ?~ fal
%- pre-bake %- pre-bake
ta-done:(ta-greet:ta nom cir) ta-done:(ta-greet:ta nom cir)
=. u.fal [>%reap-friend-fail nom cir< u.fal] =. u.fal [>%reap-circle-fail nom cir< u.fal]
%- (slog (flop u.fal)) %- (slog (flop u.fal))
%- pre-bake %- pre-bake
ta-done:(ta-leave:ta nom cir) ta-done:(ta-leave:ta nom cir)

View File

@ -14,7 +14,6 @@
:: ::
++ query ::> query paths ++ query ::> query paths
$% {$reader $~} ::< shared ui state $% {$reader $~} ::< shared ui state
{$friend $~} ::< publicly joined
{$burden who/ship} ::< duties to share {$burden who/ship} ::< duties to share
{$report $~} ::< duty reports {$report $~} ::< duty reports
{$circle nom/knot ran/range} ::< story query {$circle nom/knot ran/range} ::< story query