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

Turn off gall queue management, temporarily.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-01-26 18:54:14 -08:00
parent ec76d6a3cb
commit a1fd3597e6
3 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/eyre.hoon
View File

@ -551,7 +551,7 @@
::
%they :: inbound response
=+ kas=(need (~(get by q.ask) p.kyz))
~& > eyre-they/[p.q.kyz (earn p.q.kas)]
:: ~& > eyre-they/[p.q.kyz (earn p.q.kas)]
%= +>.$
mow :_(mow [p.kas [%give %thou q.kyz]])
q.ask (~(del by q.ask) p.kas)

12
arvo/gall.hoon
View File

@ -473,7 +473,7 @@
%mean [%pass [%r pax] (rod %e p.+.sih)]
%nice [%give %nice ~]
%rush [%pass [%r pax] (rod %d p.+.sih q.+.sih)]
%rust ~& [%gave-rust [our you num imp] hen]
%rust :: ~& [%gave-rust [our you num imp] hen]
[%pass [%r pax] (rod %f p.+.sih q.+.sih)]
%sage !!
%verb !!
@ -672,7 +672,7 @@
::
++ blow
^+ .
~& [%gall-blow ost]
:: ~& [%gall-blow ost]
=> (give %mean ~)
=+ pax=+:(fall (~(get by sup.sat) ost) *[ship path])
%= +
@ -930,7 +930,6 @@
deal:(drum u.gad)
::
%pull
~& [%more-pull pax]
=^ gud +>.$ (mack q.hin)
?^ gud +>.$
blow
@ -1165,9 +1164,10 @@
:: ~& [%yawn-told-has ost qol [our hen]]
=+ qul=?~(qol 1 +(u.qol))
=. qel.sat (~(put by qel.sat) ost qul)
?: =(10 qul)
~& [%yawn-told-full ost our hen]
+>.$(qic.sat ~, vey.sat (~(put to vey.sat) hen %nuke p.kon))
:: XX turn me back on!
:: ?: =(10 qul)
:: ~& [%yawn-told-full ost our hen]
:: +>.$(qic.sat ~, vey.sat (~(put to vey.sat) hen %nuke p.kon))
+>.$(qic.sat ~)
::
%load

11
main/app/rodeo/core.hook
View File

@ -195,13 +195,14 @@
::
++ ra-cancel :: drop a bone
^+ .
=+ hap=(~(got by sup.hid) ost)
?. ?=([@ @ *] q.hap)
=+ hep=(~(get by sup.hid) ost)
?~ hep +
?. ?=([@ @ *] q.u.hep)
+(general (~(del in general) ost))
=* man i.t.q.hap
=* man i.t.q.u.hep
=+ pur=(~(get by stories) man)
?~ pur +>
pa-abet:(pa-notify:~(pa-cancel pa man u.pur) p.hap %gone *human)
pa-abet:(pa-notify:~(pa-cancel pa man u.pur) p.u.hep %gone *human)
::
++ ra-human :: look up person
|= her=ship
@ -436,7 +437,7 @@
pa-monitor
::
++ pa-cancel :: unsubscribe from
~& [%pa-cancel ost]
:: ~& [%pa-cancel ost]
%_ .
guests (~(del by guests) ost)
viewers (~(del in viewers) ost)