more helm

This commit is contained in:
Stefan Schwarz 2022-07-14 12:33:49 +02:00
parent dc270f5506
commit 0b903d3bda

64
init.el
View file

@ -80,39 +80,41 @@
;; helm config ;; helm config
(use-package helm :ensure t (use-package helm :ensure t
:bind ( :bind (
([remap apropos] . helm-apropos) ([remap apropos] . helm-apropos)
([remap find-library] . helm-locate-library) ([remap find-library] . helm-locate-library)
([remap bookmark-jump] . helm-bookmarks) ([remap bookmark-jump] . helm-bookmarks)
([remap execute-extended-command] . helm-M-x) ([remap execute-extended-command] . helm-M-x)
([remap find-file] . helm-find-files) ([remap find-file] . helm-find-files)
([remap imenu-anywhere] . helm-imenu-anywhere) ([remap imenu-anywhere] . helm-imenu-anywhere)
([remap imenu] . helm-semantic-or-imenu) ([remap imenu] . helm-semantic-or-imenu)
([remap noop-show-kill-ring] . helm-show-kill-ring) ([remap noop-show-kill-ring] . helm-show-kill-ring)
([remap persp-switch-to-buffer] . helm-mini) ([remap persp-switch-to-buffer] . helm-mini)
([remap switch-to-buffer] . helm-buffers-list) ([remap switch-to-buffer] . helm-buffers-list)
([remap projectile-find-file] . helm-projectile-find-file) ([remap projectile-find-file] . helm-projectile-find-file)
([remap projectile-recentf] . helm-projectile-recentf) ([remap projectile-recentf] . helm-projectile-recentf)
([remap projectile-switch-project] . helm-projectile-switch-project) ([remap projectile-switch-project] . helm-projectile-switch-project)
([remap projectile-switch-to-buffer] . helm-projectile-switch-to-buffer) ([remap projectile-switch-to-buffer] . helm-projectile-switch-to-buffer)
([remap recentf-open-files] . helm-recentf) ([remap recentf-open-files] . helm-recentf)
:map helm-map ( :map helm-map
("C-j" . helm-next-line)
("C-k" . helm-previous-line) ("C-k" . helm-previous-line)
("C-j" . helm-next-line)
("C-p" . helm-previous-line)
("C-n" . helm-next-line)
("C-h" . helm-find-files-up-one-level) ("C-h" . helm-find-files-up-one-level)
("C-l" . helm-ff-RET) ("C-l" . helm-ff-RET)
("ESC" . abort-recursive-edit))) ("C-v" . evil-paste-from-register)
("DOWN" . helm-next-line) ("ESC" . abort-recursive-edit))
("UP" . helm-previous-line)
("LEFT" . helm-find-files-up-one-level)
("RIGHT" . helm-ff-RET)
:preface :preface
(setq (setq
helm-display-buffer-default-height 0.25
helm-display-header-line nil helm-display-header-line nil
helm-ff-file-name-history-use-recentf t
helm-find-files-doc-header nil helm-find-files-doc-header nil
helm-display-buffer-default-height 0.25) helm-mode-line-string nil
:init helm-move-to-line-cycle-in-source t)
:config :config
(require 'helm-config)) (require 'helm-config)
(helm-mode 1))
(use-package helm-lsp :ensure t) (use-package helm-lsp :ensure t)
(use-package helm-company :ensure t) (use-package helm-company :ensure t)
(use-package swiper-helm :ensure t) (use-package swiper-helm :ensure t)
@ -317,6 +319,7 @@
;; general config ;; general config
(use-package general :ensure t (use-package general :ensure t
:config :config
(global-set-key [escape] #'helm-or-evil-escape)
(menu-bar-mode -1) (menu-bar-mode -1)
(toggle-scroll-bar -1) (toggle-scroll-bar -1)
(tool-bar-mode -1) (tool-bar-mode -1)
@ -428,6 +431,19 @@
;; custom functions ;; custom functions
(defun foo/helm-or-evil-escape ()
"Escape from anything."
(interactive)
(cond ((minibuffer-window-active-p (minibuffer-window))
;; quit the minibuffer if open.
(abort-recursive-edit))
;; Run all escape hooks. If any returns non-nil, then stop there.
;; ((cl-find-if #'funcall doom-escape-hook))
;; don't abort macros
((or defining-kbd-macro executing-kbd-macro) nil)
;; Back to the default
((keyboard-quit))))
(defun foo/toggle-maximize-buffer () "Maximize buffer." (defun foo/toggle-maximize-buffer () "Maximize buffer."
(interactive) (interactive)
(save-excursion (save-excursion