emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/vertico d4a97ef 2/6: Rename vertico-ido to vertico-dire


From: ELPA Syncer
Subject: [elpa] externals/vertico d4a97ef 2/6: Rename vertico-ido to vertico-directory
Date: Fri, 9 Jul 2021 10:57:17 -0400 (EDT)

branch: externals/vertico
commit d4a97ef10d9287ef81dc5f8ab617a0c9d49ac2bc
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Rename vertico-ido to vertico-directory
---
 README.org                                         |  2 +-
 .../{vertico-ido.el => vertico-directory.el}       | 36 ++++++++++++----------
 2 files changed, 21 insertions(+), 17 deletions(-)

diff --git a/README.org b/README.org
index 3c17959..4e54b39 100644
--- a/README.org
+++ b/README.org
@@ -154,7 +154,7 @@
 
   - 
[[https://github.com/minad/vertico/blob/main/extensions/horizontico.el][horizontico.el]]:
 HORIZONTal Interactive COmpletion
   - 
[[https://github.com/minad/vertico/blob/main/extensions/vertico-buffer.el][vertico-buffer.el]]:
 Offers =vertico-buffer-mode= to display Vertico in a separate buffer
-  - 
[[https://github.com/minad/vertico/blob/main/extensions/vertico-ido.el][vertico-ido.el]]:
 Commands for Ido-like directory navigation
+  - 
[[https://github.com/minad/vertico/blob/main/extensions/vertico-directory.el][vertico-directory.el]]:
 Commands for Ido-like directory navigation
   - 
[[https://github.com/minad/vertico/blob/main/extensions/vertico-repeat.el][vertico-repeat.el]]:
 The command =vertico-repeate= repeats the last completion session
   - 
[[https://github.com/minad/vertico/blob/main/extensions/vertico-reverse.el][vertico-reverse.el]]:
 Offers =vertico-reverse-mode=, which reverses the display
 
diff --git a/extensions/vertico-ido.el b/extensions/vertico-directory.el
similarity index 67%
rename from extensions/vertico-ido.el
rename to extensions/vertico-directory.el
index 4dc592b..6031265 100644
--- a/extensions/vertico-ido.el
+++ b/extensions/vertico-directory.el
@@ -1,4 +1,4 @@
-;;; vertico-ido.el --- Provide Ido-like commands for Vertico -*- 
lexical-binding: t -*-
+;;; vertico-directory.el --- Ido-like direction navigation for Vertico -*- 
lexical-binding: t -*-
 
 ;; Copyright (C) 2021  Free Software Foundation, Inc.
 
@@ -22,16 +22,18 @@
 ;;; Commentary:
 
 ;; This package is a Vertico extension, which provides Ido-like
-;; commands. The commands can be bound in the `vertico-map'.
+;; directory navigation commands. The commands can be bound in the
+;; `vertico-map'.
 ;;
-;; (define-key vertico-map "\d" #'vertico-ido-delete-char)
-;; (define-key vertico-map "\M-\d" #'vertico-ido-delete-word)
+;; (define-key vertico-map "\r" #'vertico-directory-enter)
+;; (define-key vertico-map "\d" #'vertico-directory-delete-char)
+;; (define-key vertico-map "\M-\d" #'vertico-directory-delete-word)
 
 ;;; Code:
 
 (require 'vertico)
 
-(defun vertico-ido--completing-file-p ()
+(defun vertico-directory--completing-file-p ()
   "Return non-nil when completing file names."
   (eq 'file
       (completion-metadata-get
@@ -43,19 +45,21 @@
        'category)))
 
 ;;;###autoload
-(defun vertico-ido-exit ()
-  "Exit completion with current candidate or insert directory."
+(defun vertico-directory-enter ()
+  "Enter directory or exit completion with current candidate."
   (interactive)
   (if (and (>= vertico--index 0)
            (string-suffix-p "/" (vertico--candidate))
-           (vertico-ido--completing-file-p))
+           (vertico-directory--completing-file-p))
       (vertico-insert)
     (vertico-exit)))
 
-(defun vertico-ido--delete-directory ()
+;;;###autoload
+(defun vertico-directory-up ()
   "Delete directory before point."
+  (interactive)
   (when (and (eq (char-before) ?/)
-             (vertico-ido--completing-file-p))
+             (vertico-directory--completing-file-p))
     (save-excursion
       (goto-char (1- (point)))
       (when (search-backward "/" (point-min) t)
@@ -63,20 +67,20 @@
     t))
 
 ;;;###autoload
-(defun vertico-ido-delete-char ()
+(defun vertico-directory-delete-char ()
   "Delete directory or char before point."
   (interactive)
-  (unless (vertico-ido--delete-directory)
+  (unless (vertico-directory-up)
     (call-interactively #'backward-delete-char)))
 
 ;;;###autoload
-(defun vertico-ido-delete-word ()
+(defun vertico-directory-delete-word ()
   "Delete directory or word before point."
   (interactive)
-  (unless (vertico-ido--delete-directory)
+  (unless (vertico-directory-up)
     (let ((pt (point)))
       (forward-word -1)
       (delete-region pt (point)))))
 
-(provide 'vertico-ido)
-;;; vertico-ido.el ends here
+(provide 'vertico-directory)
+;;; vertico-directory.el ends here



reply via email to

[Prev in Thread] Current Thread [Next in Thread]