(defun fwoar--paste-register-from-helm-current-buffer (register) (interactive (fwoar--read-register-name)) (let ((filename (with-current-buffer helm-current-buffer (if (equal register (elt (kbd "C-w") 0)) (word-at-point) (evil-get-register register t))))) (when filename (insert filename)))) (use-package helm :ensure t :custom (helm-boring-buffer-regexp-list '("\\` " "\\`\\*helm" "\\`\\*Echo Area" "\\`\\*Minibuf" "\\`\\Pfuture")) :delight :config (require 'helm-config) (helm-mode) (global-set-key (kbd "M-x") 'helm-M-x) (global-set-key (kbd "C-x C-f") 'helm-find-files) (evil-define-key 'normal 'global (kbd "<leader>j") 'helm-buffers-list) (evil-define-key 'normal 'global (kbd "<leader>s") 'helm-occur) (define-key helm-map (kbd "C-r") 'fwoar--paste-register-from-helm-current-buffer) (define-key helm-map (kbd "<right>") 'helm-execute-persistent-action) (define-key helm-map (kbd "<left>") 'helm-find-files-up-one-level)) (use-package helm-ls-git :after helm :ensure t) (use-package helm-org :after helm :ensure t) (use-package helm-rg :after helm :ensure t) (comment (use-package helm-ag :after helm :ensure t) (use-package helm-ag-r :after helm :ensure t) (use-package helm-css-scss :after helm :ensure t) (use-package project-explorer :after helm :ensure t)) (use-package helm-dash :ensure t :config)