ad6a3d0f33
featurep! will be renamed modulep! in the future, so it's been deprecated. They have identical interfaces, and can be replaced without issue. featurep! was never quite the right name for this macro. It implied that it had some connection to featurep, which it doesn't (only that it was similar in purpose; still, Doom modules are not features). To undo such implications and be consistent with its namespace (and since we're heading into a storm of breaking changes with the v3 release anyway), now was the best opportunity to begin the transition.
195 lines
7 KiB
EmacsLisp
195 lines
7 KiB
EmacsLisp
;;; completion/helm/config.el -*- lexical-binding: t; -*-
|
|
|
|
;; Posframe (requires +childframe)
|
|
(defvar +helm-posframe-handler #'posframe-poshandler-frame-center
|
|
"The function that determines the location of the childframe.
|
|
It should return a cons cell representing the X and Y coordinates. See
|
|
`posframe-poshandler-frame-center' as a reference.")
|
|
|
|
(defvar +helm-posframe-text-scale 1
|
|
"The text-scale to use in the helm childframe. Set to nil for no scaling.
|
|
Can be negative.")
|
|
|
|
(defvar +helm-posframe-parameters
|
|
'((internal-border-width . 8)
|
|
(width . 0.65)
|
|
(height . 0.35)
|
|
(min-width . 80)
|
|
(min-height . 16))
|
|
"Default parameters for the helm childframe.")
|
|
|
|
;;
|
|
;;; Packages
|
|
|
|
(use-package! helm-mode
|
|
:hook (doom-first-input . helm-mode)
|
|
:init
|
|
(map! [remap apropos] #'helm-apropos
|
|
[remap find-library] #'helm-locate-library
|
|
[remap bookmark-jump] #'helm-bookmarks
|
|
[remap execute-extended-command] #'helm-M-x
|
|
[remap find-file] #'helm-find-files
|
|
[remap locate] #'helm-locate
|
|
[remap imenu] #'helm-semantic-or-imenu
|
|
[remap noop-show-kill-ring] #'helm-show-kill-ring
|
|
[remap persp-switch-to-buffer] #'+helm/workspace-mini
|
|
[remap switch-to-buffer] #'helm-buffers-list
|
|
[remap projectile-find-file] #'+helm/projectile-find-file
|
|
[remap projectile-recentf] #'helm-projectile-recentf
|
|
[remap projectile-switch-project] #'helm-projectile-switch-project
|
|
[remap projectile-switch-to-buffer] #'helm-projectile-switch-to-buffer
|
|
[remap recentf-open-files] #'helm-recentf
|
|
[remap yank-pop] #'helm-show-kill-ring)
|
|
:config
|
|
;; helm is too heavy for `find-file-at-point'
|
|
(add-to-list 'helm-completing-read-handlers-alist (cons #'find-file-at-point nil)))
|
|
|
|
|
|
(use-package! helm
|
|
:after helm-mode
|
|
:preface
|
|
(setq helm-candidate-number-limit 50
|
|
;; Remove extraineous helm UI elements
|
|
helm-display-header-line nil
|
|
helm-mode-line-string nil
|
|
helm-ff-auto-update-initial-value nil
|
|
helm-find-files-doc-header nil
|
|
;; Default helm window sizes
|
|
helm-display-buffer-default-width nil
|
|
helm-display-buffer-default-height 0.25
|
|
;; When calling `helm-semantic-or-imenu', don't immediately jump to
|
|
;; symbol at point
|
|
helm-imenu-execute-action-at-once-if-one nil
|
|
;; disable special behavior for left/right, M-left/right keys.
|
|
helm-ff-lynx-style-map nil)
|
|
|
|
(when (modulep! :editor evil +everywhere)
|
|
(setq helm-default-prompt-display-function #'+helm--set-prompt-display))
|
|
|
|
:init
|
|
(when (modulep! +childframe)
|
|
;; If this is set to 'iconify-top-level then Emacs will be minimized upon
|
|
;; helm completion.
|
|
(setq iconify-child-frame 'make-invisible)
|
|
(setq helm-display-function #'+helm-posframe-display-fn))
|
|
|
|
(let ((fuzzy (modulep! +fuzzy)))
|
|
(setq helm-apropos-fuzzy-match fuzzy
|
|
helm-bookmark-show-location fuzzy
|
|
helm-buffers-fuzzy-matching fuzzy
|
|
helm-ff-fuzzy-matching fuzzy
|
|
helm-file-cache-fuzzy-match fuzzy
|
|
helm-flx-for-helm-locate fuzzy
|
|
helm-imenu-fuzzy-match fuzzy
|
|
helm-lisp-fuzzy-completion fuzzy
|
|
helm-locate-fuzzy-match fuzzy
|
|
helm-projectile-fuzzy-match fuzzy
|
|
helm-recentf-fuzzy-match fuzzy
|
|
helm-semantic-fuzzy-match fuzzy)
|
|
;; Make sure that we have helm-multi-matching or fuzzy matching,
|
|
;; (as prescribed by the fuzzy flag) also in the following cases:
|
|
;;
|
|
;; - helmized commands that use `completion-at-point' and similar functions
|
|
;; - native commands that fall back to `completion-styles' like `helm-M-x'
|
|
;;
|
|
;; However, do not add helm completion styles to the front of
|
|
;; `completion-styles', since that would be overly intrusive. E.g., it
|
|
;; results in `company-capf' returning far to many completion candidates.
|
|
;; Instead, append those styles so that they act as a fallback.
|
|
(add-to-list 'completion-styles (if fuzzy 'flex 'helm) t))
|
|
:config
|
|
(set-popup-rule! "^\\*helm" :vslot -100 :size 0.22 :ttl nil)
|
|
|
|
;; Hide the modeline in helm windows as it serves little purpose.
|
|
(defun +helm--hide-mode-line (&rest _)
|
|
(with-current-buffer (helm-buffer-get)
|
|
(unless helm-mode-line-string
|
|
(hide-mode-line-mode +1))))
|
|
(add-hook 'helm-after-initialize-hook #'+helm--hide-mode-line)
|
|
(advice-add #'helm-display-mode-line :override #'+helm--hide-mode-line)
|
|
(advice-add #'helm-ag-show-status-default-mode-line :override #'ignore)
|
|
|
|
;; Hide minibuffer if `helm-echo-input-in-header-line'
|
|
(add-hook 'helm-minibuffer-set-up-hook #'helm-hide-minibuffer-maybe)
|
|
|
|
;; Use helpful instead of describe-* to display documentation
|
|
(dolist (fn '(helm-describe-variable helm-describe-function))
|
|
(advice-add fn :around #'doom-use-helpful-a)))
|
|
|
|
(use-package! helm-flx
|
|
:when (modulep! +fuzzy)
|
|
:hook (helm-mode . helm-flx-mode)
|
|
:config (helm-flx-mode +1))
|
|
|
|
|
|
(after! helm-rg
|
|
(setq helm-rg-display-buffer-normal-method #'pop-to-buffer)
|
|
(set-popup-rule! "^helm-rg-" :ttl nil :select t :size 0.45)
|
|
(map! :map helm-rg-map
|
|
"C-c C-e" #'helm-rg--bounce)
|
|
(map! :map helm-rg--bounce-mode-map
|
|
"q" #'kill-current-buffer
|
|
"C-c C-c" (cmd! (helm-rg--bounce-dump) (kill-current-buffer))
|
|
"C-x C-c" #'helm-rg--bounce-dump-current-file
|
|
"C-c C-k" #'kill-current-buffer))
|
|
|
|
|
|
;;;###package helm-bookmark
|
|
(setq helm-bookmark-show-location t)
|
|
|
|
|
|
(after! helm-files
|
|
(setq helm-boring-file-regexp-list
|
|
(append (list "\\.projects$" "\\.DS_Store$")
|
|
helm-boring-file-regexp-list)))
|
|
|
|
|
|
(defvar helm-generic-files-map (make-sparse-keymap))
|
|
(after! helm-locate
|
|
(when (and IS-MAC
|
|
(null helm-locate-command)
|
|
(executable-find "mdfind"))
|
|
(setq helm-locate-command "mdfind -name %s"))
|
|
(set-keymap-parent helm-generic-files-map helm-map))
|
|
|
|
|
|
(use-package! helm-org
|
|
:when (modulep! :lang org)
|
|
:defer t
|
|
:init
|
|
(after! helm-mode
|
|
(pushnew! helm-completing-read-handlers-alist
|
|
'(org-capture . helm-org-completing-read-tags)
|
|
'(org-set-tags . helm-org-completing-read-tags))))
|
|
|
|
|
|
(use-package! helm-projectile
|
|
:commands (helm-projectile-find-file
|
|
helm-projectile-recentf
|
|
helm-projectile-switch-project
|
|
helm-projectile-switch-to-buffer)
|
|
:init
|
|
(defvar helm-projectile-find-file-map (make-sparse-keymap))
|
|
:config
|
|
(set-keymap-parent helm-projectile-find-file-map helm-map))
|
|
|
|
|
|
(setq ivy-height 20) ; for `swiper-isearch'
|
|
(after! swiper-helm
|
|
(setq swiper-helm-display-function
|
|
(lambda (buf &optional _resume) (pop-to-buffer buf)))
|
|
(global-set-key [remap swiper] #'swiper-helm)
|
|
(add-to-list 'swiper-font-lock-exclude #'+doom-dashboard-mode nil #'eq))
|
|
|
|
|
|
(use-package! helm-descbinds
|
|
:hook (helm-mode . helm-descbinds-mode))
|
|
|
|
|
|
(use-package! helm-icons
|
|
:after helm
|
|
:when (modulep! +icons)
|
|
:init
|
|
(setq helm-icons-provider 'all-the-icons)
|
|
:config
|
|
(helm-icons-enable))
|