mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-04 20:54:21 +03:00
Various fixes and improvements.
This commit is contained in:
parent
187f180d48
commit
012396a4b1
@ -165,6 +165,7 @@
|
|||||||
[%brkt p=twig q=(map term foot)] ::
|
[%brkt p=twig q=(map term foot)] ::
|
||||||
[%brhp p=twig] ::
|
[%brhp p=twig] ::
|
||||||
[%brls p=tile q=twig] ::
|
[%brls p=tile q=twig] ::
|
||||||
|
[%brpt p=tile q=tile r=twig] ::
|
||||||
[%brtr p=tile q=twig] ::
|
[%brtr p=tile q=twig] ::
|
||||||
[%brts p=tile q=twig] ::
|
[%brts p=tile q=twig] ::
|
||||||
[%brwt p=twig] ::
|
[%brwt p=twig] ::
|
||||||
@ -232,13 +233,17 @@
|
|||||||
:: ::
|
:: ::
|
||||||
[%tsbr p=tile q=twig] ::
|
[%tsbr p=tile q=twig] ::
|
||||||
[%tscl p=tram q=twig] ::
|
[%tscl p=tram q=twig] ::
|
||||||
|
[%tscn p=twig q=twig] ::
|
||||||
[%tsdt p=wing q=twig r=twig] ::
|
[%tsdt p=wing q=twig r=twig] ::
|
||||||
|
[%tsfs p=twig q=twig] ::
|
||||||
[%tsgl p=twig q=twig] ::
|
[%tsgl p=twig q=twig] ::
|
||||||
|
[%tshp p=twig q=twig] ::
|
||||||
[%tsgr p=twig q=twig] ::
|
[%tsgr p=twig q=twig] ::
|
||||||
[%tskt p=twig q=twig r=twig s=twig] ::
|
[%tskt p=twig q=twig r=twig s=twig] ::
|
||||||
[%tsls p=twig q=twig] ::
|
[%tsls p=twig q=twig] ::
|
||||||
|
[%tspm p=tile q=twig] ::
|
||||||
|
[%tspt p=tile q=twig] ::
|
||||||
[%tstr p=term q=wing r=twig] ::
|
[%tstr p=term q=wing r=twig] ::
|
||||||
[%tshp p=twig q=twig] ::
|
|
||||||
[%tssg p=tusk] ::
|
[%tssg p=tusk] ::
|
||||||
:: ::
|
:: ::
|
||||||
[%wtbr p=tusk] ::
|
[%wtbr p=tusk] ::
|
||||||
|
@ -1755,7 +1755,7 @@
|
|||||||
++ deed ,[p=@ q=step] :: signature, stage
|
++ deed ,[p=@ q=step] :: signature, stage
|
||||||
++ dome :: project state
|
++ dome :: project state
|
||||||
$: ang=agon :: pedigree
|
$: ang=agon :: pedigree
|
||||||
ank=ankh :: new state
|
ank=ankh :: state
|
||||||
let=@ :: (lent hit)
|
let=@ :: (lent hit)
|
||||||
hit=(list frog) :: changes in reverse
|
hit=(list frog) :: changes in reverse
|
||||||
lab=(map ,@tas ,@ud) :: labels
|
lab=(map ,@tas ,@ud) :: labels
|
||||||
|
@ -33,6 +33,8 @@
|
|||||||
:_ ~
|
:_ ~
|
||||||
:- t.t.t.pax
|
:- t.t.t.pax
|
||||||
^- miso
|
^- miso
|
||||||
|
=+ lon=((hard arch) .^(%cy pax))
|
||||||
|
?~ q.lon
|
||||||
=+ fil=(file pax)
|
=+ fil=(file pax)
|
||||||
?~ fil
|
?~ fil
|
||||||
[%ins i.q.u.p.nut]
|
[%ins i.q.u.p.nut]
|
||||||
|
@ -33,6 +33,7 @@
|
|||||||
[[[[%polo ~] [%up pim pro def]] ~] ..$]
|
[[[[%polo ~] [%up pim pro def]] ~] ..$]
|
||||||
(woo now u.rey)
|
(woo now u.rey)
|
||||||
::
|
::
|
||||||
|
++ pome |=([git=(list gift) bol=bowl] [(weld git p.bol) q.bol])
|
||||||
++ pomo |=([gud=gift bol=bowl] [[gud p.bol] q.bol])
|
++ pomo |=([gud=gift bol=bowl] [[gud p.bol] q.bol])
|
||||||
++ pomp |=([tix=tape bol=bowl] (pomo la/leaf/tix bol))
|
++ pomp |=([tix=tape bol=bowl] (pomo la/leaf/tix bol))
|
||||||
++ pond :: text block
|
++ pond :: text block
|
||||||
|
@ -1,5 +1,4 @@
|
|||||||
|= *
|
|= *
|
||||||
|= [planet=tape ~]
|
|= [planet=tape ~]
|
||||||
^- bowl
|
^- bowl :_ ~ :_ ~ :- %$ !>
|
||||||
:_ ~ :_ ~
|
"hasta la vista, {planet}."
|
||||||
[%$ !>("hasta la vista, {planet}.")]
|
|
||||||
|
43
try/bin/write.hoon
Normal file
43
try/bin/write.hoon
Normal file
@ -0,0 +1,43 @@
|
|||||||
|
!: :: /=try=/bin/env/hoon
|
||||||
|
!? 164
|
||||||
|
::::
|
||||||
|
=> .(- `[who=@p how=path]`-)
|
||||||
|
=> .(- [woh=(scot %p who) -])
|
||||||
|
=> .(+ =>(+ ^/=main=/lib/pony))
|
||||||
|
::::
|
||||||
|
|= [est=time eny=@]
|
||||||
|
|= [loc=[mih=span dez=span caz=span sup=path] ~]
|
||||||
|
::::
|
||||||
|
?. =(woh mih.loc)
|
||||||
|
~|("you are not {(trip mih.loc)}!" !!)
|
||||||
|
=+ yaz=(zu ((hard ankh) .^(%cz mih.loc dez.loc caz.loc ~)))
|
||||||
|
%+ pomp "appending to {(dart:ut loc)}..."
|
||||||
|
=< work
|
||||||
|
|%
|
||||||
|
++ pend
|
||||||
|
|= den=@t
|
||||||
|
^- [(list gift) _+>]
|
||||||
|
=+ nyp=`soba`[*cart (turn (plan den) |=(p=miso [sup.loc p]))]
|
||||||
|
:- [[%ok dez.loc `nori`[%& ~ nyp]] ~]
|
||||||
|
=. yaz (durn:yaz nyp)
|
||||||
|
+>.$
|
||||||
|
::
|
||||||
|
++ plan
|
||||||
|
|= den=@t
|
||||||
|
^- (list miso)
|
||||||
|
=+ cur=q:ank:(deny:yaz sup.loc)
|
||||||
|
?~ cur
|
||||||
|
[[%ins den] ~]
|
||||||
|
?^ q.u.cur
|
||||||
|
[[%del q.u.cur] [%ins den] ~]
|
||||||
|
[[%mut ((diff %c) q.u.cur (cat 3 q.u.cur den))] ~]
|
||||||
|
::
|
||||||
|
++ work
|
||||||
|
|- ^- bowl
|
||||||
|
%+ (polo %text "> " ~ ~)
|
||||||
|
(plus alp)
|
||||||
|
|= [now=@da txt=tape]
|
||||||
|
^- bowl
|
||||||
|
=^ giv +.^$ (pend (rap 3 (weld txt `tape`[`@`10 ~])))
|
||||||
|
(pome giv ^$)
|
||||||
|
--
|
Loading…
Reference in New Issue
Block a user