From 3f31904595fad9ef3b27ac4f32b58aacfb1b7ca1 Mon Sep 17 00:00:00 2001 From: Liam Fitzgerald Date: Thu, 5 Dec 2019 08:54:18 +1000 Subject: [PATCH] chat-cli: update tab-complete to static gall --- pkg/arvo/app/chat-cli.hoon | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/pkg/arvo/app/chat-cli.hoon b/pkg/arvo/app/chat-cli.hoon index 8a6f72b17..a346cf382 100644 --- a/pkg/arvo/app/chat-cli.hoon +++ b/pkg/arvo/app/chat-cli.hoon @@ -351,7 +351,7 @@ %det (edit +.dat.act) %clr [~ all-state] %ret obey - %tab (tab +.act) + %tab (tab +.dat.act) == :: +tab-list: static list of autocomplete entries ++ tab-list @@ -378,14 +378,14 @@ == ++ tab |= pos=@ud - ^- (quip move _this) + ^- (quip card state) ?. =(';' (snag 0 buf.state.cli)) - [~ this] + [~ all-state] =+ (get-id:auto pos (tufa buf.state.cli)) =/ needle=term (fall id '') ?: &(!=(pos 1) =(0 (met 3 needle))) - [~ this] :: autocomplete empty command iff user at start of command + [~ all-state] :: autocomplete empty command iff user at start of command =/ options=(list (option:auto tank)) (search-prefix:auto needle tab-list) =/ advance=term @@ -394,13 +394,13 @@ (trip (rsh 3 (met 3 needle) advance)) =/ send-pos (add pos (met 3 (fall forward ''))) - =| moves=(list move) + =| moves=(list card) =? moves ?=(^ options) [(tab:sh-out options) moves] =| fxs=(list sole-effect:sole-sur) |- ?~ to-send - [(flop moves) this] + [(flop moves) all-state] =^ char state.cli (~(transmit sole-lib state.cli) [%ins send-pos `@c`i.to-send]) %_ $