From 337178b4a2542b3818f14346bab375f5916f41cd Mon Sep 17 00:00:00 2001 From: Philip C Monk Date: Tue, 2 Dec 2014 20:07:00 -0500 Subject: [PATCH 1/5] added :label fixes #189 --- main/app/label/core.hook | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 main/app/label/core.hook diff --git a/main/app/label/core.hook b/main/app/label/core.hook new file mode 100644 index 000000000..a051134d5 --- /dev/null +++ b/main/app/label/core.hook @@ -0,0 +1,9 @@ +!: +|_ [hid=hide ~] +++ poke-label-args + |= [ost=bone you=ship syd=@tas lab=@tas ~] + :_ +>.$ + :~ [ost %pass /cp %c %info our.hid syd %| lab] + == +++ peer |=(* `+>) +-- From 6866d64c48805dd31eb7ef424d98df5a7274df8d Mon Sep 17 00:00:00 2001 From: Philip C Monk Date: Tue, 2 Dec 2014 21:26:55 -0500 Subject: [PATCH 2/5] added entropy/ship in the shell fixes #183 --- main/app/shell/core.hook | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/main/app/shell/core.hook b/main/app/shell/core.hook index 5fdcc0630..585357824 100644 --- a/main/app/shell/core.hook +++ b/main/app/shell/core.hook @@ -299,8 +299,10 @@ ++ exec |= gen=twig %- slap :_ gen - =+ tym=!>(lat.hid) - %+ slop [[%face %tym p.tym] q.tym] + %+ slop + %+ slop [[%face %our p] q]:!>(our.hid) + %+ slop [[%face %tym p] q]:!>(lat.hid) + [[%face %eny p] q]:!>(eny.hid) %+ roll (~(tap by var)) =< .(q pit) |= [[n=term v=vase] q=vase] From ea6702649e99bc74449084d7486877a61b07df66 Mon Sep 17 00:00:00 2001 From: Philip C Monk Date: Tue, 2 Dec 2014 22:03:12 -0500 Subject: [PATCH 3/5] limit terminal and chat backlog fixes #200 --- arvo/dill.hoon | 3 ++- main/app/chat/core.hook | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/arvo/dill.hoon b/arvo/dill.hoon index 35bc22e98..3e3420bd9 100644 --- a/arvo/dill.hoon +++ b/arvo/dill.hoon @@ -367,7 +367,8 @@ ?(%rush %rust) :: XX reset prompt ?> ?=(%term-line +>-.sih) =. +>.$ - =- (furl (zing (turn (flop r.q.sih) -))) + =+ lis=?-(-.+.sih %rust (scag 1.000 r.q.sih), %rush r.q.sih) + =- (furl (zing (turn (flop lis) -))) |= a=tark ^- wall ?+ -.a (~(win re a) 0 p.q.yar) diff --git a/main/app/chat/core.hook b/main/app/chat/core.hook index 230e26064..02984bf5c 100644 --- a/main/app/chat/core.hook +++ b/main/app/chat/core.hook @@ -381,7 +381,7 @@ (welp mow (send /out %give %rush %tang (zong-to-tank | zog) ~)) == ?: =(%zongs -.p.sih) - =+ zos=((hard (list zong)) p.p.sih) + =+ zos=(scag 200 ((hard (list zong)) p.p.sih)) =< +(mow (flop mow)) |- ^+ +.$ ?: =(~ zos) +.$ :: XX tm freakin i From fc282f6697d22f8bd097147434634592f29ee0ff Mon Sep 17 00:00:00 2001 From: Garret Kelly Date: Wed, 3 Dec 2014 03:51:11 +0000 Subject: [PATCH 4/5] Properly attribute event source in utilities. --- main/app/into/core.hook | 2 +- main/app/label/core.hook | 2 +- main/app/mv/core.hook | 2 +- main/app/rm/core.hook | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/main/app/into/core.hook b/main/app/into/core.hook index 612006361..72c0c3e51 100644 --- a/main/app/into/core.hook +++ b/main/app/into/core.hook @@ -3,7 +3,7 @@ ++ poke-into-args |= [ost=bone you=ship pax=path dat=@ ~] :_ +>.$ - :* [ost %pass /cp %c %info our.hid (foal pax dat)] + :* [ost %pass /into %c %info our.hid (foal pax dat)] [ost %give %nice ~] %+ turn (~(tap by sup.hid)) |= [ost=bone *] diff --git a/main/app/label/core.hook b/main/app/label/core.hook index a051134d5..9a6ca2531 100644 --- a/main/app/label/core.hook +++ b/main/app/label/core.hook @@ -3,7 +3,7 @@ ++ poke-label-args |= [ost=bone you=ship syd=@tas lab=@tas ~] :_ +>.$ - :~ [ost %pass /cp %c %info our.hid syd %| lab] + :~ [ost %pass /label %c %info our.hid syd %| lab] == ++ peer |=(* `+>) -- diff --git a/main/app/mv/core.hook b/main/app/mv/core.hook index cfe25c83a..9c1af1f85 100644 --- a/main/app/mv/core.hook +++ b/main/app/mv/core.hook @@ -3,7 +3,7 @@ ++ poke-mv-args |= [ost=bone you=ship input=path output=path ~] :_ +>.$ - :* :^ ost %pass /cp + :* :^ ost %pass /mv :^ %c %info our.hid (furl (foal output .^(%cx input)) (fray input)) [ost %give %nice ~] diff --git a/main/app/rm/core.hook b/main/app/rm/core.hook index 58d318c3a..2fe095e95 100644 --- a/main/app/rm/core.hook +++ b/main/app/rm/core.hook @@ -3,7 +3,7 @@ ++ poke-rm-args |= [ost=bone you=ship pax=path ~] :_ +>.$ - :* [ost %pass /cp %c %info our.hid (fray pax)] + :* [ost %pass /rm %c %info our.hid (fray pax)] [ost %give %nice ~] %+ turn (~(tap by sup.hid)) |= [ost=bone *] From 7c7709bb28b839c3980d1bb64e02c52c357818ae Mon Sep 17 00:00:00 2001 From: Garret Kelly Date: Wed, 3 Dec 2014 03:51:33 +0000 Subject: [PATCH 5/5] Remove unsued %cide from ls. --- main/app/ls/core.hook | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/main/app/ls/core.hook b/main/app/ls/core.hook index 86fa54b16..f6bc508dc 100644 --- a/main/app/ls/core.hook +++ b/main/app/ls/core.hook @@ -4,8 +4,7 @@ |= [ost=bone you=ship arg=path ~] =+ lon=((hard arch) .^(%cy arg)) :_ +>.$ - :* ::[ost %pass / %g %cide %$] - [ost %give %nice ~] + :* [ost %give %nice ~] %+ turn (~(tap by sup.hid)) |= [ost=bone *] :^ ost %give %rush