2017-02-20 07:55:11 +08:00
|
|
|
;;; emacs/ido/config.el
|
|
|
|
|
|
2017-02-23 13:06:12 +08:00
|
|
|
(def-package! ido
|
2017-02-20 07:55:11 +08:00
|
|
|
:init
|
|
|
|
|
(setq ido-ignore-buffers
|
|
|
|
|
'("\\` " "^\\*ESS\\*" "^\\*Messages\\*" "^\\*Help\\*" "^\\*Buffer"
|
|
|
|
|
"^\\*.*Completions\\*$" "^\\*Ediff" "^\\*tramp" "^\\*cvs-"
|
|
|
|
|
"_region_" " output\\*$" "^TAGS$" "^\*Ido")
|
|
|
|
|
ido-use-faces nil
|
|
|
|
|
ido-confirm-unique-completion t
|
|
|
|
|
ido-case-fold t
|
|
|
|
|
ido-enable-tramp-completion nil
|
|
|
|
|
ido-enable-flex-matching t
|
|
|
|
|
ido-create-new-buffer 'always
|
|
|
|
|
ido-enable-tramp-completion t
|
|
|
|
|
ido-enable-last-directory-history t
|
|
|
|
|
ido-save-directory-list-file (concat doom-cache-dir "ido.last"))
|
|
|
|
|
|
|
|
|
|
:config
|
|
|
|
|
(push "\\`.DS_Store$" ido-ignore-files)
|
|
|
|
|
(push "Icon\\?$" ido-ignore-files)
|
|
|
|
|
|
|
|
|
|
(ido-mode 1)
|
|
|
|
|
(ido-everywhere 1)
|
|
|
|
|
(require 'ido-ubiquitous)
|
|
|
|
|
|
2017-02-23 13:06:12 +08:00
|
|
|
(add-hook! ido-setup
|
2017-02-20 07:55:11 +08:00
|
|
|
(require 'ido-vertical-mode)
|
|
|
|
|
(require 'flx-ido)
|
|
|
|
|
(require 'crm-custom)
|
|
|
|
|
|
2017-02-23 13:06:12 +08:00
|
|
|
(map! :map (ido-common-completion-map ido-completion-map ido-file-completion-map)
|
2017-02-20 07:55:11 +08:00
|
|
|
"C-n" 'ido-next-match
|
|
|
|
|
"C-p" 'ido-prev-match
|
|
|
|
|
"C-w" 'ido-delete-backward-word-updir))
|
|
|
|
|
|
|
|
|
|
(defun +ido*sort-mtime ()
|
|
|
|
|
"Sort ido filelist by mtime instead of alphabetically."
|
|
|
|
|
(setq ido-temp-list
|
|
|
|
|
(sort ido-temp-list
|
|
|
|
|
(lambda (a b)
|
|
|
|
|
(time-less-p
|
|
|
|
|
(sixth (file-attributes (concat ido-current-directory b)))
|
|
|
|
|
(sixth (file-attributes (concat ido-current-directory a)))))))
|
|
|
|
|
(ido-to-end ;; move . files to end (again)
|
|
|
|
|
(delq nil (mapcar
|
|
|
|
|
(lambda (x) (and (char-equal (string-to-char x) ?.) x))
|
|
|
|
|
ido-temp-list))))
|
|
|
|
|
(advice-add 'ido-sort-mtime :override '+ido*sort-mtime)
|
2017-02-23 13:06:12 +08:00
|
|
|
(add-hook! (ido-make-file-list ido-make-dir-list) '+ido*sort-mtime)
|
2017-02-20 07:55:11 +08:00
|
|
|
|
|
|
|
|
(defun +ido|setup-home-keybind ()
|
|
|
|
|
"Go to $HOME with ~"
|
|
|
|
|
(define-key ido-file-completion-map (kbd "~")
|
2017-02-23 13:06:12 +08:00
|
|
|
(λ! (if (looking-back "/")
|
2017-02-20 07:55:11 +08:00
|
|
|
(insert "~/")
|
|
|
|
|
(call-interactively 'self-insert-command)))))
|
|
|
|
|
(add-hook 'ido-setup-hook '+ido|setup-home-keybind))
|
|
|
|
|
|
|
|
|
|
|
2017-02-23 13:06:12 +08:00
|
|
|
(def-package! ido-ubiquitous :config (ido-ubiquitous-mode 1))
|
2017-02-20 07:55:11 +08:00
|
|
|
|
2017-02-23 13:06:12 +08:00
|
|
|
(def-package! ido-vertical-mode :config (ido-vertical-mode 1))
|
2017-02-20 07:55:11 +08:00
|
|
|
|
2017-02-23 13:06:12 +08:00
|
|
|
(def-package! flx-ido :config (flx-ido-mode +1))
|
2017-02-20 07:55:11 +08:00
|
|
|
|
2017-02-23 13:06:12 +08:00
|
|
|
(def-package! crm-custom :config (crm-custom-mode +1))
|
