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

Nices rectified, commands typed.

Browse Source
This commit is contained in:
Anton Dyudin 2014-09-22 18:00:25 -07:00 committed by Anton Dyudin
parent 5e07872bc7
commit 32da6e8589
3 changed files with 46 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,7 +11,7 @@
++ peek
|= [you=ship pax=path]
?^ pax
[%txt 'demo peeking']
[%txt (crip "demo peeking {<p.vat>}")]
:- %hymn
^- manx
;html

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

@ -19,8 +19,13 @@
$% [%cide p=span] ::
[%show p=hapt q=ship r=path] ::
[%sire p=term q=span] ::
[%mess p=hapt q=ship r=[%term-line vase]] ::
[%mess p=hapt q=ship r=cage] ::
== == == ::
++ coma ::
$% [%start p=cord q=(unit tape)] ::
[%end p=cord] ::
[%path p=path] ::
== ::
++ sign ::
$% $: %g ::
$% [%gone p=hapt] ::
@ -34,10 +39,21 @@
:::: program
::
|_ [hid=hide pax=_`path`%]
++ parse
++ maybe
|* fel=_rule
;~ pose
(stag %start ;~(pfix col (plus ;~(pose low nud hep))))
(stag %end ;~(pfix sem (plus ;~(pose low nud hep))))
(stag ~ fel)
(easy ~)
==
::
++ args
(maybe ;~(pfix ace (star prn)))
::
++ parse
^- $+(nail (like coma))
;~ pose
(stag %start ;~(pfix col ;~(plug sym args)))
(stag %end ;~(pfix sem sym))
(stag %path (sear plex rood):(vang | pax))
==
::
@ -46,25 +62,32 @@
^- [(list move) _+>]
=+ paf=(rush txt parse)
?~ paf
:_ +>.$ :_ ~
(print ost you "Yup, {(trip txt)}")
:_ +>.$
:~ [ost %give %nice ~]
(print ost you "Clarify {(trip txt)}")
==
?- -.u.paf
%path
:_ +>.$(pax +.u.paf) :_ ~
(print ost you "=% {(spud +.u.paf)}")
=. pax p.u.paf
:_ +>.$
:~ [ost %give %nice ~]
(print ost you "=% {(spud p.u.paf)}")
==
::
%start
:_ +>.$
=+ cil=(crip +.u.paf)
:~ [ost %pass /child/[cil]/lines %g %show [our.hid cil imp.hid] you /lines]
=* cil p.u.paf
:~ :^ ost %pass /child/[cil]/main
[%g %mess [our.hid cil imp.hid] you [%txt !>((crip (fall q.u.paf "")))]]
[ost %pass /child/[cil]/lines %g %show [our.hid cil imp.hid] you /lines]
[ost %pass /child/[cil] %g %sire cil cil] :: XX strange order?
(print ost you "running {+.u.paf}")
(print ost you "running {(trip p.u.paf)}")
==
::
%end
:_ +>.$
=+ cil=(crip +.u.paf)
:~ (print ost you "killing {+.u.paf}")
=* cil p.u.paf
:~ (print ost you "killing {(trip cil)}")
[ost %pass /child/[cil] %g %cide cil]
==
==
@ -77,15 +100,17 @@
?~ pax ~& %no-path !!
?+ &1.pax ~& %strange-path !!
%print
?> ?=(?(%nice %mean) +<.sih)
[ost %give +.sih]~
~
::
%child
?~ |1.pax ~& %no-child !!
?~ |2.pax
?> ?=(%gone +<.sih)
~
[ost %give %nice ~]~
?+ &3.pax ~& %strange-child-path !!
%main
?> ?=(?(%nice %mean) +<.sih)
[ost %give +.sih]~
%lines
?. ?=(?(%rust %rush) +<.sih) ~
:_ ~ (print ost our.hid :(welp (trip &2.pax) ": " (trip q.sih)))

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

@ -47,7 +47,7 @@
;html
;head
;title: Hi
;script(src "/gon/main/lib/urb.js");
;script(src "/gen/main/lib/urb.js");
;script(src "//cdnjs.cloudflare.com/ajax/libs/jquery/2.1.1/jquery.min.js");
;script: urb.appl = "{(trip app.hid)}"
;script:'''
@ -58,9 +58,10 @@
}
'''
;style:'''
body {
body, body * {
background-color: black;
color: greenyellow;
border-color: #0f2;
}
'''
==
@ -76,6 +77,7 @@
jpok('line', prom.value)
$(this).val('')
})
$(prom).focus()
urb.subscribe({path: '/lines'}, function(e, dat){
if(dat.data.ok) return;
cont.textContent = dat.data.lines.join('\n')