From: Amélia Coutard-Sander <git@f4mnq.fr>
Date: Wed, 7 Jan 2026 13:38:54 +0000 (+0100)
Subject: Complétions dans l'ordre alphabétique
X-Git-Url: https://git.f4mnq.fr/?a=commitdiff_plain;h=7158b2b1c5537b4902db8f7cb295673dc09a8209;p=cells.git

Complétions dans l'ordre alphabétique
---

diff --git a/bin/modes.ml b/bin/modes.ml
index a19746d..4b4c582 100644
--- a/bin/modes.ml
+++ b/bin/modes.ml
@@ -107,6 +107,7 @@ module rec Command : (Mode with type initer = string) = struct
           aux (len - 1) len
 
   let real_complete cmd completions =
+          let completions = List.sort (fun x y -> compare y x) completions in
           let last = last cmd in
           match List.filter (String.starts_with ~prefix:last) completions with
           | [] -> (String.concat " " (List.map Parse.shquote cmd), [])