[elpa] externals/vertico 545b9e0 1/7: Add vertico-ido-delete-char/vertico-ido-delete-word

[ELPA Syncer]

branch: externals/vertico
commit 545b9e0e09d1f87bc049f64c5b50dad68b17e53d
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>

    Add vertico-ido-delete-char/vertico-ido-delete-word
---
 extensions/vertico-ido.el | 36 +++++++++++++++++++++++++-----------
 1 file changed, 25 insertions(+), 11 deletions(-)

diff --git a/extensions/vertico-ido.el b/extensions/vertico-ido.el
index 5b8aec8..129f4b8 100644
--- a/extensions/vertico-ido.el
+++ b/extensions/vertico-ido.el
@@ -22,8 +22,8 @@
 ;; This package is a Vertico extension, which provides Ido-like
 ;; commands. The commands can be bound in the `vertico-map'.
 ;;
-;; (define-key vertico-map "\r" #'vertico-ido-exit)
-;; (define-key vertico-map "\d" #'vertico-ido-delete)
+;; (define-key vertico-map "\d" #'vertico-ido-delete-char)
+;; (define-key vertico-map "\M-\d" #'vertico-ido-delete-word)
 
 ;;; Code:
 
@@ -50,17 +50,31 @@
       (vertico-insert)
     (vertico-exit)))
 
+(defun vertico-ido--delete-directory ()
+  "Delete directory before point."
+  (when (and (eq (char-before) ?/)
+             (vertico-ido--completing-file-p))
+    (save-excursion
+      (goto-char (1- (point)))
+      (when (search-backward "/" (point-min) t)
+        (delete-region (1+ (point)) (point-max))))
+    t))
+
 ;;;###autoload
-(defun vertico-ido-delete ()
-  "Delete char before or go up directory for file cagetory selectrum buffers."
+(defun vertico-ido-delete-char ()
+  "Delete directory or char before point."
   (interactive)
-  (if (and (eq (char-before) ?/)
-           (vertico-ido--completing-file-p))
-      (save-excursion
-        (goto-char (1- (point)))
-        (when (search-backward "/" (point-min) t)
-          (delete-region (1+ (point)) (point-max))))
-    (call-interactively 'backward-delete-char)))
+  (unless (vertico-ido--delete-directory)
+    (call-interactively #'backward-delete-char)))
+
+;;;###autoload
+(defun vertico-ido-delete-word ()
+  "Delete directory or word before point."
+  (interactive)
+  (unless (vertico-ido--delete-directory)
+    (let ((pt (point)))
+      (forward-word -1)
+      (delete-region pt (point)))))
 
 (provide 'vertico-ido)
 ;;; vertico-ido.el ends here