ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-12 15:01:38 +03:00
Code Issues Packages Projects Releases Wiki Activity

Almost there...

Browse Source
This commit is contained in:
Jared Hance 2014-07-09 16:56:23 -04:00
parent 8703188407
commit 235583e858
2 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/clay.hoon
View File

@ -226,6 +226,7 @@
++ echo :: announce changes
|= [hen=duct wen=@da lem=nori]
^+ +>
=. lem (alas lem [who syd 0])
%= +>
vag ?~(hez vag :_(vag [u.hez [%ergo who syd let.dom]]))
yel
@ -246,6 +247,7 @@
++ edit :: apply changes
|= [wen=@da lem=nori]
^+ +>
=. lem (alas lem [who syd 0])
+>(dom +<+:(~(axel ze lim dom) wen lem))
::
++ exec :: change and update

30
arvo/zuse.hoon
View File

@ -882,6 +882,21 @@
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: section 3bE, tree sync ::
::
++ alas :: sign misos
|= [yob=nori qez=mizu]
^- nori
?- -.yob
|
yob
&
%= yob
q.q %+ turn q.q.yob
|= tak=tako
^- tako
?: =(p.q.tak *mizu) tak(p.q qez) tak
==
==
::
++ cure :: invert miso
|= mis=yaki
:- p.mis
@ -908,13 +923,6 @@
%- flop
myz:(dist:(zu ank) %c bus)
::
++ domo :: domestic mizu
^- mizu
*mizu
:::~ -:/===
:: +<:/===
:: 0
::==
++ ze !:
|_ [lim=@da dome]
++ aeon :: aeon:ze
@ -1350,7 +1358,7 @@
++ deaf :: add change
|= mis=miso
^+ +>
+>(myz [[(flop ram) [domo mis]] myz])
+>(myz [[(flop ram) [*mizu mis]] myz])
::
++ dent :: descend
|= lol=@ta
@ -1763,13 +1771,13 @@
|= [pax=path val=*]
^- toro
?> ?=([* * * *] pax)
[i.t.pax [%& ~ [*cart [[t.t.t.pax domo (feel pax val)] ~]]]]
[i.t.pax [%& ~ [*cart [[t.t.t.pax *mizu (feel pax val)] ~]]]]
::
++ fray :: high-level delete
|= pax=path
^- toro
?> ?=([* * * *] pax)
[i.t.pax [%& ~ [*cart [[t.t.t.pax domo [%del .^(%cx pax)]] ~]]]]
[i.t.pax [%& ~ [*cart [[t.t.t.pax *mizu [%del .^(%cx pax)]] ~]]]]
::
++ furl :: unify changes
|= [one=toro two=toro] !:
@ -2489,7 +2497,7 @@
[%ins p=*] :: insert
[%mut p=udon] :: mutate
== ::
++ mizu ,[p=ship q=desk r=@u] :: change origin
++ mizu ,[p=ship q=desk r=@] :: change origin
++ moar ,[p=@ud q=@ud] :: normal change range
++ moat ,[p=case q=case] :: change range
++ mood ,[p=care q=case r=path] :: request in desk