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

Cosmetics

Browse Source
This commit is contained in:
Anton Dyudin 2014-09-30 14:07:40 -07:00 committed by Anton Dyudin
parent b616497d23
commit a9a75169d0
2 changed files with 28 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
main/app/shell/core.hook
View File

@ -51,7 +51,7 @@
==
::
++ args
(star ;~(pfix ace wide:(vang | pax)))
(star ;~(pfix ace wide:(vang & pax)))
::
++ parse
^- $+(nail (like coma))
@ -59,8 +59,8 @@
;~ pose
(stag %start ;~(pfix col ;~(plug sym args(pax paf))))
(stag %end ;~(pfix sem sym))
(stag %path (sear plex rood):(vang | pax))
(stag %hoon wide:(vang | paf))
(stag %path (sear plex rood):(vang & pax))
(stag %hoon wide:(vang & paf))
==
::
++ peer
@ -81,14 +81,20 @@
?: =('\\' (end 3 1 txt))
?+ (rsh 3 1 txt)
:_ +>.$
:~ (print ost you leaf/"no command" ~)
:~ (print ost you leaf/"no command {(trip txt)}" ~)
[ost %give %nice ~]
==
%c =. act ~
%x =. act ~
:_ +>.$
:~ (print ost you ~)
[ost %give %nice ~]
==
%l =+ =- tak=rose/[" " "[" "]"]^(murn (~(tap by sup.hid)) -)
|= [@ @ a=path]
?. ?=([%in cord ~] a) ~
=* b i.t.a
(some leaf/(trip (rap 3 (~(got by cub.hid) b) '(' b ')' ~)))
[~[(print ost you tak ~) [ost give/nice/~]] +>.$]
==
?^ act
:_ +>.$
@ -119,13 +125,13 @@
==
[ost %pass /child/[cil]/out %g %show [our.hid cil imp.hid] you /out]
[ost %pass /child/[cil] %g %sire p.u.com cil] :: XX strange order?
(print ost you leaf/"running {(trip p.u.com)}" ~)
(print ost you leaf/"+ :{(trip p.u.com)}" ~)
==
::
%end
:_ +>.$
=* cil p.u.com
:* (print ost you leaf/"killing {(trip cil)}" ~)
:* (print ost you leaf/"- :{(trip cil)}" ~)
%+ murn (~(tap by cub.hid)) |= [a=span b=term]
?. =(b cil) ~
%- some
@ -163,16 +169,18 @@
%out
?. ?=(?(%rust %rush) +<.sih) ~
:_ ~
%^ print ost our.hid
%^ print-vase ost our.hid
?+ p.sih
[(sell (slot 15 [typ sih]))]~
!>([(sell (slot 15 [typ sih]))]~)
%tang
;;((list tank) q.sih)
(slot 15 [typ sih])
:: ;;((list tank) q.sih)
==
== ==
::
++ print
|= [ost=bone you=ship tan=(list tank)]
++ print |=([a=bone b=ship c=(list tank)] (print-vase a b !>(c)))
++ print-vase
|= [ost=bone you=ship tan=vase] :: [p=p:!>(*(list tank)) q=*]
=+ ^= pro
?^ act
(rap 3 (~(got by cub.hid) u.act) '(' u.act ') ' ~)
@ -181,7 +189,7 @@
(rap 3 '/' &1.pax '/' &2.pax '=' ?~(|3.pax ~ [(spat |3.pax)]~))
:* ost %pass /print %g %mess
[our.hid +.imp.hid] you
%term-line !>(`term-line`[pro tan])
%term-line (slop !>(pro) tan)
==
++ spam
|= [pax=path gip=gift]

9
main/app/terminal/core.hook
View File

@ -169,8 +169,13 @@
=+ old=q.hiz
=. q.hiz
?. ?=(%mean &2.sih) q.hiz
?~ p.sih :_(q.hiz leaf/"! fail")
%- welp :_ [leaf/(trip p.u.p.sih) q.hiz]
=- %- welp :_ q.hiz
%+ turn
`(list tank)`[leaf/"fail" (flop -)]
|=(a=tank rose/[~ "! " ~]^[a]~)
^- (list tank)
?~ p.sih ~
:- leaf/(trip p.u.p.sih)
(flop q.u.p.sih)
:_ +>.$
:- [ost %give +.sih]