atagen/inshellah
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix subcommands in json model

Browse source
This commit is contained in:
atagen 2026-03-23 14:01:11 +11:00
parent 640732de4b
commit 76656231be
2 changed files with 33 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
bin/main.ml
View file

@ -364,7 +364,7 @@ let help_resolve_par ?(timeout=200) cmd rest name =
else
let at_limit = q_depth >= 5 in
let subs = if at_limit then [] else r.subcommands in
Some ({ r with subcommands = [] }, subs)) in
Some (r, subs)) in
let oc = Unix.out_channel_of_descr wr in
Marshal.to_channel oc (result : (help_result * subcommand list) option) [];
close_out oc;
@ -613,10 +613,13 @@ let cmd_complete spans user_dir system_dirs =
if String.starts_with ~prefix:"-" partial then
candidates := flag_completions partial r.entries
else begin
let subs = match r.subcommands with
| _ :: _ -> r.subcommands
| [] -> subcommands_of dirs _matched_name in
List.iter (fun (sc : subcommand) ->
if partial = "" || String.starts_with ~prefix:partial sc.name then
candidates := completion_json sc.name sc.desc :: !candidates
) r.subcommands;
) subs;
candidates := List.rev !candidates;
if partial = "" || !candidates = [] then
candidates := !candidates @ flag_completions partial r.entries