c7254e7bdc
+ enable lexical-scope everywhere (lexical-binding = t): ~5-10% faster startup; ~5-20% general boost + reduce consing, function calls & garbage collection by preferring cl-loop & dolist over lambda closures (for mapc[ar], add-hook, and various cl-lib filter/map/reduce functions) -- where possible + prefer functions with dedicated opcodes, like assq (see byte-defop's in bytecomp.el for more) + prefer pcase & cond (faster) over cl-case + general refactor for code readability + ensure naming & style conventions are adhered to + appease byte-compiler by marking unused variables with underscore + defer minor mode activation to after-init, emacs-startup or window-setup hooks; a customization opportunity for users + ensures custom functionality won't interfere with startup.
103 lines
3.6 KiB
EmacsLisp
103 lines
3.6 KiB
EmacsLisp
;;; completion/ivy/config.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +ivy-task-tags
|
|
'(("TODO" . warning)
|
|
("FIXME" . error))
|
|
"An alist of tags for `+ivy/tasks' to include in its search, whose CDR is the
|
|
face to render it with.")
|
|
|
|
(defmacro +ivy-do-action! (action)
|
|
"A factory function that returns an interactive lamba that sets the current
|
|
ivy action and immediately runs it on the current candidate (ending the ivy
|
|
session)."
|
|
`(lambda ()
|
|
(interactive)
|
|
(ivy-set-action ,action)
|
|
(setq ivy-exit 'done)
|
|
(exit-minibuffer)))
|
|
|
|
|
|
;;
|
|
;; Packages
|
|
;;
|
|
|
|
(def-package! ivy
|
|
:demand t
|
|
:config
|
|
(setq ivy-height 12
|
|
ivy-do-completion-in-region nil
|
|
ivy-wrap t
|
|
ivy-fixed-height-minibuffer t
|
|
projectile-completion-system 'ivy
|
|
smex-completion-method 'ivy
|
|
;; Don't use ^ as initial input
|
|
ivy-initial-inputs-alist nil
|
|
;; highlight til EOL
|
|
ivy-format-function #'ivy-format-function-line
|
|
;; disable magic slash on non-match
|
|
ivy-magic-slash-non-match-action nil)
|
|
|
|
(after! magit (setq magit-completing-read-function #'ivy-completing-read))
|
|
(after! yasnippet (push #'+ivy-yas-prompt yas-prompt-functions))
|
|
|
|
(add-hook 'window-setup-hook #'ivy-mode)
|
|
|
|
(map! :map ivy-mode-map
|
|
[remap describe-face] #'counsel-describe-face
|
|
[remap find-file] #'counsel-find-file
|
|
[remap switch-to-buffer] #'+ivy/switch-buffer
|
|
[remap persp-switch-to-buffer] #'+ivy/switch-workspace-buffer
|
|
[remap recentf] #'counsel-recentf
|
|
[remap imenu] #'counsel-imenu
|
|
[remap bookmark-jump] #'counsel-bookmark
|
|
[remap projectile-switch-project] #'counsel-projectile-switch-project
|
|
[remap projectile-find-file] #'counsel-projectile-find-file
|
|
[remap imenu-anywhere] #'ivy-imenu-anywhere
|
|
[remap execute-extended-command] #'counsel-M-x
|
|
[remap describe-function] #'counsel-describe-function
|
|
[remap describe-variable] #'counsel-describe-variable
|
|
[remap describe-face] #'counsel-describe-face)
|
|
|
|
(when (featurep! :feature workspaces)
|
|
(nconc ivy-sort-functions-alist
|
|
'((persp-kill-buffer . nil)
|
|
(persp-remove-buffer . nil)
|
|
(persp-add-buffer . nil)
|
|
(persp-switch . nil)
|
|
(persp-window-switch . nil)
|
|
(persp-frame-switch . nil)
|
|
(+workspace/switch-to . nil)
|
|
(+workspace/delete . nil)))))
|
|
|
|
|
|
(def-package! swiper :commands (swiper swiper-all))
|
|
|
|
|
|
(def-package! counsel
|
|
:after ivy
|
|
:config
|
|
(require 'counsel-projectile)
|
|
(setq counsel-find-file-ignore-regexp "\\(?:^[#.]\\)\\|\\(?:[#~]$\\)\\|\\(?:^Icon?\\)")
|
|
|
|
;; Configure `counsel-rg', `counsel-ag' & `counsel-pt'
|
|
(set! :popup 'ivy-occur-grep-mode :size (+ 2 ivy-height) :regexp t :autokill t)
|
|
(dolist (cmd '(counsel-ag counsel-rg counsel-pt))
|
|
(ivy-add-actions
|
|
cmd
|
|
'(("O" +ivy-git-grep-other-window-action "open in other window"))))
|
|
|
|
;; 1. Remove character limit from `counsel-ag-function'
|
|
;; 2. Disable ivy's over-zealous parentheses quoting behavior (if i want
|
|
;; literal parentheses, I'll escape them myself).
|
|
;; 3. This may need to be updated frequently, to meet changes upstream
|
|
;; 4. counsel-ag, counsel-rg and counsel-pt all use this function
|
|
(advice-add #'counsel-ag-function :override #'+ivy*counsel-ag-function))
|
|
|
|
|
|
;; Used by `counsel-M-x'
|
|
(def-package! smex
|
|
:commands (smex smex-major-mode-commands)
|
|
:config
|
|
(setq smex-save-file (concat doom-cache-dir "/smex-items"))
|
|
(smex-initialize))
|
|
|