handle quits properly
^- (quip move _this)
::~& reap+[wir =(~ err)]
?~ err
+ :: XX send message to users inbox
[~ this]
?~ wir
(mean [leaf+"invalid wire for diff: {(spud wir)}"]~)
[ost.bol %peer /invites [our.bol %hall] /circle/i/grams]~
::
%our
- [~ this]
+ ?< ?=(~ t.wir)
+ :_ this
+ [ost.bol %peer /our/[i.t.wir] [our.bol %hall] /circle/[i.t.wir]/config]~
==
::
:: +quit:
[ost.bol %peer /invites [our.bol %hall] /circle/i/grams]~
::
%our
- [~ this]
+ ?< ?=(~ t.wir)
+ :_ this
+ [ost.bol %peer /our/[i.t.wir] [our.bol %hall] /circle/[i.t.wir]/config]~
==
::
:: +diff-hall-prize:
:: +poke-noun: debugging stuff
::
++ poke-noun
- |= a=@t
+ |= a=@tas
^- (quip move _this)
- ?: =(a 'check all subs')
+ ?+ a
+ [~ this]
+ ::
+ %check-all-subs
~& 'here are all incoming subs'
~& ^- (list (pair ship path))
%+ turn ~(tap by sup.bol)
[s p]
[~ this]
::
- ?: =(a 'print state')
+ %print-state
~& str.sta
[~ this]
- [~ this]
+ ::
+ %rebuild-subs
+ :_ this
+ :~ [ost.bol %peer /circles [our.bol %hall] /circles/[(scot %p our.bol)]]
+ [ost.bol %peer /inbox [our.bol %hall] /circle/inbox/config/grams]
+ [ost.bol %peer /invites [our.bol %hall] /circle/i/grams]
+ ==
+ ==
::
++ is-dm-circle
|= circ=circle:hall
