more helm

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

36
init.el
View file

@ -95,24 +95,26 @@
([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