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
$reader
``[%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
:+ ~ ~
@ -1753,18 +1741,6 @@
$glyph `[%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
::?: &(=(who.qer src.bol) did-they-send-a-burden) ~
@ -1844,7 +1820,6 @@
=> depa
|^ %- af :~
[%reader ul]
[%friend ul]
[%burden (at /[%p])]
[%report ul]
[%circle (al knot rang)]
@ -1862,7 +1837,6 @@
^- ?
?- -.qer
$reader (team our.bol who)
$friend &
$burden ?& =(who who.qer)
=(our.bol (above who))
==
@ -1982,7 +1956,7 @@
?~ fal
%- pre-bake
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))
%- pre-bake
ta-done:(ta-leave:ta nom cir)

View File

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