102 lines
3.8 KiB
EmacsLisp
102 lines
3.8 KiB
EmacsLisp
|
(mapc 'my/install-package
|
||
|
|
'(ido-ubiquitous ; enhances ido-everywhere
|
||
|
|
ido-vertical-mode ; vertical listing for ido completion
|
||
|
|
flx-ido ; enhances ido's flex matching
|
||
|
|
projectile ; project search (like ctrlp)
|
||
|
|
helm ; augments search of, well, anything
|
||
|
|
grizzl ; better searching engine for projectile
|
||
|
|
ag ; the_silver_searcher support
|
||
|
|
dired+
|
||
|
|
))
|
||
|
|
|
||
|
|
(setq dired-recursive-deletes 'always
|
||
|
|
dired-recursive-copies 'always
|
||
|
|
|
||
|
|
;; if there is a dired buffer displayed in the next window, use its
|
||
|
|
;; current subdir, instead of the current subdir of this dired buffer
|
||
|
|
dired-dwim-target t)
|
||
|
|
|
||
|
|
(add-hook 'dired-load-hook (lambda() (use-package dired+)))
|
||
|
|
|
||
|
|
(use-package ag :defer t)
|
||
|
|
(use-package helm :defer t)
|
||
|
|
(use-package neotree :commands (neotree-show neotree-hide neotree-toggle))
|
||
|
|
|
||
|
|
(use-package projectile
|
||
|
|
:diminish projectile-mode
|
||
|
|
:config
|
||
|
|
(progn (projectile-global-mode)
|
||
|
|
(setq projectile-completion-system 'grizzl
|
||
|
|
projectile-enable-caching t)))
|
||
|
|
|
||
|
|
(use-package ido
|
||
|
|
:init
|
||
|
|
(progn
|
||
|
|
;; ido remaps its keys every time it's invoked, this screws with
|
||
|
|
;; custom mappings. So we've gotta neuter ido.
|
||
|
|
(defun ido-init-completion-maps ())
|
||
|
|
|
||
|
|
(setq ido-common-completion-map (make-sparse-keymap))
|
||
|
|
(setq ido-file-dir-completion-map (make-sparse-keymap))
|
||
|
|
(setq ido-file-completion-map (make-sparse-keymap))
|
||
|
|
(setq ido-buffer-completion-map (make-sparse-keymap))
|
||
|
|
|
||
|
|
(set-keymap-parent ido-common-completion-map minibuffer-local-map)
|
||
|
|
(set-keymap-parent ido-file-dir-completion-map ido-common-completion-map)
|
||
|
|
(set-keymap-parent ido-file-completion-map ido-file-dir-completion-map)
|
||
|
|
(set-keymap-parent ido-buffer-completion-map ido-common-completion-map))
|
||
|
|
:config
|
||
|
|
(progn
|
||
|
|
(use-package ido-ubiquitous)
|
||
|
|
(use-package ido-vertical-mode)
|
||
|
|
|
||
|
|
(ido-mode 1)
|
||
|
|
(ido-vertical-mode 1)
|
||
|
|
(ido-everywhere 1)
|
||
|
|
|
||
|
|
(use-package flx-ido :init (flx-ido-mode 1))
|
||
|
|
|
||
|
|
(add-to-list 'ido-ignore-files "\\`.DS_Store\\'")
|
||
|
|
(setq 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)
|
||
|
|
|
||
|
|
;; (add-to-list 'ido-ubiquitous-default-function-overrides '(disable exact "evil-ex"))
|
||
|
|
|
||
|
|
;; Filters ido-matches setting acronynm matches in front of the results
|
||
|
|
(defadvice ido-set-matches-1 (after ido-smex-acronym-matches activate)
|
||
|
|
(if (and (fboundp 'smex-already-running) (smex-already-running)
|
||
|
|
(> (length ido-text) 1))
|
||
|
|
(let ((regex (concat "^" (mapconcat 'char-to-string ido-text "[^-]*-")))
|
||
|
|
(acronym-matches (list))
|
||
|
|
(remove-regexes '("-menu-")))
|
||
|
|
;; Creating the list of the results to be set as first
|
||
|
|
(dolist (item items)
|
||
|
|
(if (string-match (concat regex "[^-]*$") item) ;; strict match
|
||
|
|
(add-to-list 'acronym-matches item)
|
||
|
|
(if (string-match regex item) ;; appending relaxed match
|
||
|
|
(add-to-list 'acronym-matches item t))))
|
||
|
|
|
||
|
|
;; Filtering ad-return-value
|
||
|
|
(dolist (to_remove remove-regexes)
|
||
|
|
(setq ad-return-value
|
||
|
|
(delete-if (lambda (item)
|
||
|
|
(string-match to_remove item))
|
||
|
|
ad-return-value)))
|
||
|
|
|
||
|
|
;; Creating resulting list
|
||
|
|
(setq ad-return-value
|
||
|
|
(append acronym-matches
|
||
|
|
ad-return-value))
|
||
|
|
|
||
|
|
(delete-dups ad-return-value)
|
||
|
|
(reverse ad-return-value))))))
|
||
|
|
|
||
|
|
;;
|
||
|
|
(provide 'init-project)
|