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

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

[nongnu] elpa/crux bcbfdec 048/112: Don't assume ido when offering files


From: ELPA Syncer
Subject: [nongnu] elpa/crux bcbfdec 048/112: Don't assume ido when offering files from recentf (#33)
Date: Wed, 11 Aug 2021 09:57:51 -0400 (EDT)

branch: elpa/crux
commit bcbfdec127b71605c672a49f2d9d256a06b5e063
Author: Wilfred Hughes <me@wilfred.me.uk>
Commit: Bozhidar Batsov <bozhidar.batsov@gmail.com>

    Don't assume ido when offering files from recentf (#33)
    
    By using completing read in crux-recentf-find-file, we can support ido,
    helm and ivy users. I've left an alias to avoid breaking current configs.
---
 README.md |  4 ++--
 crux.el   | 10 ++++++----
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/README.md b/README.md
index 0d8b67e..0f45a6f 100644
--- a/README.md
+++ b/README.md
@@ -46,7 +46,7 @@ Command                                             | 
Suggested Keybinding(s)
 `crux-smart-open-line-above`                        | <kbd>C-S-RET</kbd> or 
<kbd>Super-o</kbd> | Insert an empty line above the current line and indent it 
properly.
 `crux-smart-open-line`                              | <kbd>S-RET</kbd> or 
<kbd>M-o</kbd> | Insert an empty line and indent it properly (as in most IDEs).
 `crux-cleanup-buffer-or-region`                     | <kbd>C-c n</kbd> | Fix 
indentation in buffer and strip whitespace.
-`crux-recentf-ido-find-file`                        | <kbd>C-c f</kbd> or 
<kbd>Super-r</kbd> | Open recently visited file.
+`crux-recentf-find-file`                            | <kbd>C-c f</kbd> or 
<kbd>Super-r</kbd> | Open recently visited file.
 `crux-view-url`                                     | <kbd>C-c u</kbd> | Open 
a new buffer containing the contents of URL.
 `crux-eval-and-replace`                             | <kbd>C-c e</kbd> | Eval 
a bit of Emacs Lisp code and replace it with its result.
 `crux-transpose-windows`                            | <kbd>C-x 4 t</kbd> | 
Transpose the buffers between two windows.
@@ -71,7 +71,7 @@ Here's how you'd bind some of the commands to keycombos:
 (global-set-key [remap move-beginning-of-line] #'crux-move-beginning-of-line)
 (global-set-key (kbd "C-c o") #'crux-open-with)
 (global-set-key [(shift return)] #'crux-smart-open-line)
-(global-set-key (kbd "s-r") #'crux-recentf-ido-find-file)
+(global-set-key (kbd "s-r") #'crux-recentf-find-file)
 (global-set-key (kbd "C-<backspace>" #'crux-kill-line-backwards))
 (global-set-key [remap kill-whole-line] #'crux-kill-whole-line)
 ```
diff --git a/crux.el b/crux.el
index 637a50e..157b07b 100644
--- a/crux.el
+++ b/crux.el
@@ -375,15 +375,17 @@ as the current user."
   (interactive)
   (insert (format-time-string "%c" (current-time))))
 
-(defun crux-recentf-ido-find-file ()
+(defun crux-recentf-find-file ()
   "Find a recent file using ido."
   (interactive)
-  (let ((file (ido-completing-read "Choose recent file: "
-                                   (mapcar #'abbreviate-file-name recentf-list)
-                                   nil t)))
+  (let ((file (completing-read "Choose recent file: "
+                               (mapcar #'abbreviate-file-name recentf-list)
+                               nil t)))
     (when file
       (find-file file))))
 
+(defalias 'crux-recentf-ido-find-file 'crux-recentf-find-file)
+
 ;; modified from https://www.emacswiki.org/emacs/TransposeWindows
 (defun crux-transpose-windows (arg)
   "Transpose the buffers shown in two windows.



reply via email to

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