emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor ido module; add ido-mode-hook

Browse source
This commit is contained in:
Henrik Lissner 2020-04-06 21:02:55 -04:00 • committed by GitHub
parent d5673cb29e
commit fd6b85a7d2
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 48 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

82
modules/completion/ido/config.el
View file

@ -1,50 +1,64 @@
;;; completion/ido/config.el -*- lexical-binding: t; -*- ;;; completion/ido/config.el -*- lexical-binding: t; -*-
(defvar ido-mode-hook nil
"List of hooks to run when `ido-mode' is activated.")
;;
;;; Packages
(use-package! ido (use-package! ido
:after-call pre-command-hook :after-call pre-command-hook
:hook (ido-mode . ido-everywhere)
:hook (ido-mode . ido-ubiquitous-mode)
:preface
;; HACK `ido' is a really old package. It defines `ido-mode' manually and
;; doesn't define a hook, so we define one for it.")
(defadvice! +ido-run-hooks-a (&rest _)
:after #'ido-mode
(run-hooks 'ido-mode-hook))
:init
(setq ido-save-directory-list-file (concat doom-cache-dir "ido.last"))
:config :config
(pushnew! ido-ignore-files "\\`.DS_Store$" "Icon\\?$")
(setq ido-ignore-buffers (setq ido-ignore-buffers
'("\\` " "^\\*ESS\\*" "^\\*Messages\\*" "^\\*Help\\*" "^\\*Buffer" '("\\` " "^\\*ESS\\*" "^\\*Messages\\*" "^\\*[Hh]elp" "^\\*Buffer"
"^\\*.*Completions\\*$" "^\\*Ediff" "^\\*tramp" "^\\*cvs-" "^\\*.*Completions\\*$" "^\\*Ediff" "^\\*tramp" "^\\*cvs-" "_region_"
"_region_" " output\\*$" "^TAGS$" "^\*Ido") " output\\*$" "^TAGS$" "^\*Ido")
ido-auto-merge-work-directories-length -1 ido-auto-merge-work-directories-length -1
ido-confirm-unique-completion t ido-confirm-unique-completion t
ido-case-fold t ido-case-fold t
ido-enable-tramp-completion nil
ido-enable-flex-matching t
ido-create-new-buffer 'always ido-create-new-buffer 'always
ido-enable-tramp-completion t ido-enable-flex-matching t)
ido-enable-last-directory-history t
ido-save-directory-list-file (concat doom-cache-dir "ido.last"))
(unless (member "\\`.DS_Store$" ido-ignore-files) (map! :map (ido-common-completion-map ido-file-completion-map)
(push "\\`.DS_Store$" ido-ignore-files) "C-w" #'ido-delete-backward-word-updir
(push "Icon\\?$" ido-ignore-files)) :map ido-common-completion-map
"C-n" #'ido-next-match
"C-p" #'ido-prev-match
[down] #'ido-next-match
[up] #'ido-prev-match
:map ido-file-completion-map
;; Go to $HOME with ~
"~" (λ! (if (looking-back "/" (point-min))
(insert "~/")
(call-interactively #'self-insert-command))))
(defun +ido-init-h () (ido-mode +1))
(define-key! (ido-common-completion-map ido-completion-map ido-file-completion-map)
"C-n" #'ido-next-match
"C-p" #'ido-prev-match
"<down>" #'ido-next-match
"<up>" #'ido-prev-match
"TAB" #'ido-exit-minibuffer
"C-w" #'ido-delete-backward-word-updir
;; Go to $HOME with ~
"~" (λ! (if (looking-back "/" (point-min))
(insert "~/")
(call-interactively #'self-insert-command)))))
;;
(add-transient-hook! 'ido-setup-hook (+ido-init-h))
(ido-mode 1) (use-package! ido-vertical-mode
(ido-everywhere 1)) :hook (ido-mode . ido-vertical-mode)
:config (setq ido-vertical-show-count t))
(after! ido
(setq ido-vertical-show-count t)
(crm-custom-mode +1) (use-package! ido-sort-mtime
(ido-ubiquitous-mode 1) :hook (ido-mode . ido-sort-mtime-mode))
(ido-sort-mtime-mode 1)
(ido-vertical-mode 1)
(flx-ido-mode +1)) (use-package! crm-custom
:hook (ido-mode . crm-custom-mode))
(use-package! flx-ido
:hook (ido-mode . flx-ido-mode))