ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 16:09:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

removed lines-jon

Browse Source
This commit is contained in:
Ubuntu 2014-10-23 03:35:13 +00:00
parent 0c7a8604f7
commit 89a7bc473a
2 changed files with 3 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -15,7 +15,6 @@
++ gilt :: ++ gilt ::
$% [%term-line p=term-line] :: $% [%term-line p=term-line] ::
[%hymn p=manx] :: [%hymn p=manx] ::
[%json p=json] ::
== :: == ::
++ gift :: ++ gift ::
$% [%rush gilt] :: $% [%rush gilt] ::
@ -118,9 +117,8 @@
=. hiz hit =. hiz hit
:_ +>.$ :_ mof :_ +>.$ :_ mof
?+ -.pax !! ?+ -.pax !!
%lines-jon (jell-json ost tel) :: json output
%term [ost %give %rust %hymn (page t.pax)] :: hymn front end %term [ost %give %rust %hymn (page t.pax)] :: hymn front end
%lines (jell-term ost tel) :: term-line output %lines (jell ost tel) :: term-line output
== ==
:: ::
++ poke-term-in ++ poke-term-in
@ -191,11 +189,7 @@
:^ ost %pass [-.mez (scot %da lat.hid) pax] :^ ost %pass [-.mez (scot %da lat.hid) pax]
[%g %mess [our.hid p imp.hid] you mez] [%g %mess [our.hid p imp.hid] you mez]
:: ::
++ jell-json ++ jell
|= [a=bone b=term-line]
[a %give %rush %json (tel-to-jon b)]
::
++ jell-term
|= [a=bone b=term-line] |= [a=bone b=term-line]
[a %give %rush %term-line b] [a %give %rush %term-line b]
:: ::
@ -204,10 +198,8 @@
%+ murn %+ murn
(~(tap by sup.hid)) (~(tap by sup.hid))
|= [ost=bone @ paf=path] |= [ost=bone @ paf=path]
?: =([%lines-jon pax] paf)
(some (jell-json ost tel))
?: =([%lines pax] paf) ?: =([%lines pax] paf)
(some (jell-term ost tel)) (some (jell ost tel))
~ ~
:: ::
++ pour ++ pour
@ -246,17 +238,4 @@
[[[ost %give +.sih] (spam t.t.pax tel)] +>.$] [[[ost %give +.sih] (spam t.t.pax tel)] +>.$]
== ==
== ==
::
++ tel-to-jon
|= tel=term-line
%- jobe
:~ [%prompt %s p.tel]
[%history %a (turn q.tel |=(a=cord [%s a]))]
:+ %lines %a
%- zing ^- (list (list json))
%+ turn (flop r.tel) |= a=tank
?. ?=([%rose [[%'>' %' ' ~] ~ ~] [%leaf *] [%leaf *] ~] a)
(turn (wash 0^80 a) jape)
[(jobe prompt/(jape p.i.q.a) task/(jape p.i.t.q.a) ~)]~
==
-- --

1
main/mar/term-line/door.hook
View File

@ -13,7 +13,6 @@
++ grow ++ grow
|% |%
++ json ++ json
~& %helps
%- jobe %- jobe
:~ [%prompt %s p.tel] :~ [%prompt %s p.tel]
[%history %a (turn q.tel |=(a=cord [%s a]))] [%history %a (turn q.tel |=(a=cord [%s a]))]