mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-16 02:22:12 +03:00
Various fixes and improvements.
This commit is contained in:
parent
ce53f4c5f1
commit
9a60d48e21
@ -96,6 +96,10 @@
|
||||
|= [then @uvH (each gage tang)]
|
||||
(ably (take-made:(kiln-work [hid ost src] (able %kiln)) way +<+))
|
||||
::
|
||||
++ note-helm ::
|
||||
|= [then (pair ,@tD tank)]
|
||||
(ably (take-note:(helm-work [hid ost src] (able %helm)) way +<+))
|
||||
::
|
||||
++ coup-kiln-fancy ::
|
||||
|= [then saw=(unit tang)]
|
||||
(ably (take-coup-fancy:(kiln-work [hid ost src] (able %kiln)) way +<+))
|
||||
|
@ -1549,7 +1549,7 @@
|
||||
==
|
||||
==
|
||||
++ ta-best :: most relevant
|
||||
|=(two=partner ?:((ta-beat two) one two))
|
||||
|=(two=partner ?:((ta-beat two) two one))
|
||||
::
|
||||
++ ta-full (ta-show ~) :: render full width
|
||||
++ ta-show :: render partner
|
||||
@ -1609,6 +1609,7 @@
|
||||
==
|
||||
::
|
||||
++ te-whom :: render sender
|
||||
~& [%te-whom man lix te-best te-maud]
|
||||
(~(ta-show ta man (need te-best)) ~ te-maud)
|
||||
--
|
||||
::
|
||||
@ -1658,6 +1659,7 @@
|
||||
++ peer :: accept subscription
|
||||
|= [from pax=path]
|
||||
^- [(list move) _+>]
|
||||
:: ~& [%talk-peer src ost pax]
|
||||
?: ?=([%sole *] pax)
|
||||
?> =(our.hid src)
|
||||
?< (~(has by shells) ost)
|
||||
@ -1714,9 +1716,9 @@
|
||||
ra-abet:(~(ra-quit ra ost ~) man cuz)
|
||||
::
|
||||
++ pull ::
|
||||
|= [from *]
|
||||
|= [from pax=path]
|
||||
^- [(list move) _+>]
|
||||
:: ~& [%talk-pull `*`ost]
|
||||
:: ~& [%talk-pull src ost pax]
|
||||
=^ moz +>.$ ra-abet:ra-ever:~(ra-cancel ra ost ~)
|
||||
[moz +>.$(shells (~(del by shells) ost))]
|
||||
::
|
||||
|
@ -1648,7 +1648,6 @@
|
||||
==
|
||||
::
|
||||
%cake
|
||||
~& [%cake p.bon q.bon r.bon]
|
||||
:_ fox
|
||||
:~ [s.bon %give %woot q.p.bon r.bon]
|
||||
==
|
||||
|
@ -1133,6 +1133,7 @@
|
||||
::
|
||||
++ del-subs :: XX per path?
|
||||
|= [a=dock %json b=wire c=path] ^+ ..ix
|
||||
~& [%eyre-del-subs +< hen]
|
||||
=. ..ix (hurl-note [a b] [%g %deal [him -.a] +.a %pull ~])
|
||||
(nice-json:pop-duct:(ire-ix ire)) :: XX gall ack
|
||||
::
|
||||
|
@ -575,10 +575,10 @@
|
||||
++ ap-fill :: add to queue
|
||||
^- [? _.]
|
||||
=+ suy=(fall (~(get by qel.ged) ost) 0)
|
||||
?: =(8 suy)
|
||||
?: =(20 suy)
|
||||
~& [%ap-fill-full [our dap] q.q.pry ost]
|
||||
[%| +]
|
||||
:: ~? !=(8 suy) [%ap-fill-add [[our dap] q.q.pry ost] +(suy)]
|
||||
:: ~? !=(20 suy) [%ap-fill-add [[our dap] q.q.pry ost] +(suy)]
|
||||
[%& +(qel.ged (~(put by qel.ged) ost +(suy)))]
|
||||
::
|
||||
++ ap-find :: general arm
|
||||
|
@ -149,6 +149,10 @@
|
||||
%& [%flog ~ %text "<{<p.saw>}>"]
|
||||
==
|
||||
::
|
||||
++ take-note :: result of %init
|
||||
|= [way=wire chr=@tD tan=tank] =< abet
|
||||
(emit %flog ~ %text chr ' ' ~(ram re tan))
|
||||
::
|
||||
++ take-went :: result of %want
|
||||
|= [way=path her=ship kay=cape] =< abet
|
||||
(emit %flog ~ %text "went: {<[way kay]>}")
|
||||
|
Loading…
Reference in New Issue
Block a user