From 3f74cdfbc60c396293c905e2a38f0ba235707903 Mon Sep 17 00:00:00 2001 From: Anton Dyudin Date: Thu, 16 Oct 2014 16:42:40 -0700 Subject: [PATCH] Continued to fix tall form --- main/app/shell/core.hook | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/main/app/shell/core.hook b/main/app/shell/core.hook index b1fd4a64a..9bdb705a5 100644 --- a/main/app/shell/core.hook +++ b/main/app/shell/core.hook @@ -86,10 +86,11 @@ ^- $+(nail (like coma)) =+ paf=pax =. pax ?.(&(?=([@ @ @ *] pax) =('0' &3.pax)) pax pax(&3 (scot da/lat))) + %+ ifix [(star ace) (star ace)] ;~ pose (stag %run ;~(plug (star ;~(sfix (task(tol %0) bar) ace)) (task col))) (stag %end ;~(pfix sem ;~(pose (stag %& dem) (stag %| sym)))) - (stag %path loca(pax paf)) + (stag %path (full loca(pax paf))) (stag %del ;~(pfix hep ace loca)) (stag %mut ;~(pfix col ace ;~(plug loca expg))) (stag %ins ;~(pfix lus ace ;~(plug loca (opts expg)))) @@ -200,6 +201,7 @@ [[ost %give %nice ~] mof] ^- [con=_+>.$ tak=$|(~ tank) mof=(list move)] =+ pas=((full ~(parse from pax lat.hid)) [1 1] (trip txt)) + ~& term-poke/txt ?~ q.pas [+>.$ leaf/"}>" ~] =+ com=(wonk pas)