branch: elpa/crux
commit bcbfdec127b71605c672a49f2d9d256a06b5e063
Author: Wilfred Hughes <m...@wilfred.me.uk>
Commit: Bozhidar Batsov <bozhidar.bat...@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.
