urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-25 21:12:56 +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) ?> ?=(~ pux)
%- he-card(poy `+>+<(pux `way)) %- 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] [%pass way %arvo %c %warp ship desk ~ %sing care case path]
:: ::
++ dy-request ++ dy-request
@ -399,7 +399,7 @@
:: really shoud stop the thread as well :: really shoud stop the thread as well
:: ::
[%pass u.pux %agent [our.hid %spider] %leave ~] [%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 ~] [%pass u.pux %arvo %c %warp ship desk ~]
:: ::
++ dy-errd :: reject change, abet ++ dy-errd :: reject change, abet

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

@ -1806,12 +1806,6 @@
== :: == ::
+$ care :: clay submode +$ care :: clay submode
?(%a %b %c %d %e %f %p %r %s %t %u %v %w %x %y %z) :: ?(%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 +$ cash :: case or tako
$% [%tako p=tako] :: $% [%tako p=tako] ::
case :: case ::

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

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

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

@ -15,7 +15,7 @@
== ==
^- form:m ^- 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) =/ now=@da ?>(?=(%da -.case) p.case)
:: ::
;< ~ bind:m ;< ~ bind:m

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

@ -18,7 +18,7 @@
?~ desks (pure:m !>(ok=&)) ?~ desks (pure:m !>(ok=&))
:: |merge %work our %base :: |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] =/ kiln-merge [i.desks ship %base case %auto]
;< ~ bind:m (poke-our:strandio %hood %kiln-merge !>(kiln-merge)) ;< ~ bind:m (poke-our:strandio %hood %kiln-merge !>(kiln-merge))
;< ~ bind:m (trace:strandio leaf+"work: merged {<i.desks>}" ~) ;< ~ 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) (take-writ /warp)
:: ::
++ read-file ++ read-file
|= [[=ship =desk =case:clay] =spur] |= [[=ship =desk =case] =spur]
=* arg +< =* arg +<
=/ m (strand ,cage) =/ m (strand ,cage)
;< =riot:clay bind:m (warp ship desk ~ %sing %x case spur) ;< =riot:clay bind:m (warp ship desk ~ %sing %x case spur)
@ -586,13 +586,13 @@
(pure:m r.u.riot) (pure:m r.u.riot)
:: ::
++ check-for-file ++ check-for-file
|= [[=ship =desk =case:clay] =spur] |= [[=ship =desk =case] =spur]
=/ m (strand ,?) =/ m (strand ,?)
;< =riot:clay bind:m (warp ship desk ~ %sing %x case spur) ;< =riot:clay bind:m (warp ship desk ~ %sing %x case spur)
(pure:m ?=(^ riot)) (pure:m ?=(^ riot))
:: ::
++ list-tree ++ list-tree
|= [[=ship =desk =case:clay] =spur] |= [[=ship =desk =case] =spur]
=* arg +< =* arg +<
=/ m (strand ,(list path)) =/ m (strand ,(list path))
;< =riot:clay bind:m (warp ship desk ~ %sing %t case spur) ;< =riot:clay bind:m (warp ship desk ~ %sing %t case spur)