urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

Remove app prompt on death

Browse Source
This commit is contained in:
Anton Dyudin 2015-01-15 19:10:37 -08:00
parent a1ad306da3
commit 308ac2b0d1
3 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/dill.hoon
View File

@ -340,9 +340,9 @@
?~(hyt *hist u.hyt)
?: &(?=(^ q.q.yar) =(/ hux.u.q.q.yar))
%= u.q.q.yar
bul ?~ r.p.q.sih bul.u.q.q.yar (met 3 r.p.q.sih)
bus ?~ r.p.q.sih bus.u.q.q.yar (met 3 r.p.q.sih)
but ?~ r.p.q.sih but.u.q.q.yar (rip 3 r.p.q.sih)
bul ?~ r.p.q.sih bul.u.q.q.yar (teff r.p.q.sih)
bus ?~ r.p.q.sih bus.u.q.q.yar (teff r.p.q.sih)
but ?~ r.p.q.sih but.u.q.q.yar (rip 5 (turf r.p.q.sih))
hyt [+(p.hyt) [%$ q.hyt]]
pot (trip p.p.q.sih)
pol (met 3 p.p.q.sih)

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

@ -403,7 +403,8 @@
(spam /in/[u.act] %rush %txt txt)
=+ pas=((full ~(parse from pax lat.hid)) [1 1] (trip txt))
?~ q.pas
(blab (print leaf/"<syntax error at {<`[@ @]`p.pas>}>"))
=- (blab (weld (stray txt) (print leaf/-)))
"<syntax error at {<`[@ @]`p.pas>}>"
=+ com=(wonk pas)
=> .(+>.$ (eat you com))
=. +>.$ (blab (stash txt))
@ -446,8 +447,8 @@
?> ?=(%gone +<.sih)
=. mow :_(mow [ost %give %nice ~])
?. =(act [~ cil]) +>.$
~& gone/[cil (~(got by cub.hid) cil)]
(blab(act ~) ping)
=. act ~
(blab ping)
::
%main
?> ?=(?(%nice %mean) +<.sih)

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

@ -174,6 +174,7 @@
?+ +<.sih !!
%nice +>.$
?(%rust %rush)
:: ~? !=(p.tel p.q.sih) prompt/[p.q.sih ?=(~ q.q.sih)]
=. p.q.sih ?^(q.q.sih p.tel p.q.sih) :: XX prompt hack
%_ +>.$
mow (welp (spam q.sih) mow)