Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (use-package icomplete
- :ensure nil
- :init
- (setq icomplete-show-matches-on-no-input t
- icomplete-hide-common-prefix nil
- icomplete-prospects-height 5
- read-file-name-completion-ignore-case t
- read-buffer-completion-ignore-case t
- completion-ignore-case t
- completions-format 'vertical)
- (when (> emacs-major-version 26)
- (setq completion-styles
- '(basic flex partial-completion substring)
- completion-category-overrides
- '((file (styles basic flex substring))))
- (setq completion-styles
- '(basic partial-completion substring)
- completion-category-overrides
- '((file (styles basic substring)))))
- (icomplete-mode 1))
- (use-package ido
- :ensure nil
- :init
- (setq ido-everywhere t
- ido-ignore-buffers
- '("\\` " "^\\*ESS\\*" "^\\*Messages\\*" "^\\*Help\\*" "^\\*Buffer"
- "^\\*.*Completions\\*$" "^\\*Ediff" "^\\*tramp" "^\\*cvs-"
- "_region_" " output\\*$" "^TAGS$" "^\*Ido")
- ido-ignore-extensions t
- ido-use-faces nil
- ido-confirm-unique-completion t
- ido-case-fold t
- ido-enable-tramp-completion nil
- ido-enable-flex-matching t
- ido-use-filename-at-point 'guess
- ido-create-new-buffer 'always
- ido-enable-tramp-completion t
- ido-enable-last-directory-history t
- ido-save-directory-list-file (concat dryad-cache-dir "ido.last"))
- (unless (member "\\`.DS_Store$" ido-ignore-files)
- (push "\\`.DS_Store$" ido-ignore-files)
- (push "Icon\\?$" ido-ignore-files))
- :config
- (general-def (ido-common-completion-map ido-completion-map ido-file-completion-map)
- "\C-n" #'ido-next-match
- "\C-p" #'ido-prev-match
- "\C-w" #'ido-delete-backward-word-updir
- ;; Go to $HOME with ~
- "~" (lambda () (interactive)
- (if (looking-back "/" (point-min))
- (insert "~/")
- (call-interactively #'self-insert-command))))
- (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)
- (cl-loop for x in ido-temp-list
- if (char-equal (string-to-char x) ?.)
- collect x)))
- (advice-add #'ido-sort-mtime :override #'+ido*sort-mtime)
- (+add-hook (ido-make-file-list ido-make-dir-list) #'+ido*sort-mtime)
- (use-package ido-completing-read+
- :hook (ido-mode . ido-ubiquitous-mode)
- :config
- (ido-ubiquitous-mode 1))
- (use-package ido-vertical-mode
- :hook (ido-mode . ido-vertical-mode)
- :init
- (setq ido-vertical-define-keys 'C-n-C-p-up-down-left-right)
- :config
- (ido-vertical-mode 1))
- (use-package flx-ido
- :hook (ido-mode . flx-ido-mode)
- :config
- (flx-ido-mode +1)))
- (use-package amx
- :bind (("M-x" . amx)
- ("M-X" . amx-major-mode-commands))
- :init
- (setq amx-save-fil (concat dryad-cache-dir "amx-items")
- amx-ignorned-command-matchers nil)
- :config
- (amx-mode 1))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement