[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vertico 545b9e0 1/7: Add vertico-ido-delete-char/vertic
From: |
ELPA Syncer |
Subject: |
[elpa] externals/vertico 545b9e0 1/7: Add vertico-ido-delete-char/vertico-ido-delete-word |
Date: |
Fri, 9 Jul 2021 07:57:27 -0400 (EDT) |
branch: externals/vertico
commit 545b9e0e09d1f87bc049f64c5b50dad68b17e53d
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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
- [elpa] externals/vertico updated (862ee77 -> d48e170), ELPA Syncer, 2021/07/09
- [elpa] externals/vertico 545b9e0 1/7: Add vertico-ido-delete-char/vertico-ido-delete-word,
ELPA Syncer <=
- [elpa] externals/vertico e2df484 4/7: README: Link to extensions, ELPA Syncer, 2021/07/09
- [elpa] externals/vertico 86ed39e 2/7: Indent readme, ELPA Syncer, 2021/07/09
- [elpa] externals/vertico 4025874 3/7: README: Document extensions, ELPA Syncer, 2021/07/09
- [elpa] externals/vertico d3d43c7 5/7: vertico-repeat: Add keybinding example, ELPA Syncer, 2021/07/09
- [elpa] externals/vertico d48e170 7/7: README: Typos, ELPA Syncer, 2021/07/09
- [elpa] externals/vertico 673fe30 6/7: Add version header to allow installation via package.el, ELPA Syncer, 2021/07/09