ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 18:12:47 +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

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

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

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

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