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

Added default shell, somewhat broken reboot

Browse Source
This commit is contained in:
Anton Dyudin 2014-10-01 12:20:08 -07:00 committed by Anton Dyudin
parent 130b9ff10b
commit 98a74dbde2
2 changed files with 25 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -169,12 +169,15 @@
[ost %pass /child/[cil] %g %cide cil] [ost %pass /child/[cil] %g %cide cil]
== ==
=* cil p.p.u.com =* cil p.p.u.com
:* (print ost you leaf/"- :{(trip cil)}" ~) =- %- welp :_ mof
:~ (print ost you leaf/"-{<(lent mof)>} :{(trip cil)}" ~)
[ost %give %nice ~]
==
^= mof
%+ murn (~(tap by cub.hid)) |= [a=span b=term] %+ murn (~(tap by cub.hid)) |= [a=span b=term]
?. =(b cil) ~ ?. =(b cil) ~
%- some %- some
[ost %pass /child/[a] %g %cide a] [ost %pass /child/[a] %g %cide a]
==
:: ::
%pipe %pipe
=+ cia=(scot %ud pid) =+ cia=(scot %ud pid)

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

@ -94,8 +94,7 @@
;pre#cont; ;pre#cont;
;span#prem:">" ;input#prom; ;span#prem:">" ;input#prom;
;br; ;br;
;button(onclick "jpok('new', 'shell')"): Boot ;button(onclick "jpok('res', 'shell')"): Reboot
;button(onclick "jpok('del', 'shell')"): unBoot
;script:''' ;script:'''
$(prom).keydown(function(e){ $(prom).keydown(function(e){
if(e.which != 13) return; if(e.which != 13) return;
@ -117,9 +116,13 @@
++ peer ++ peer
|= [ost=bone you=ship pax=path] |= [ost=bone you=ship pax=path]
^- [(list move) _+>] ^- [(list move) _+>]
:_ +>.$ :_ ~ :_ +>.$
?~ pax ?~ pax
[ost %give %rust %hymn page] :- [ost %give %rust %hymn page]
?: (~(has by cub.hid) %shell)
~
[ost %pass /hi %g %sire [. .]:%shell]~
:_ ~
?+ -.pax !! ?+ -.pax !!
%lines (jell ost) %lines (jell ost)
== ==
@ -127,19 +130,18 @@
++ poke-json ++ poke-json
|= [ost=bone you=ship jon=json] |= [ost=bone you=ship jon=json]
^- [(list move) _+>] ^- [(list move) _+>]
=+ jof=(need ((of line/so new/so del/so ~):jo jon)) =+ jof=(need ((of line/so res/so ~):jo jon))
?- -.jof ?- -.jof
%del %res
=. q.hiz :_(q.hiz leaf/"- {(trip +.jof)}") =^ mof q.hiz
:_ +>.$ ?. (~(has by cub.hid) +.jof)
:+ [ost %give %mean ~ %hey ~] [~ q.hiz]
[ost %pass /hi %g %cide +.jof] :_ :_(q.hiz leaf/"- {(trip +.jof)}")
spam [ost %pass /hi %g %cide +.jof]~
::
%new
~& poke-sire/jof ~& poke-sire/jof
=. q.hiz :_(q.hiz leaf/"+ {(trip +.jof)}") =. q.hiz :_(q.hiz leaf/"+ {(trip +.jof)}")
:_ +>.$ :_ +>.$
%+ welp mof
:+ [ost %give %nice ~] :+ [ost %give %nice ~]
[ost %pass /hi %g %sire [+ +]:jof] [ost %pass /hi %g %sire [+ +]:jof]
spam spam