Improve filename completion behaviour

Set the `filenames` option when completing filenames which allows more ergonomic completion of paths. Signed-off-by: Stephen Sherratt <[email protected]>
gridbugs · Nov 28, 2024 · 021ba83 · 021ba83
1 parent 31e2c40
commit 021ba83
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/examples/fake_git.ml b/examples/fake_git.ml
@@ -29,7 +29,8 @@ let commit =
   let open Arg_parser in
   let+ _amend = flag [ "amend"; "a" ]
   and+ _branch = named_opt [ "b"; "branch" ] branch_conv
-  and+ _message = named_opt [ "m"; "message" ] string in
+  and+ _message = named_opt [ "m"; "message" ] string
+  and+ _files = pos_all file in
   ()
 ;;
 

diff --git a/src/climate/completion.ml b/src/climate/completion.ml
@@ -156,6 +156,12 @@ module Add_reply = struct
           "Takes the word under the cursor (just the portion up to the cursor) and \
            completes with files in the current directory."
       ; raw "COMPREPLY+=($(compgen -A file -- \"$1\"))"
+      ; comment
+          "Tell the shell that completions will be filenames. This allows for ergonomic \
+           improvements such as appending a slash to directories and omitting the space \
+           after completions so completion of paths can continue if the user presses tab \
+           again."
+      ; raw "compopt -o filenames"
       ]
   ;;