Commit | Line | Data |
---|---|---|
4c05c418 AB |
1 | ;;; bandali-ido.el --- bandali's Ido setup -*- lexical-binding: t; -*- |
2 | ||
3 | ;; Copyright (C) 2018-2020 Amin Bandali | |
4 | ||
5 | ;; Author: Amin Bandali <bandali@gnu.org> | |
6 | ;; Keywords: convenience, matching | |
7 | ||
8 | ;; This program is free software; you can redistribute it and/or modify | |
9 | ;; it under the terms of the GNU General Public License as published by | |
10 | ;; the Free Software Foundation, either version 3 of the License, or | |
11 | ;; (at your option) any later version. | |
12 | ||
13 | ;; This program is distributed in the hope that it will be useful, | |
14 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | ;; GNU General Public License for more details. | |
17 | ||
18 | ;; You should have received a copy of the GNU General Public License | |
19 | ;; along with this program. If not, see <https://www.gnu.org/licenses/>. | |
20 | ||
21 | ;;; Commentary: | |
22 | ||
23 | ;; My (currently unused) Ido setup. | |
24 | ||
25 | ;;; Code: | |
26 | ||
679463c6 AB |
27 | (use-package ido |
28 | :demand | |
29 | :bind | |
30 | (:map ido-common-completion-map | |
31 | ([escape] . minibuffer-keyboard-quit) | |
32 | ("DEL" . b/ido-backspace)) | |
33 | :config | |
34 | (require 'delsel) | |
35 | (defun b/ido-backspace () | |
36 | "Forward to `backward-delete-char'. On error (read-only), quit." | |
37 | (interactive) | |
38 | (condition-case nil | |
39 | (backward-delete-char 1) | |
40 | (error | |
41 | (minibuffer-keyboard-quit)))) | |
42 | (ido-mode 1) | |
43 | (ido-everywhere 1) | |
44 | :custom | |
45 | (ido-enable-flex-matching t) | |
46 | ;; (ido-enable-regexp t) | |
47 | ;; (ido-enable-prefix t) | |
48 | (ido-max-window-height 10) | |
49 | (ido-use-virtual-buffers t)) | |
50 | ||
51 | (use-package ido-vertical-mode | |
52 | :defer 0.3 | |
53 | :config | |
54 | (ido-vertical-mode 1) | |
55 | :custom | |
56 | (ido-vertical-define-keys 'C-n-C-p-up-and-down) | |
57 | (ido-vertical-show-count t)) | |
58 | ||
59 | (use-package ido-completing-read+ | |
60 | :defer 0.3 | |
61 | :after ido | |
62 | :config | |
63 | (ido-ubiquitous-mode 1)) | |
64 | ||
65 | (use-package crm-custom | |
66 | :defer 0.3 | |
67 | :config | |
68 | (crm-custom-mode 1)) | |
69 | ||
70 | (use-package icomplete | |
71 | :defer 0.3 | |
72 | :config | |
73 | (icomplete-mode 1)) | |
74 | ||
75 | (provide 'bandali-ido) | |
4c05c418 | 76 | ;;; bandali-ido.el ends here |