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

various shell/terminal fixes

Browse Source
This commit is contained in:
Philip C Monk 2014-11-05 15:35:36 -05:00
parent c8f5313407
commit 0c1037cbeb
3 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
main/app/begin/core.hook
View File

@ -72,7 +72,7 @@
%- lore %- crip
"""
Launching {<her>}, one of {<cow>} Urbit {ves}...
Launching {(scow %p her)}, one of {<cow>} Urbit {ves}...
If I did not build for myself
for whom should I build?

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

@ -246,7 +246,7 @@
++ eat-run
|= [you=ship mud=(list mand) mad=mand]
^+ +>
=. +>.$ (blab (print leaf/"+ :{(trip p.mad)}"))
:: =. +>.$ (blab (print leaf/"+ :{(trip p.mad)}"))
=| inp=(unit span)
=< +>.$
%+ reel
@ -365,7 +365,7 @@
(rap 3 (~(got by cub.hid) u.act) '(' u.act ') ' ~)
?. &(?=([@ @ @ *] pax) =('0' &3.pax))
(rsh 3 1 (spat pax))
(rap 3 &1.pax '/' &2.pax '=' ?~(|3.pax ~ [(spat |3.pax)]~))
(rap 3 &1.pax '/' &2.pax '=' ?~(|3.pax ~['> '] ~[(spat |3.pax) '> ']))
::
++ purr
|= [cil=span fom=?(%fork %out %main) typ=type sih=sign]
@ -385,11 +385,13 @@
::
%out
?. ?=(?(%rust %rush) +<.sih) +>.$
?: ?=(%prompt p.sih)
?: (~(has by pip) cil) +>.$
=. pot (~(put by pot) cil (cord q.sih))
(blab ping)
%- blab
?: (~(has by pip) cil)
(spam /in/(~(got by pip) cil) %meta (slot 3 typ sih))
?: ?=(%prompt p.sih)
ping(pot (~(put by pot) cil (cord q.sih)))
%- print-vase
?+ p.sih
!>([(sell (slot 15 [typ sih]))]~)
@ -425,7 +427,7 @@
?. ?=(?(%in %out) i.pax) `+>.$
=+ ^= gal
?: ?=(%out i.pax) %out
[%in ?<(?=(~ t.pax) i.pax)]
[%in ?<(?=(~ t.pax) i.t.pax)]
=+ abet:(peer:(ve hid ost vat) you gal)
[-< +>.$(vat ->)]
::

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

@ -165,7 +165,7 @@
?+ +<.sih !!
%nice +>.$
?(%rust %rush)
=. p.q.sih ?^(q.q.sih p.tel (cat 3 p.q.sih '> ')) :: XX prompt hack
=. p.q.sih ?^(q.q.sih p.tel p.q.sih) :: XX prompt hack
%_ +>.$
mow (welp (spam q.sih) mow)
tel [p.q.sih (weld q.q.sih q.tel) (weld r.q.sih r.tel)]