blob: 8173353334d8180cbb9787a73732d6fcb7539952 (
plain)
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
;;; ravi-init-ido.el --- ido initialization
;; Copyright (C) 2013
;; Author: <ravi@nero.lan>
;; Keywords:
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; Ido initialization
;;; Code:
;; Almost all of the code below is stolen from jwiegley's .emacs.d.
(use-package ibuffer
:bind ("C-x C-b" . ibuffer))
;;;_ , ido
(use-package ido
:defines (ido-cur-item
ido-require-match
ido-selected
ido-final-text
ido-show-confirm-message)
:init
(ido-mode 1)
:config
(progn
(use-package ido-hacks
:init
(ido-hacks-mode 1)
:ensure t
)
(use-package flx-ido
:init
(progn
(use-package flx
:ensure t)
(flx-ido-mode 1)
)
:ensure t
)
(setq ido-use-filename-at-point 'guess)
(setq ido-use-virtual-buffers t)
(setq ido-create-new-buffer 'always)
(use-package ido-ubiquitous
:init
(ido-ubiquitous-mode t)
:ensure t
)
(defun ido-smart-select-text ()
"Select the current completed item. Do NOT descend into directories."
(interactive)
(when (and (or (not ido-require-match)
(if (memq ido-require-match
'(confirm confirm-after-completion))
(if (or (eq ido-cur-item 'dir)
(eq last-command this-command))
t
(setq ido-show-confirm-message t)
nil))
(ido-existing-item-p))
(not ido-incomplete-regexp))
(when ido-current-directory
(setq ido-exit 'takeprompt)
(unless (and ido-text (= 0 (length ido-text)))
(let ((match (ido-name (car ido-matches))))
(throw 'ido
(setq ido-selected
(if match
(replace-regexp-in-string "/\\'" "" match)
ido-text)
ido-text ido-selected
ido-final-text ido-text)))))
(exit-minibuffer)))
(add-hook 'ido-minibuffer-setup-hook
#'(lambda ()
(bind-key "<return>" 'ido-smart-select-text
ido-file-completion-map)))
(defun ido-switch-buffer-tiny-frame (buffer)
(interactive (list (ido-read-buffer "Buffer: " nil t)))
(with-selected-frame
(make-frame '((width . 80)
(height . 22)
(left-fringe . 0)
(right-fringe . 0)
(vertical-scroll-bars . nil)
(unsplittable . t)
(has-modeline-p . nil)
;;(background-color . "grey80")
(minibuffer . nil)))
(switch-to-buffer buffer)
(set (make-local-variable 'mode-line-format) nil)))
(bind-key "C-x 5 t" 'ido-switch-buffer-tiny-frame)))
(use-package smex
:init
(global-set-key [remap execute-extended-command] 'smex)
:ensure t
)
(provide 'ravi-init-ido)
;;; ravi-init-ido.el ends here
|
