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

Various fixes and improvements.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-02-14 11:29:03 -08:00
parent 187f180d48
commit 012396a4b1
6 changed files with 56 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
arvo/hoon.hoon
View File

@ -165,6 +165,7 @@
[%brkt p=twig q=(map term foot)] ::
[%brhp p=twig] ::
[%brls p=tile q=twig] ::
[%brpt p=tile q=tile r=twig] ::
[%brtr p=tile q=twig] ::
[%brts p=tile q=twig] ::
[%brwt p=twig] ::
@ -232,13 +233,17 @@
:: ::
[%tsbr p=tile q=twig] ::
[%tscl p=tram q=twig] ::
[%tscn p=twig q=twig] ::
[%tsdt p=wing q=twig r=twig] ::
[%tsfs p=twig q=twig] ::
[%tsgl p=twig q=twig] ::
[%tshp p=twig q=twig] ::
[%tsgr p=twig q=twig] ::
[%tskt p=twig q=twig r=twig s=twig] ::
[%tsls p=twig q=twig] ::
[%tspm p=tile q=twig] ::
[%tspt p=tile q=twig] ::
[%tstr p=term q=wing r=twig] ::
[%tshp p=twig q=twig] ::
[%tssg p=tusk] ::
:: ::
[%wtbr p=tusk] ::

4
arvo/zuse.hoon
View File

@ -1053,7 +1053,7 @@
?: =(2 wid) %king
?: (lte wid 4) %duke
?: (lte wid 8) %earl
?> (lte wid 16) %pawn
?> (lte wid 16) %pawn
::
++ deft :: import url path
|= rax=(list ,@t)
@ -1755,7 +1755,7 @@
++ deed ,[p=@ q=step] :: signature, stage
++ dome :: project state
$: ang=agon :: pedigree
ank=ankh :: new state
ank=ankh :: state
let=@ :: (lent hit)
hit=(list frog) :: changes in reverse
lab=(map ,@tas ,@ud) :: labels

2
main/bin/ram.hoon
View File

@ -33,6 +33,8 @@
:_ ~
:- t.t.t.pax
^- miso
=+ lon=((hard arch) .^(%cy pax))
?~ q.lon
=+ fil=(file pax)
?~ fil
[%ins i.q.u.p.nut]

1
main/lib/pony.hoon
View File

@ -33,6 +33,7 @@
[[[[%polo ~] [%up pim pro def]] ~] ..$]
(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])
++ pomp |=([tix=tape bol=bowl] (pomo la/leaf/tix bol))
++ pond :: text block

5
try/bin/goodbye.hoon
View File

@ -1,5 +1,4 @@
|= *
|= [planet=tape ~]
^- bowl
:_ ~ :_ ~
[%$ !>("hasta la vista, {planet}.")]
^- bowl :_ ~ :_ ~ :- %$ !>
"hasta la vista, {planet}."

43
try/bin/write.hoon Normal file
View 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 ^$)
--