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

lull: removes case:clay (duplicated from arvo)

Browse Source
This commit is contained in:
Joe Bryan 2023-04-24 13:08:25 -04:00
parent 393457fcc6
commit ba3a5b22e8
6 changed files with 11 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkg/arvo/app/dojo.hoon
View File

@ -378,7 +378,7 @@
^+ +>+>
?> ?=(~ pux)
%- he-card(poy `+>+<(pux `way))
=/ [=ship =desk =case:clay] beak
=/ [=ship =desk =case] beak
[%pass way %arvo %c %warp ship desk ~ %sing care case path]
::
++ dy-request
@ -399,7 +399,7 @@
:: really shoud stop the thread as well
::
[%pass u.pux %agent [our.hid %spider] %leave ~]
=/ [=ship =desk =case:clay] he-beak
=/ [=ship =desk =case] he-beak
[%pass u.pux %arvo %c %warp ship desk ~]
::
++ dy-errd :: reject change, abet

6
pkg/arvo/sys/lull.hoon
View File

@ -1806,12 +1806,6 @@
== ::
+$ care :: clay submode
?(%a %b %c %d %e %f %p %r %s %t %u %v %w %x %y %z) ::
+$ case :: ship desk case spur
$% [%da p=@da] :: date
[%tas p=@tas] :: label
[%ud p=@ud] :: number
[%uv p=@uv] :: hash
== ::
+$ cash :: case or tako
$% [%tako p=tako] ::
case ::

8
pkg/arvo/sys/vane/gall.hoon
View File

@ -763,7 +763,7 @@
(mo-apply-sure dap routes deal)
::
%raw-poke
=/ =case:clay da+now
=/ =case da+now
=/ yok (~(got by yokes.state) dap)
=/ =desk q.beak:?>(?=(%live -.yok) yok) ::TODO acceptable assertion?
=/ sky (rof ~ %cb [our desk case] /[mark.deal])
@ -785,7 +785,7 @@
==
::
%poke-as
=/ =case:clay da+now
=/ =case da+now
=/ =mars:clay [p.cage mark]:deal
=/ mars-path /[a.mars]/[b.mars]
=/ yok (~(got by yokes.state) dap)
@ -1083,7 +1083,7 @@
?: =(mark p.cage)
[duct %give %unto %fact cage.gift]~
=/ =mars:clay [p.cage mark]
=/ =case:clay da+now
=/ =case da+now
=/ bek=beak [our q.beak.yoke case]
=/ mars-path /[a.mars]/[b.mars]
=/ sky (rof ~ %cc bek mars-path)
@ -1384,7 +1384,7 @@
=^ =sign:agent ap-core
?. ?=(%raw-fact -.unto)
[unto ap-core]
=/ =case:clay da+now
=/ =case da+now
?: ?=(%spider agent-name)
:- [%fact mark.unto !>(noun.unto)]
ap-core

2
pkg/arvo/ted/jam-all-desks.hoon
View File

@ -15,7 +15,7 @@
==
^- form:m
::
;< [our=ship syd=desk =case:clay] bind:m get-beak:strandio
;< [our=ship syd=desk =case] bind:m get-beak:strandio
=/ now=@da ?>(?=(%da -.case) p.case)
::
;< ~ bind:m

2
pkg/arvo/ted/work.hoon
View File

@ -18,7 +18,7 @@
?~ desks (pure:m !>(ok=&))
:: |merge %work our %base
::
;< [=ship =desk =case:clay] bind:m get-beak:strandio
;< [=ship =desk =case] bind:m get-beak:strandio
=/ kiln-merge [i.desks ship %base case %auto]
;< ~ bind:m (poke-our:strandio %hood %kiln-merge !>(kiln-merge))
;< ~ bind:m (trace:strandio leaf+"work: merged {<i.desks>}" ~)

6
pkg/base-dev/lib/strandio.hoon
View File

@ -577,7 +577,7 @@
(take-writ /warp)
::
++ read-file
|= [[=ship =desk =case:clay] =spur]
|= [[=ship =desk =case] =spur]
=* arg +<
=/ m (strand ,cage)
;< =riot:clay bind:m (warp ship desk ~ %sing %x case spur)
@ -586,13 +586,13 @@
(pure:m r.u.riot)
::
++ check-for-file
|= [[=ship =desk =case:clay] =spur]
|= [[=ship =desk =case] =spur]
=/ m (strand ,?)
;< =riot:clay bind:m (warp ship desk ~ %sing %x case spur)
(pure:m ?=(^ riot))
::
++ list-tree
|= [[=ship =desk =case:clay] =spur]
|= [[=ship =desk =case] =spur]
=* arg +<
=/ m (strand ,(list path))
;< =riot:clay bind:m (warp ship desk ~ %sing %t case spur)