Add modules/completion/helm
This commit is contained in:
Henrik Lissner
parent
54d58c358e
commit
b8f5d549ea
2 changed files with 214 additions and 0 deletions
203
modules/completion/helm/config.el
Normal file
203
modules/completion/helm/config.el
Normal file
|
|
@ -0,0 +1,203 @@
|
||||||
|
;;; completion/helm/config.el
|
||||||
|
|
||||||
|
;; TODO Untested in DOOM v2.0
|
||||||
|
|
||||||
|
(defvar +helm-global-prompt "››› "
|
||||||
|
"The helm text prompt prefix string is globally replaced with this string.")
|
||||||
|
|
||||||
|
(@map [remap find-file] 'helm-find-files
|
||||||
|
[remap switch-to-buffer] 'doom/helm-buffers-dwim
|
||||||
|
[remap projectile-switch-to-buffer] (λ! (doom/helm-buffers-dwim t))
|
||||||
|
[remap recentf] 'helm-recentf
|
||||||
|
[remap projectile-recentf] 'helm-projectile-recentf
|
||||||
|
[remap projectile-find-file] 'helm-projectile-find-file
|
||||||
|
[remap imenu] 'helm-semantic-or-imenu
|
||||||
|
[remap bookmark-jump] 'helm-bookmarks
|
||||||
|
[remap noop-show-kill-ring] 'helm-show-kill-ring
|
||||||
|
[remap projectile-switch-project] 'helm-projectile-switch-project
|
||||||
|
[remap projectile-find-file] 'helm-projectile-find-file
|
||||||
|
[remap imenu-anywhere] 'helm-imenu-anywhere
|
||||||
|
[remap execute-extended-command] 'helm-M-x)
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; Packages
|
||||||
|
;;
|
||||||
|
|
||||||
|
(@def-package helm
|
||||||
|
:init
|
||||||
|
(setq helm-quick-update t
|
||||||
|
;; Speedier without fuzzy matching
|
||||||
|
helm-mode-fuzzy-match nil
|
||||||
|
helm-buffers-fuzzy-matching nil
|
||||||
|
helm-apropos-fuzzy-match nil
|
||||||
|
helm-M-x-fuzzy-match nil
|
||||||
|
helm-recentf-fuzzy-match nil
|
||||||
|
helm-projectile-fuzzy-match nil
|
||||||
|
;; Display extraineous helm UI elements
|
||||||
|
helm-display-header-line nil
|
||||||
|
helm-ff-auto-update-initial-value nil
|
||||||
|
helm-find-files-doc-header nil
|
||||||
|
;; Don't override evil-ex's completion
|
||||||
|
helm-mode-handle-completion-in-region nil
|
||||||
|
helm-candidate-number-limit 50
|
||||||
|
;; Don't wrap item cycling
|
||||||
|
helm-move-to-line-cycle-in-source t)
|
||||||
|
|
||||||
|
:config
|
||||||
|
(setq projectile-completion-system 'helm)
|
||||||
|
|
||||||
|
(@map "M-x" 'helm-M-x
|
||||||
|
"A-x" 'helm-M-x
|
||||||
|
"M-X" 'helm-apropos
|
||||||
|
"A-X" 'helm-apropos
|
||||||
|
"M-o" 'helm-find-files
|
||||||
|
|
||||||
|
(:map helm-map
|
||||||
|
"C-S-n" 'helm-next-source
|
||||||
|
"C-S-p" 'helm-previous-source
|
||||||
|
"C-u" 'helm-delete-minibuffer-contents
|
||||||
|
"C-w" 'backward-kill-word
|
||||||
|
"M-v" 'clipboard-yank
|
||||||
|
"C-r" 'evil-paste-from-register ; Evil registers in helm! Glorious!
|
||||||
|
"C-b" 'backward-word
|
||||||
|
"<left>" 'backward-char
|
||||||
|
"<right>" 'forward-char
|
||||||
|
"<escape>" 'helm-keyboard-quit
|
||||||
|
"ESC" 'helm-keyboard-quit
|
||||||
|
[escape] 'helm-keyboard-quit
|
||||||
|
"<tab>" 'helm-execute-persistent-action)
|
||||||
|
|
||||||
|
(:map* helm-generic-files-map
|
||||||
|
:e "ESC" 'helm-keyboard-quit))
|
||||||
|
|
||||||
|
;;; Popup setup
|
||||||
|
(@set :popup "\\` ?\\*[hH]elm.*?\\*\\'" :size 14 :regexp t)
|
||||||
|
|
||||||
|
;;; Helm hacks
|
||||||
|
(defconst doom-helm-header-fg (face-attribute 'helm-source-header :foreground))
|
||||||
|
;; Shrink source headers if there is only one source
|
||||||
|
(add-hook 'helm-after-initialize-hook 'doom*helm-hide-source-header-maybe)
|
||||||
|
;; A simpler prompt: see `+helm-global-prompt'
|
||||||
|
(advice-add 'helm :filter-args 'doom*helm-replace-prompt)
|
||||||
|
;; Hide mode-line in helm windows
|
||||||
|
(advice-add 'helm-display-mode-line :override 'doom*helm-hide-header)
|
||||||
|
|
||||||
|
(require 'helm-mode)
|
||||||
|
(helm-mode +1)
|
||||||
|
|
||||||
|
(defvar helm-projectile-find-file-map (make-sparse-keymap))
|
||||||
|
(require 'helm-projectile)
|
||||||
|
(set-keymap-parent helm-projectile-find-file-map helm-map))
|
||||||
|
|
||||||
|
|
||||||
|
(@def-package helm-locate
|
||||||
|
:init
|
||||||
|
(defvar helm-generic-files-map (make-sparse-keymap)
|
||||||
|
"Generic Keymap for files.")
|
||||||
|
:config (set-keymap-parent helm-generic-files-map helm-map))
|
||||||
|
|
||||||
|
|
||||||
|
(@def-package helm-buffers
|
||||||
|
:commands (helm-buffers-list helm-mini)
|
||||||
|
:config (advice-add 'helm-buffer-list :override 'helm*buffer-list))
|
||||||
|
|
||||||
|
|
||||||
|
(@def-package helm-tags
|
||||||
|
:commands (helm-tags-get-tag-file helm-etags-select))
|
||||||
|
|
||||||
|
|
||||||
|
(@def-package helm-bookmark
|
||||||
|
:commands (helm-bookmarks helm-filtered-bookmarks)
|
||||||
|
:config (setq-default helm-bookmark-show-location t))
|
||||||
|
|
||||||
|
|
||||||
|
(@def-package helm-files
|
||||||
|
:commands (helm-browse-project helm-find helm-find-files helm-for-files helm-multi-files helm-recentf)
|
||||||
|
:config
|
||||||
|
(setq helm-boring-file-regexp-list
|
||||||
|
(append (list "\\.projects$" "\\.DS_Store$")
|
||||||
|
helm-boring-file-regexp-list))
|
||||||
|
|
||||||
|
(@map :map helm-find-files-map
|
||||||
|
"C-w" 'helm-find-files-up-one-level
|
||||||
|
"TAB" 'helm-execute-persistent-action))
|
||||||
|
|
||||||
|
|
||||||
|
(@def-package helm-ag
|
||||||
|
:commands (helm-ag
|
||||||
|
helm-ag-mode
|
||||||
|
helm-do-ag
|
||||||
|
helm-do-ag-this-file
|
||||||
|
helm-do-ag-project-root
|
||||||
|
helm-do-ag-buffers
|
||||||
|
helm-ag-project-root
|
||||||
|
helm-ag-pop-stack
|
||||||
|
helm-ag-buffers
|
||||||
|
helm-ag-clear-stack)
|
||||||
|
:config
|
||||||
|
(@map (:map helm-ag-map
|
||||||
|
"<backtab>" 'helm-ag-edit)
|
||||||
|
(:map helm-ag-edit-map
|
||||||
|
"<escape>" 'helm-ag--edit-abort
|
||||||
|
"C-c C-c" 'helm-ag--edit-commit
|
||||||
|
:n "zx" 'helm-ag--edit-abort)))
|
||||||
|
|
||||||
|
|
||||||
|
(@def-package helm-css-scss ; https://github.com/ShingoFukuyama/helm-css-scss
|
||||||
|
:commands (helm-css-scss
|
||||||
|
helm-css-scss-multi
|
||||||
|
helm-css-scss-insert-close-comment)
|
||||||
|
:config
|
||||||
|
(setq helm-css-scss-split-direction 'split-window-vertically
|
||||||
|
helm-css-scss-split-with-multiple-windows t))
|
||||||
|
|
||||||
|
|
||||||
|
(@def-package helm-swoop ; https://github.com/ShingoFukuyama/helm-swoop
|
||||||
|
:commands (helm-swoop helm-multi-swoop helm-multi-swoop-all)
|
||||||
|
:config
|
||||||
|
(setq helm-swoop-use-line-number-face t
|
||||||
|
helm-swoop-candidate-number-limit 200
|
||||||
|
helm-swoop-speed-or-color t
|
||||||
|
helm-swoop-pre-input-function (lambda () "")))
|
||||||
|
|
||||||
|
|
||||||
|
(@def-package helm-describe-modes :commands helm-describe-modes)
|
||||||
|
(@def-package helm-ring :commands helm-show-kill-ring)
|
||||||
|
(@def-package helm-semantic :commands helm-semantic-or-imenu)
|
||||||
|
(@def-package helm-elisp :commands helm-apropos)
|
||||||
|
(@def-package helm-command :commands helm-M-x)
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; Popup hacks
|
||||||
|
;;
|
||||||
|
|
||||||
|
(@after helm
|
||||||
|
;; Helm tries to clean up after itself, but shackle has already done this.
|
||||||
|
;; This fixes that. To reproduce, add a helm rule in `shackle-rules', open two
|
||||||
|
;; splits side-by-side, move to the buffer on the right and invoke helm. It
|
||||||
|
;; will close all but the left-most buffer.
|
||||||
|
(setq-default helm-reuse-last-window-split-state t
|
||||||
|
helm-split-window-in-side-p t))
|
||||||
|
|
||||||
|
(@after helm-swoop
|
||||||
|
(setq helm-swoop-split-window-function (lambda (b) (doom-popup-buffer b))))
|
||||||
|
|
||||||
|
(@after helm-ag
|
||||||
|
;; This prevents helm-ag from switching between windows and buffers.
|
||||||
|
(defadvice helm-ag--edit-abort (around helm-ag-edit-abort-popup-compat activate)
|
||||||
|
(cl-letf (((symbol-function 'select-window) 'ignore)) ad-do-it)
|
||||||
|
(doom/popup-close nil t))
|
||||||
|
|
||||||
|
(defadvice helm-ag--edit-commit (around helm-ag-edit-commit-popup-compat activate)
|
||||||
|
(cl-letf (((symbol-function 'select-window) 'ignore)) ad-do-it)
|
||||||
|
(doom/popup-close nil t))
|
||||||
|
|
||||||
|
(defadvice helm-ag--edit (around helm-ag-edit-popup-compat activate)
|
||||||
|
(cl-letf (((symbol-function 'other-window) 'ignore)
|
||||||
|
((symbol-function 'switch-to-buffer) 'doom-popup-buffer))
|
||||||
|
ad-do-it
|
||||||
|
(with-current-buffer (get-buffer "*helm-ag-edit*")
|
||||||
|
(use-local-map helm-ag-edit-map)))))
|
||||||
|
|
||||||
11
modules/completion/helm/packages.el
Normal file
11
modules/completion/helm/packages.el
Normal file
|
|
@ -0,0 +1,11 @@
|
||||||
|
;; -*- no-byte-compile: t; -*-
|
||||||
|
;;; completion/helm/packages.el
|
||||||
|
|
||||||
|
(@package helm)
|
||||||
|
(@package helm-ag)
|
||||||
|
(@package helm-c-yasnippet)
|
||||||
|
(@package helm-company)
|
||||||
|
(@package helm-css-scss)
|
||||||
|
(@package helm-describe-modes :recipe (:fetcher github :repo "emacs-helm/helm-describe-modes"))
|
||||||
|
(@package helm-projectile)
|
||||||
|
(@package helm-swoop)
|
||||||
Loading…
Add table
Add a link
Reference in a new issue