[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/embark dbaa43a 1/6: Add embark-history-remove
From: |
ELPA Syncer |
Subject: |
[elpa] externals/embark dbaa43a 1/6: Add embark-history-remove |
Date: |
Tue, 16 Nov 2021 16:57:16 -0500 (EST) |
branch: externals/embark
commit dbaa43adf6ad35d81e30bfd6844b7235a70ade65
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Add embark-history-remove
---
embark.el | 25 ++++++++++++++++++++++---
1 file changed, 22 insertions(+), 3 deletions(-)
diff --git a/embark.el b/embark.el
index 4e0025e..b90a0c3 100644
--- a/embark.el
+++ b/embark.el
@@ -472,6 +472,7 @@ arguments and more details."
(bookmark-rename embark--restart)
(delete-file embark--restart)
(embark-recentf-remove embark--restart)
+ (embark-history-remove embark--restart)
(rename-file embark--restart)
(copy-file embark--restart)
(delete-directory embark--restart)
@@ -1141,7 +1142,7 @@ If NESTED is non-nil subkeymaps are not flattened."
(defun embark-completing-read-prompter (keymap update &optional no-default)
"Prompt via completion for a command bound in KEYMAP.
-If NO-DEFAULT is t, no default value is passed to`completing-read'.
+If NO-DEFAULT is t, no default value is passed to`completing-read'.
UPDATE is the indicator update function. It is not used directly
here, but if the user switches to `embark-keymap-prompter', the
@@ -3104,8 +3105,25 @@ When called with a prefix argument OTHER-WINDOW, open
dired in other window."
(defun embark-recentf-remove (file)
"Remove FILE from the list of recent files."
(interactive (list (completing-read "Remove recent file: " recentf-list nil
t)))
+ (embark-history-remove file)
(setq recentf-list (delete (expand-file-name file) recentf-list)))
+(defun embark-history-remove (str)
+ "Remove STR from `minibuffer-history-variable'.
+Many completion UIs sort by history position. This command can be used
+to remove entries from the history, such that they are not sorted closer
+to the top."
+ (interactive
+ (list
+ (completing-read "Remove history item: "
+ (if (eq minibuffer-history-variable t)
+ (user-error "No minibuffer history")
+ (symbol-value minibuffer-history-variable))
+ nil t)))
+ (unless (eq minibuffer-history-variable t)
+ (set minibuffer-history-variable
+ (delete str (symbol-value minibuffer-history-variable)))))
+
(defvar xref-backend-functions)
(defun embark-find-definition (symbol)
@@ -3443,7 +3461,7 @@ and leaves the point to the left of it."
("=" ediff-files)
("e" embark-eshell)
("+" make-directory)
- ("-" embark-recentf-remove)
+ ("\\" embark-recentf-remove)
("I" embark-insert-relative-path)
("W" embark-save-relative-path)
("l" load-file)
@@ -3532,7 +3550,8 @@ and leaves the point to the left of it."
("e" pp-eval-expression)
("a" apropos)
("n" embark-next-symbol)
- ("p" embark-previous-symbol))
+ ("p" embark-previous-symbol)
+ ("\\" embark-history-remove))
(embark-define-keymap embark-face-map
"Keymap for Embark face actions."
- [elpa] externals/embark updated (5182b7e -> edfd0a8), ELPA Syncer, 2021/11/16
- [elpa] externals/embark b8564a9 2/6: Use add-to-list, ELPA Syncer, 2021/11/16
- [elpa] externals/embark dbaa43a 1/6: Add embark-history-remove,
ELPA Syncer <=
- [elpa] externals/embark 376662e 3/6: embark-consult-toc-imenu: Use the imenu category, ELPA Syncer, 2021/11/16
- [elpa] externals/embark 4cb5394 4/6: Adjust naming convention, ELPA Syncer, 2021/11/16
- [elpa] externals/embark 24dd7b1 5/6: Add embark-default-action-overrides for imenu, ELPA Syncer, 2021/11/16
- [elpa] externals/embark edfd0a8 6/6: Merge pull request #404 from minad/remove-from-history, ELPA Syncer, 2021/11/16