mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-17 20:01:32 +03:00
Merge branch 'test' of https://github.com/urbit/urbit into test
This commit is contained in:
commit
82fb346050
@ -184,6 +184,23 @@
|
||||
|= gag=gage ^- (list (pair cage cage))
|
||||
(unwrap-tang (gage-to-tage gag))
|
||||
::
|
||||
++ gage-to-success-cages
|
||||
|= gag=gage
|
||||
^- (list (pair cage cage))
|
||||
?. ?=(%tabl -.gag)
|
||||
(ford-fail ?-(-.gag %| p.gag, %& [>%strange-gage p.p.gag<]~))
|
||||
%+ murn p.gag
|
||||
|= [key=gage val=gage] ^- (unit ,[cage cage])
|
||||
?. ?=(%& -.key)
|
||||
(ford-fail ?-(-.key %| p.key, %tabl [>%strange-gage<]~))
|
||||
?- -.val
|
||||
%tabl (ford-fail >%strange-gage< ~)
|
||||
%& (some [p.key p.val])
|
||||
%| =. p.val [(sell q.p.key) p.val]
|
||||
~> %slog.[0 %*(. >%ford-fail syd %for %why< |2.+> p.val)]
|
||||
~
|
||||
==
|
||||
::
|
||||
++ gage-to-tage
|
||||
|= gag=gage
|
||||
^- (each (list (pair cage cage)) tang)
|
||||
@ -567,7 +584,7 @@
|
||||
(apply-edit wen)
|
||||
+>.$
|
||||
^- (list (pair path cage))
|
||||
%+ turn (gage-to-cages res)
|
||||
%+ turn (gage-to-success-cages res)
|
||||
|= [pax=cage cay=cage]
|
||||
?. ?=(%path p.pax)
|
||||
~|(%clay-take-inserting-strange-path-mark !!)
|
||||
|
@ -275,6 +275,8 @@
|
||||
%lime lime
|
||||
%lima lima
|
||||
%link link
|
||||
%lion lion
|
||||
%lily lily
|
||||
%lope lope
|
||||
%make make
|
||||
%meow meow
|
||||
@ -1174,9 +1176,9 @@
|
||||
%+ cope
|
||||
|- ^- (bolt (list (pair gage gage)))
|
||||
?~ p.kas (fine cof ~)
|
||||
%+ cope (make cof p.i.p.kas)
|
||||
%+ cope (fret (make cof p.i.p.kas))
|
||||
|= [cof=cafe key=gage]
|
||||
%+ cope (make cof q.i.p.kas)
|
||||
%+ cope (fret (make cof q.i.p.kas))
|
||||
|= [cof=cafe val=gage]
|
||||
%+ cope ^^$(cof cof, p.kas t.p.kas)
|
||||
|= [cof=cafe rex=(list (pair gage gage))]
|
||||
|
12
base/cat/hood/breload/gate.hook
Normal file
12
base/cat/hood/breload/gate.hook
Normal file
@ -0,0 +1,12 @@
|
||||
::
|
||||
:::: /hook/gate/reload/hood/cat
|
||||
::
|
||||
/? 314
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|= $: [now=@da eny=@uvI bec=beak]
|
||||
[arg=(list term) ~]
|
||||
==
|
||||
:+ %hood-reload-desk %home
|
||||
arg
|
12
base/cat/hood/reload-desk/gate.hook
Normal file
12
base/cat/hood/reload-desk/gate.hook
Normal file
@ -0,0 +1,12 @@
|
||||
::
|
||||
:::: /hook/gate/reload/hood/cat
|
||||
::
|
||||
/? 314
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|= $: [now=@da eny=@uvI bec=beak]
|
||||
[arg=[desk (list term)] ~]
|
||||
==
|
||||
:- %hood-reload-desk
|
||||
arg
|
11
base/cat/hood/reset/gate.hook
Normal file
11
base/cat/hood/reset/gate.hook
Normal file
@ -0,0 +1,11 @@
|
||||
::
|
||||
:::: /hook/gate/reset/hood/cat
|
||||
::
|
||||
/? 314
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|= $: [now=@da eny=@uvI bec=beak]
|
||||
[arg=~ ~]
|
||||
==
|
||||
[%hood-reset ~]
|
@ -110,7 +110,7 @@ CodeMirror.defineMode("hoon", function() {
|
||||
}
|
||||
|
||||
if(stream.eat('`')){
|
||||
state.space = false
|
||||
state.space = true
|
||||
return 'operator'
|
||||
}
|
||||
if(stream.sol() && stream.eatWhile(glyph)){
|
||||
@ -131,8 +131,10 @@ CodeMirror.defineMode("hoon", function() {
|
||||
return 'builtin'
|
||||
return 'operator'
|
||||
}
|
||||
if(stream.eat(/[=:.^]/))
|
||||
if(stream.eat(/[=:.^]/)){
|
||||
state.space = true
|
||||
return 'operator'
|
||||
}
|
||||
stream.next()
|
||||
return 'builtin'
|
||||
}
|
||||
@ -154,4 +156,5 @@ CodeMirror.defineMode("hoon", function() {
|
||||
return res
|
||||
});
|
||||
|
||||
CodeMirror.registerHelper("wordChars", "hoon", /[-\\w]/);
|
||||
CodeMirror.defineMIME("text/x-hoon", "hoon");
|
||||
|
Loading…
Reference in New Issue
Block a user