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

Continued to fix tall form

Browse Source
This commit is contained in:
Anton Dyudin 2014-10-16 16:42:40 -07:00 committed by Anton Dyudin
parent 8fa1cf3c37
commit 3f74cdfbc6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -86,10 +86,11 @@
^- $+(nail (like coma)) ^- $+(nail (like coma))
=+ paf=pax =+ paf=pax
=. pax ?.(&(?=([@ @ @ *] pax) =('0' &3.pax)) pax pax(&3 (scot da/lat))) =. pax ?.(&(?=([@ @ @ *] pax) =('0' &3.pax)) pax pax(&3 (scot da/lat)))
%+ ifix [(star ace) (star ace)]
;~ pose ;~ pose
(stag %run ;~(plug (star ;~(sfix (task(tol %0) bar) ace)) (task col))) (stag %run ;~(plug (star ;~(sfix (task(tol %0) bar) ace)) (task col)))
(stag %end ;~(pfix sem ;~(pose (stag %& dem) (stag %| sym)))) (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 %del ;~(pfix hep ace loca))
(stag %mut ;~(pfix col ace ;~(plug loca expg))) (stag %mut ;~(pfix col ace ;~(plug loca expg)))
(stag %ins ;~(pfix lus ace ;~(plug loca (opts expg)))) (stag %ins ;~(pfix lus ace ;~(plug loca (opts expg))))
@ -200,6 +201,7 @@
[[ost %give %nice ~] mof] [[ost %give %nice ~] mof]
^- [con=_+>.$ tak=$|(~ tank) mof=(list move)] ^- [con=_+>.$ tak=$|(~ tank) mof=(list move)]
=+ pas=((full ~(parse from pax lat.hid)) [1 1] (trip txt)) =+ pas=((full ~(parse from pax lat.hid)) [1 1] (trip txt))
~& term-poke/txt
?~ q.pas ?~ q.pas
[+>.$ leaf/"<syntax error at {<`[@ @]`p.pas>}>" ~] [+>.$ leaf/"<syntax error at {<`[@ @]`p.pas>}>" ~]
=+ com=(wonk pas) =+ com=(wonk pas)