mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-21 23:47:35 +03:00
merging across network tentatively works
This commit is contained in:
parent
459604b7df
commit
1d6e199d65
@ -807,6 +807,7 @@
|
|||||||
~| %plop-strange-coy
|
~| %plop-strange-coy
|
||||||
!!
|
!!
|
||||||
=+ bob=((hard blob) -.q.coy)
|
=+ bob=((hard blob) -.q.coy)
|
||||||
|
~& [%taking p.coy]
|
||||||
?- -.bob
|
?- -.bob
|
||||||
%delta [-.bob p.bob q.bob q.i.p.p.cay (slot 3 coy)]
|
%delta [-.bob p.bob q.bob q.i.p.p.cay (slot 3 coy)]
|
||||||
%direct [-.bob p.bob q.i.p.p.cay (slot 3 coy)]
|
%direct [-.bob p.bob q.i.p.p.cay (slot 3 coy)]
|
||||||
|
@ -747,9 +747,14 @@
|
|||||||
|= [cof=cafe sam=vase]
|
|= [cof=cafe sam=vase]
|
||||||
^- (bolt vase)
|
^- (bolt vase)
|
||||||
%+ cool |.(leaf/"ford: check {<[for bek `@p`(mug q.sam)]>}")
|
%+ cool |.(leaf/"ford: check {<[for bek `@p`(mug q.sam)]>}")
|
||||||
?: ?=(?(%gate %core %door %hoon %hook) for)
|
?: ?=(?(%gate %core %door) for)
|
||||||
:: ~& [%lake-easy for bek]
|
:: ~& [%lake-easy for bek]
|
||||||
(fine cof sam)
|
(fine cof sam)
|
||||||
|
?: ?=(?(%hoon %hook) for)
|
||||||
|
=+ mas=((soft ,@t) q.sam)
|
||||||
|
?~ mas
|
||||||
|
(flaw cof [leaf/"ford: bad hoon or hook: {<[for bek]>}"]~)
|
||||||
|
(fine cof [%atom %t] u.mas)
|
||||||
%+ cope (fang cof for bek)
|
%+ cope (fang cof for bek)
|
||||||
|= [cof=cafe tux=vase]
|
|= [cof=cafe tux=vase]
|
||||||
=+ bob=(slot 6 tux)
|
=+ bob=(slot 6 tux)
|
||||||
@ -867,8 +872,10 @@
|
|||||||
%+ cope (fang cof for bek)
|
%+ cope (fang cof for bek)
|
||||||
|= [cof=cafe pro=vase]
|
|= [cof=cafe pro=vase]
|
||||||
?: &((slob %grow p.pro) (slob too p:(slap pro [%cnzy %grow])))
|
?: &((slob %grow p.pro) (slob too p:(slap pro [%cnzy %grow])))
|
||||||
|
~& [%herep-a -.vax]
|
||||||
%+ cope (keel cof pro [[%& 6]~ vax]~)
|
%+ cope (keel cof pro [[%& 6]~ vax]~)
|
||||||
|= [cof=cafe pox=vase]
|
|= [cof=cafe pox=vase]
|
||||||
|
~& %herep-b
|
||||||
(maim cof pox [%tsgr [%cnzy %grow] [%cnzy too]])
|
(maim cof pox [%tsgr [%cnzy %grow] [%cnzy too]])
|
||||||
%+ cope (fang cof too bek)
|
%+ cope (fang cof too bek)
|
||||||
|= [cof=cafe pro=vase]
|
|= [cof=cafe pro=vase]
|
||||||
@ -1062,6 +1069,7 @@
|
|||||||
%+ cool |.(leaf/"ford: vale {<p.kas>} {<q.kas>} {<`@p`(mug r.kas)>}")
|
%+ cool |.(leaf/"ford: vale {<p.kas>} {<q.kas>} {<`@p`(mug r.kas)>}")
|
||||||
%+ cope (lave cof p.kas q.kas r.kas)
|
%+ cope (lave cof p.kas q.kas r.kas)
|
||||||
|= [cof=cafe vax=vase]
|
|= [cof=cafe vax=vase]
|
||||||
|
~& [%valing p.kas p.vax]
|
||||||
(fine cof `cage`[p.kas vax])
|
(fine cof `cage`[p.kas vax])
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
|
@ -15,6 +15,7 @@
|
|||||||
++ grab
|
++ grab
|
||||||
|%
|
|%
|
||||||
++ mime |=([p=mite q=octs] q.q)
|
++ mime |=([p=mite q=octs] q.q)
|
||||||
|
++ noun ,@
|
||||||
--
|
--
|
||||||
++ grad
|
++ grad
|
||||||
|%
|
|%
|
||||||
|
@ -6,19 +6,19 @@
|
|||||||
|_ own=@t
|
|_ own=@t
|
||||||
::
|
::
|
||||||
++ grow :: convert to
|
++ grow :: convert to
|
||||||
|
~& hoon=(met 3 own)
|
||||||
|%
|
|%
|
||||||
++ mime [/text/hoon (taco own)] :: convert to %mime
|
++ mime `^mime`[/text/hoon (taco own)] :: convert to %mime
|
||||||
++ psal ;div:(pre:"{(trip own)}") :: convert to %html
|
++ psal ;div:(pre:"{(trip own)}") :: convert to %html
|
||||||
++ hymn ;html:(head:title:"Source" "+{psal}")
|
++ hymn ;html:(head:title:"Source" "+{psal}")
|
||||||
++ txt
|
++ txt
|
||||||
(lore (cat 3 own '\0a'))
|
(lore (cat 3 own '\0a'))
|
||||||
--
|
--
|
||||||
++ grab
|
++ grab
|
||||||
=> v=.
|
|
||||||
|% :: convert from
|
|% :: convert from
|
||||||
++ mime => v |=([p=mite q=octs] q.q)
|
++ mime |=([p=mite q=octs] q.q)
|
||||||
++ noun => v ,@t :: clam from %noun
|
++ noun ,@t :: clam from %noun
|
||||||
++ txt => v
|
++ txt
|
||||||
|= wan=wain
|
|= wan=wain
|
||||||
^- @t
|
^- @t
|
||||||
=+ (role wan)
|
=+ (role wan)
|
||||||
|
@ -2,6 +2,7 @@
|
|||||||
:::: /hoon/core/mime/mar
|
:::: /hoon/core/mime/mar
|
||||||
::
|
::
|
||||||
/? 314
|
/? 314
|
||||||
|
!:
|
||||||
|_ own=mime
|
|_ own=mime
|
||||||
++ grab :: convert from
|
++ grab :: convert from
|
||||||
|%
|
|%
|
||||||
|
@ -15,6 +15,7 @@
|
|||||||
++ grab
|
++ grab
|
||||||
|%
|
|%
|
||||||
++ mime |=([p=mite q=octs] q.q)
|
++ mime |=([p=mite q=octs] q.q)
|
||||||
|
++ noun ,@
|
||||||
--
|
--
|
||||||
++ grad
|
++ grad
|
||||||
|%
|
|%
|
||||||
|
@ -11,6 +11,7 @@
|
|||||||
++ grab
|
++ grab
|
||||||
|%
|
|%
|
||||||
++ mime |=([p=mite q=octs] q.q)
|
++ mime |=([p=mite q=octs] q.q)
|
||||||
|
++ noun ,@t
|
||||||
--
|
--
|
||||||
++ grad
|
++ grad
|
||||||
|%
|
|%
|
||||||
|
@ -15,6 +15,7 @@
|
|||||||
++ grab
|
++ grab
|
||||||
|%
|
|%
|
||||||
++ mime |=([p=mite q=octs] q.q)
|
++ mime |=([p=mite q=octs] q.q)
|
||||||
|
++ noun ,@
|
||||||
--
|
--
|
||||||
++ grad
|
++ grad
|
||||||
|%
|
|%
|
||||||
|
Loading…
Reference in New Issue
Block a user