Merge pull request #1175 from urbit/philip/clay-foreign

Clay cleanup
This commit is contained in:
Jared Tobin 2019-05-24 19:37:14 +08:00 committed by GitHub
commit 90e44afde4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
7 changed files with 971 additions and 779 deletions

View File

@ -378,9 +378,12 @@
:: ::
[%swap-files ~] [%swap-files ~]
=. userspace-ova.pil =. userspace-ova.pil
=/ slim-dirs
`(list path)`~[/app /gen /lib /mar /sur /hoon/sys /arvo/sys /zuse/sys]
:_ ~ :_ ~
%- unix-event %- unix-event
(file-ovum:pill-lib /(scot %p our.hid)/home/(scot %da now.hid)) %- %*(. file-ovum:pill-lib directories slim-dirs)
/(scot %p our.hid)/home/(scot %da now.hid)
=^ ms this (poke-pill pil) =^ ms this (poke-pill pil)
(emit-moves ms) (emit-moves ms)
:: ::
@ -527,7 +530,6 @@
~ ~
=/ who (slav %p i.pax) =/ who (slav %p i.pax)
=/ pier (~(get by piers) who) =/ pier (~(get by piers) who)
=/ ren i.t.t.t.t.pax
?~ pier ?~ pier
~ ~
:^ ~ ~ %noun :^ ~ ~ %noun

View File

@ -164,7 +164,9 @@
;< ~ bind:m (raw-ship ~bud `(dawn:eth-node ~bud)) ;< ~ bind:m (raw-ship ~bud `(dawn:eth-node ~bud))
;< ~ bind:m (raw-ship ~marbud `(dawn:eth-node ~marbud)) ;< ~ bind:m (raw-ship ~marbud `(dawn:eth-node ~marbud))
;< file=@t bind:m (touch-file ~bud %base) ;< file=@t bind:m (touch-file ~bud %base)
~& %checking-file-touched
(check-file-touched ~marbud %home file) (check-file-touched ~marbud %home file)
~& %checked-file-touched
;< eth-node=_eth-node bind:m ;< eth-node=_eth-node bind:m
(breach-and-hear:eth-node our.hid ~bud ~marbud) (breach-and-hear:eth-node our.hid ~bud ~marbud)
;< [eth-node=_eth-node ~] bind:m ;< [eth-node=_eth-node ~] bind:m

View File

@ -123,7 +123,7 @@
++ poke-track :: ++ poke-track ::
|= hos/kiln-sync |= hos/kiln-sync
?: (~(has by syn) hos) ?: (~(has by syn) hos)
abet:(spam (render "already syncing" [sud her syd]:hos) ~) abet:(spam (render "already tracking" [sud her syd]:hos) ~)
abet:abet:start-track:(auto hos) abet:abet:start-track:(auto hos)
:: ::
++ poke-sync :: ++ poke-sync ::
@ -457,7 +457,7 @@
q.p.mes q.p.mes
== ==
:: ::
$no-ali-desk $no-ali-disc
:~ (render "sync activated" sud her syd) :~ (render "sync activated" sud her syd)
leaf+"note: blank desk {<sud>} on {<her>}" leaf+"note: blank desk {<sud>} on {<her>}"
== ==

View File

@ -48,6 +48,8 @@
:: bas: full path to / directory :: bas: full path to / directory
:: ::
++ file-ovum ++ file-ovum
=/ directories
`(list path)`~[/app /gen /lib /mar /ren /sec /sur /sys /tests /web]
|= bas=path |= bas=path
^- ovum ^- ovum
:: ::
@ -62,7 +64,7 @@
:: /tests unit tests :: /tests unit tests
:: /web %eyre web content :: /web %eyre web content
:: ::
%. [/app /gen /lib /mar /ren /sec /sur /sys /tests /web ~] %. directories
|= :: sal: all spurs to load from |= :: sal: all spurs to load from
:: ::
sal/(list spur) sal/(list spur)

File diff suppressed because it is too large Load Diff

View File

@ -307,7 +307,7 @@
++ mere :: continue init ++ mere :: continue init
~& [%dill-mere our ram] ~& [%dill-mere our ram]
^+ . ^+ .
=/ myt (flop (need tem)) =/ myt (flop (fall tem ~))
=/ can (clan:title our) =/ can (clan:title our)
=. tem ~ =. tem ~
=. moz :_(moz [hen %pass ~ %g %conf [[our ram] %load our %home]]) =. moz :_(moz [hen %pass ~ %g %conf [[our ram] %load our %home]])

View File

@ -549,22 +549,22 @@
++ lobe @uvI :: blob ref ++ lobe @uvI :: blob ref
++ maki {p/@ta q/@ta r/@ta s/path} :: ++ maki {p/@ta q/@ta r/@ta s/path} ::
++ miso :: ankh delta ++ miso :: ankh delta
$% {$del ~} :: delete $% {$del ~} :: delete
{$ins p/cage} :: insert {$ins p/cage} :: insert
{$dif p/cage} :: mutate from diff {$dif p/cage} :: mutate from diff
{$mut p/cage} :: mutate from raw {$mut p/cage} :: mutate from raw
== :: == ::
++ misu :: computed delta ++ misu :: computed delta
$% {$del ~} :: delete $% {$del ~} :: delete
{$ins p/cage} :: insert {$ins p/cage} :: insert
{$dif p/lobe q/cage} :: mutate from diff {$dif p/lobe q/cage} :: mutate from diff
== :: == ::
++ mizu {p/@u q/(map @ud tako) r/rang} :: new state ++ mizu {p/@u q/(map @ud tako) r/rang} :: new state
++ moar {p/@ud q/@ud} :: normal change range ++ moar {p/@ud q/@ud} :: normal change range
++ moat {p/case q/case r/path} :: change range +$ moat [from=case to=case =path] :: change range
++ mode (list {path (unit mime)}) :: external files ++ mode (list {path (unit mime)}) :: external files
++ mood {p/care q/case r/path} :: request in desk +$ mood [=care =case =path] :: request in desk
++ mool {p/case q/(set (pair care path))} :: requests in desk +$ mool [=case paths=(set (pair care path))] :: requests in desk
++ nori :: repository action ++ nori :: repository action
$% {%& p/soba} :: delta $% {%& p/soba} :: delta
{%| p/@tas} :: label {%| p/@tas} :: label
@ -585,10 +585,10 @@
r/cage :: data r/cage :: data
== :: == ::
++ rave :: general request ++ rave :: general request
$% {$sing p/mood} :: single request $% [%sing =mood] :: single request
{$next p/mood} :: await next version [%next =mood] :: await next version
{$mult p/mool} :: next version of any [%mult =mool] :: next version of any
{$many p/? q/moat} :: track range [%many track=? =moat] :: track range
== :: == ::
++ real :: resolved permissions ++ real :: resolved permissions
$: mod/?($black $white) :: $: mod/?($black $white) ::