~clean up general with use-package
This commit is contained in:
@@ -188,44 +188,89 @@ and it's functionally equivalent the doom/spacemacs leader.
|
|||||||
(use-package general
|
(use-package general
|
||||||
:demand t
|
:demand t
|
||||||
:config
|
:config
|
||||||
(general-def 'normal global-map "SPC" nil)
|
(general-def
|
||||||
(general-def 'normal global-map
|
:states 'normal
|
||||||
|
"SPC" nil
|
||||||
"M-V" #'dx:newline
|
"M-V" #'dx:newline
|
||||||
"M-v" #'(lambda () (interactive) (dx:newline 1))
|
"M-v" #'(lambda () (interactive) (dx:newline 1)))
|
||||||
"M--" #'whitespace-cleanup
|
|
||||||
"C--" #'text-scale-decrease
|
|
||||||
"C-=" #'text-scale-increase
|
|
||||||
"C-x d" #'delete-frame)
|
|
||||||
|
|
||||||
(general-create-definer leader
|
(general-create-definer leader
|
||||||
:states 'normal
|
:states 'normal
|
||||||
:keymaps 'override
|
:keymaps 'override
|
||||||
:prefix "SPC")
|
:prefix "SPC")
|
||||||
|
|
||||||
(leader
|
|
||||||
"!" #'async-shell-command
|
|
||||||
";" #'eval-expression
|
|
||||||
"SPC" #'execute-extended-command
|
|
||||||
"q" #'kill-emacs
|
|
||||||
"u" #'universal-argument
|
|
||||||
"cF" #'(lambda () (interactive) (find-file "~/Code/"))
|
|
||||||
"cc" #'compile
|
|
||||||
"si" #'imenu
|
|
||||||
"h" #'help-command)
|
|
||||||
|
|
||||||
(leader
|
(leader
|
||||||
:infix "b"
|
:infix "b"
|
||||||
"d" #'kill-this-buffer
|
"d" #'kill-this-buffer))
|
||||||
"i" #'ibuffer
|
#+end_src
|
||||||
"b" #'switch-to-buffer
|
With a ton of use-package declarations (to defer until the last
|
||||||
"j" #'next-buffer
|
moment), bind to general some basic binds.
|
||||||
"k" #'previous-buffer)
|
#+begin_src emacs-lisp
|
||||||
|
(use-package face-remap
|
||||||
|
:straight nil
|
||||||
|
:general
|
||||||
|
(general-def
|
||||||
|
:states 'normal
|
||||||
|
"C--" #'text-scale-decrease
|
||||||
|
"C-=" #'text-scale-increase))
|
||||||
|
|
||||||
|
(use-package frame
|
||||||
|
:straight nil
|
||||||
|
:general
|
||||||
|
(general-def
|
||||||
|
:states 'normal
|
||||||
|
"C-x d" #'delete-frame))
|
||||||
|
|
||||||
|
(use-package whitespace
|
||||||
|
:straight nil
|
||||||
|
:general
|
||||||
|
(general-def
|
||||||
|
:states 'normal
|
||||||
|
"M--" #'whitespace-cleanup))
|
||||||
|
|
||||||
|
(use-package simple
|
||||||
|
:straight nil
|
||||||
|
:general
|
||||||
|
(leader
|
||||||
|
"SPC" #'execute-extended-command
|
||||||
|
"u" #'universal-argument
|
||||||
|
";" #'eval-expression))
|
||||||
|
|
||||||
|
(use-package files
|
||||||
|
:straight nil
|
||||||
|
:general
|
||||||
|
(leader
|
||||||
|
"q" #'save-buffers-kill-terminal
|
||||||
|
"cF" #'(lambda () (interactive) (find-file "~/Code/")))
|
||||||
(leader
|
(leader
|
||||||
:infix "f"
|
:infix "f"
|
||||||
"f" #'find-file
|
"f" #'find-file
|
||||||
"s" #'save-buffer
|
"s" #'save-buffer
|
||||||
"p" #'(lambda () (interactive) (find-file (concat user-emacs-directory "config.org")))))
|
"p" #'(lambda () (interactive) (find-file (concat user-emacs-directory "config.org")))))
|
||||||
|
|
||||||
|
(use-package compile
|
||||||
|
:straight nil
|
||||||
|
:general
|
||||||
|
(leader
|
||||||
|
"cc" #'compile))
|
||||||
|
|
||||||
|
(use-package imenu
|
||||||
|
:straight nil
|
||||||
|
:general
|
||||||
|
(leader
|
||||||
|
"si" #'imenu))
|
||||||
|
|
||||||
|
(use-package help
|
||||||
|
:straight nil
|
||||||
|
:general
|
||||||
|
(leader
|
||||||
|
"h" #'help-command))
|
||||||
|
|
||||||
|
(use-package async
|
||||||
|
:straight nil
|
||||||
|
:general
|
||||||
|
(leader
|
||||||
|
"!" #'async-shell-command))
|
||||||
#+end_src
|
#+end_src
|
||||||
* Evil
|
* Evil
|
||||||
** Evil default
|
** Evil default
|
||||||
@@ -249,6 +294,7 @@ leader-map at "SPC".
|
|||||||
** Evil surround
|
** Evil surround
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
(use-package evil-surround
|
(use-package evil-surround
|
||||||
|
:defer nil
|
||||||
:after evil
|
:after evil
|
||||||
:config
|
:config
|
||||||
(global-evil-surround-mode))
|
(global-evil-surround-mode))
|
||||||
@@ -256,6 +302,7 @@ leader-map at "SPC".
|
|||||||
** Evil commentary
|
** Evil commentary
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
(use-package evil-commentary
|
(use-package evil-commentary
|
||||||
|
:defer nil
|
||||||
:after evil
|
:after evil
|
||||||
:config
|
:config
|
||||||
(evil-commentary-mode))
|
(evil-commentary-mode))
|
||||||
@@ -270,6 +317,7 @@ which is bound to 'gz'. Furthermore, define a function
|
|||||||
the current position.
|
the current position.
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
(use-package evil-mc
|
(use-package evil-mc
|
||||||
|
:defer nil
|
||||||
:after evil
|
:after evil
|
||||||
:bind (("M-p" . evil-mc-skip-and-goto-prev-cursor)
|
:bind (("M-p" . evil-mc-skip-and-goto-prev-cursor)
|
||||||
:map dx:evil-mc-map
|
:map dx:evil-mc-map
|
||||||
@@ -313,7 +361,7 @@ Setup vim-like bindings for the minibuffer ("C-(j|k)" for down|up the
|
|||||||
selection list). Also setup evil-collection for ivy.
|
selection list). Also setup evil-collection for ivy.
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
(use-package ivy
|
(use-package ivy
|
||||||
:after evil-collection
|
:hook (after-init-hook . ivy-mode)
|
||||||
:general
|
:general
|
||||||
(general-def
|
(general-def
|
||||||
:keymaps 'ivy-minibuffer-map
|
:keymaps 'ivy-minibuffer-map
|
||||||
@@ -333,8 +381,8 @@ selection list). Also setup evil-collection for ivy.
|
|||||||
ivy-virtual-abbreviate 'full
|
ivy-virtual-abbreviate 'full
|
||||||
ivy-on-del-error-function #'ignore
|
ivy-on-del-error-function #'ignore
|
||||||
ivy-use-selectable-prompt t)
|
ivy-use-selectable-prompt t)
|
||||||
(evil-collection-ivy-setup)
|
(with-eval-after-load "evil-collection"
|
||||||
(ivy-mode))
|
(evil-collection-ivy-setup)))
|
||||||
#+end_src
|
#+end_src
|
||||||
** Counsel
|
** Counsel
|
||||||
Setup for counsel. Load after ivy and helpful.
|
Setup for counsel. Load after ivy and helpful.
|
||||||
@@ -348,10 +396,11 @@ Along with that, set the help function and variable functions to their
|
|||||||
helpful counterparts.
|
helpful counterparts.
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
(use-package counsel
|
(use-package counsel
|
||||||
:defer t
|
:after ivy
|
||||||
:general
|
:general
|
||||||
(leader
|
(leader
|
||||||
"ss" #'counsel-grep-or-swiper)
|
"ss" #'counsel-grep-or-swiper
|
||||||
|
"sr" #'counsel-rg)
|
||||||
:init
|
:init
|
||||||
(general-def
|
(general-def
|
||||||
[remap describe-function] #'counsel-describe-function
|
[remap describe-function] #'counsel-describe-function
|
||||||
@@ -367,8 +416,7 @@ helpful counterparts.
|
|||||||
(setq counsel-describe-function-function #'helpful-callable
|
(setq counsel-describe-function-function #'helpful-callable
|
||||||
counsel-describe-variable-function #'helpful-variable)
|
counsel-describe-variable-function #'helpful-variable)
|
||||||
:config
|
:config
|
||||||
(setq ivy-initial-inputs-alist nil)
|
(setq ivy-initial-inputs-alist nil))
|
||||||
(counsel-mode +1))
|
|
||||||
#+end_src
|
#+end_src
|
||||||
** Counsel etags
|
** Counsel etags
|
||||||
Counsel etags allows me to search generated tag files for tags. I
|
Counsel etags allows me to search generated tag files for tags. I
|
||||||
|
|||||||
Reference in New Issue
Block a user