/
my-ido.el
39 lines (32 loc) · 1.56 KB
/
my-ido.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
;; Ido
(require 'ido)
(ido-mode 1)
;; Display results vertically
(require 'ido-vertical-mode)
(ido-vertical-mode)
(setq ido-enable-prefix nil
ido-enable-flex-matching t
ido-case-fold t ;; ignore case
ido-auto-merge-work-directories-length -1 ;; disable auto-merge (it's confusing)
ido-create-new-buffer 'always ;; create new files easily
ido-use-filename-at-point nil ;; don't try to be smart about what I want
)
;; I like visual matching (colors)
(setq ido-use-faces t)
;; Ido buffer intuitive navigation
(add-hook 'ido-setup-hook '(lambda ()
(define-key ido-completion-map "\C-h" 'ido-delete-backward-updir)
(define-key ido-completion-map "\C-n" 'ido-next-match)
(define-key ido-completion-map "\C-f" 'ido-next-match)
(define-key ido-completion-map "\C-p" 'ido-prev-match)
(define-key ido-completion-map "\C-b" 'ido-prev-match)
(define-key ido-completion-map " " 'ido-exit-minibuffer)
))
;; Use C-w to go back up a dir to better match normal usage of C-w
;; - insert current file name with C-x C-w instead.
(define-key ido-file-completion-map (kbd "C-w") 'ido-delete-backward-updir)
(define-key ido-file-completion-map (kbd "C-x C-w") 'ido-copy-current-file-name)
;; disable auto searching for files unless called explicitly
(setq ido-auto-merge-delay-time 99999)
;; Ignore .DS_Store files with ido mode
(add-to-list 'ido-ignore-files "\\.DS_Store")