392 lines
16 KiB
Org Mode
392 lines
16 KiB
Org Mode
|
#+title: Emacs — Keybindings
|
|||
|
|
#+setupfile: ../headers
|
|||
|
|
#+property: header-args:emacs-lisp :mkdirp yes :lexical t :exports code
|
|||
|
|
#+property: header-args:emacs-lisp+ :tangle ~/.config/emacs/lisp/keybindings.el
|
|||
|
|
#+property: header-args:emacs-lisp+ :mkdirp yes :noweb no-export
|
|||
|
|
|
|||
|
|
* Keybindings
|
|||
|
|
Undefining some stuff to make keybind prefixes work correctly.
|
|||
|
|
|
|||
|
|
#+name: general-keybindings-gen
|
|||
|
|
#+header: :tangle no :exports none :results value :cache yes
|
|||
|
|
#+begin_src emacs-lisp :var table=keybinds-windows prefix=""
|
|||
|
|
(mapconcat (lambda (line)
|
|||
|
|
(let* ((key (nth 0 line))
|
|||
|
|
(function (nth 1 line))
|
|||
|
|
(comment (or (nth 2 line) ""))
|
|||
|
|
(package (or (nth 3 line) "")))
|
|||
|
|
(format "\"%s%s\" %s"
|
|||
|
|
prefix
|
|||
|
|
key
|
|||
|
|
(if (string= "" comment)
|
|||
|
|
(if (member function '("" "nil")) "nil" (concat "#'" function))
|
|||
|
|
(format "'(%s :wk %s%s)"
|
|||
|
|
(if (member function '("" "nil")) ":ignore t" function)
|
|||
|
|
(if (member function '("none" "nil")) "t" (concat "\"" comment "\""))
|
|||
|
|
(if (string-blank-p package) "" (concat ":package " package)))))))
|
|||
|
|
table
|
|||
|
|
"\n")
|
|||
|
|
#+end_src
|
|||
|
|
|
|||
|
|
#+begin_src emacs-lisp
|
|||
|
|
(general-define-key
|
|||
|
|
:keymaps 'global-map
|
|||
|
|
"<mouse-2>" nil
|
|||
|
|
"<mouse-3>" nil)
|
|||
|
|
|
|||
|
|
(phundrak/evil
|
|||
|
|
:packages '(counsel)
|
|||
|
|
"U" #'evil-redo
|
|||
|
|
"C-a" #'beginning-of-line
|
|||
|
|
"C-e" #'end-of-line
|
|||
|
|
"C-y" #'yank
|
|||
|
|
"M-y" #'counsel-yank-pop)
|
|||
|
|
#+end_src
|
|||
|
|
|
|||
|
|
#+begin_src emacs-lisp
|
|||
|
|
(general-define-key
|
|||
|
|
"<f5>" #'compile
|
|||
|
|
"<f6>" #'recompile)
|
|||
|
|
|
|||
|
|
(phundrak/leader-key
|
|||
|
|
"SPC" '(counsel-M-x :wk "M-x")
|
|||
|
|
"'" #'shell-pop
|
|||
|
|
|
|||
|
|
<<general-keybindings-gen(table=keybinds-tabs, prefix="TAB ")>>
|
|||
|
|
|
|||
|
|
<<general-keybindings-gen(table=keybinds-apps, prefix="a")>>
|
|||
|
|
<<general-keybindings-gen(table=keybinds-apps-shell, prefix="as")>>
|
|||
|
|
<<general-keybindings-gen(table=treemacs-keybinds, prefix="at")>>
|
|||
|
|
|
|||
|
|
<<general-keybindings-gen(table=keybinds-buffers, prefix="b")>>
|
|||
|
|
|
|||
|
|
"c" '(:ignore t :wk "code")
|
|||
|
|
"cl" #'evilnc-comment-or-uncomment-lines
|
|||
|
|
|
|||
|
|
<<keybindings-flycheck>>
|
|||
|
|
|
|||
|
|
<<general-keybindings-gen(table=keybinds-files, prefix="f")>>
|
|||
|
|
<<keybinds-specific-files>>
|
|||
|
|
|
|||
|
|
<<general-keybindings-gen(table=keybinds-help, prefix="h")>>
|
|||
|
|
|
|||
|
|
"i" '(:ignore t :wk "insert")
|
|||
|
|
"iu" #'counsel-unicode-char
|
|||
|
|
|
|||
|
|
<<general-keybindings-gen(table=keybinds-jump, prefix="j")>>
|
|||
|
|
|
|||
|
|
<<general-keybindings-gen(table=keybinds-toggle, prefix="t ")>>
|
|||
|
|
|
|||
|
|
<<general-keybindings-gen(table=keybinds-text, prefix="T")>>
|
|||
|
|
|
|||
|
|
<<general-keybindings-gen(table=keybinds-windows, prefix="w")>>
|
|||
|
|
|
|||
|
|
<<general-keybindings-gen(table=keybinds-quit, prefix="q")>>
|
|||
|
|
|
|||
|
|
"u" #'universal-argument
|
|||
|
|
"U" #'undo-tree-visualize)
|
|||
|
|
#+end_src
|
|||
|
|
|
|||
|
|
** Apps
|
|||
|
|
Here are my apps keybinds. Each one of them is prefixed by ~a~.
|
|||
|
|
#+name: keybinds-apps
|
|||
|
|
| Key | Function | Description | Package |
|
|||
|
|
|-----+----------------------------+-------------+------------|
|
|||
|
|
| | | apps | |
|
|||
|
|
| c | calc | | |
|
|||
|
|
| C | | calendar | |
|
|||
|
|
| CC | calendar | | |
|
|||
|
|
| Co | org-agenda | | org |
|
|||
|
|
| Cs | org-caldav-sync | | org-caldav |
|
|||
|
|
| d | docker | | |
|
|||
|
|
| E | elfeed | | |
|
|||
|
|
| e | | email | |
|
|||
|
|
| ec | mu4e-compose-new | | |
|
|||
|
|
| em | mu4e | | |
|
|||
|
|
| k | keycast-mode | | |
|
|||
|
|
| K | keycast-log-mode | | |
|
|||
|
|
| m | | mastodon | |
|
|||
|
|
| mm | mastodon | | mastodon |
|
|||
|
|
| mn | mastodon-notifications-get | | mastodon |
|
|||
|
|
| mt | mastodon-toot | | mastodon |
|
|||
|
|
| T | tetris | | |
|
|||
|
|
| w | wttrin | | wttrin |
|
|||
|
|
|
|||
|
|
I also have two main shell-related functions, prefixed with ~as~.
|
|||
|
|
#+name: keybinds-apps-shell
|
|||
|
|
| Key | Function | Description | Package |
|
|||
|
|
|-----+-------------+-------------+-------------|
|
|||
|
|
| | | shells | |
|
|||
|
|
| e | eshell-new | | |
|
|||
|
|
| v | vterm | | vterm |
|
|||
|
|
| V | multi-vterm | | multi-vterm |
|
|||
|
|
|
|||
|
|
** Buffers
|
|||
|
|
My buffer-related keybinds are all prefixed by ~b~.
|
|||
|
|
#+name: keybinds-buffers
|
|||
|
|
| Key | Function | Description |
|
|||
|
|
|-----+------------------------------------+-------------|
|
|||
|
|
| | | buffers |
|
|||
|
|
| b | bufler-switch-buffer | |
|
|||
|
|
| B | bury-buffer | |
|
|||
|
|
| c | clone-indirect-buffer | |
|
|||
|
|
| C | clone-indirect-buffer-other-window | |
|
|||
|
|
| l | bufler | |
|
|||
|
|
| d | kill-this-buffer | |
|
|||
|
|
| D | kill-buffer | |
|
|||
|
|
| h | dashboard-refresh-buffer | |
|
|||
|
|
| m | switch-to-messages-buffer | |
|
|||
|
|
| n | next-buffer | |
|
|||
|
|
| p | previous-buffer | |
|
|||
|
|
| r | counsel-buffer-or-recentf | |
|
|||
|
|
| s | switch-to-scratch-buffer | |
|
|||
|
|
|
|||
|
|
** Errors
|
|||
|
|
#+begin_src emacs-lisp
|
|||
|
|
(defhydra hydra-flycheck
|
|||
|
|
(:pre (flycheck-list-errors)
|
|||
|
|
:post (quit-windows-on "*Flycheck errors*")
|
|||
|
|
:hint nil)
|
|||
|
|
("f" flycheck-error-list-set-filter "Filter")
|
|||
|
|
("t" flycheck-next-error "Next")
|
|||
|
|
("s" flycheck-previous-error "Previous")
|
|||
|
|
("gg" flycheck-first-error "First")
|
|||
|
|
("G" (progn (goto-char (point-max)) (flycheck-previous-error)) "Last")
|
|||
|
|
("q" nil))
|
|||
|
|
#+end_src
|
|||
|
|
|
|||
|
|
#+name: keybindings-flycheck
|
|||
|
|
#+begin_src emacs-lisp :tangle no
|
|||
|
|
"e" '(:ignore t :which-key "errors")
|
|||
|
|
"e." '(hydra-flycheck/body :wk "hydra")
|
|||
|
|
"el" #'counsel-flycheck
|
|||
|
|
"ee" '(:keymap flycheck-command-map :package 'flycheck :wk "flycheck")
|
|||
|
|
"ef" '(:keymap flyspell-mode-map :package 'flyspell :wk "flyspell")
|
|||
|
|
"eF" #'flyspell-hydra/body
|
|||
|
|
#+end_src
|
|||
|
|
|
|||
|
|
** Files
|
|||
|
|
My keybinds for file manipulation are prefixed by ~f~.
|
|||
|
|
#+name: keybinds-files
|
|||
|
|
| Key | Function | Description |
|
|||
|
|
|-----+----------------------+-------------|
|
|||
|
|
| | | files |
|
|||
|
|
| f | counsel-find-file | |
|
|||
|
|
| F | ivy-quick-find-files | |
|
|||
|
|
| h | hexl-find-file | |
|
|||
|
|
| r | counsel-recentf | |
|
|||
|
|
| s | save-buffer | |
|
|||
|
|
|
|||
|
|
I also have some keybinds dedicated to opening specific files.
|
|||
|
|
#+name: keybinds-specific-files
|
|||
|
|
#+begin_src emacs-lisp :tangle no
|
|||
|
|
"fc" '((lambda ()
|
|||
|
|
(interactive)
|
|||
|
|
(find-file "~/org/config/emacs.org"))
|
|||
|
|
:wk "emacs.org")
|
|||
|
|
"fi" '((lambda ()
|
|||
|
|
(interactive)
|
|||
|
|
(find-file (concat user-emacs-directory "init.el")))
|
|||
|
|
:which-key "init.el")
|
|||
|
|
"fR" '((lambda ()
|
|||
|
|
(interactive)
|
|||
|
|
(counsel-find-file ""
|
|||
|
|
(concat user-emacs-directory
|
|||
|
|
(file-name-as-directory "straight")
|
|||
|
|
(file-name-as-directory "repos"))))
|
|||
|
|
:which-key "straight package")
|
|||
|
|
"fS" '((lambda ()
|
|||
|
|
(interactive)
|
|||
|
|
(find-file "~/org/config/stumpwm.org"))
|
|||
|
|
:which-key "stumpwm.org")
|
|||
|
|
#+end_src
|
|||
|
|
|
|||
|
|
** Help
|
|||
|
|
My keybinds for help are prefixed by ~h~.
|
|||
|
|
#+name: keybinds-help
|
|||
|
|
| Key | Function | Description |
|
|||
|
|
|-----+--------------------------+-------------|
|
|||
|
|
| | | help |
|
|||
|
|
| k | which-key-show-top-level | |
|
|||
|
|
| i | info | |
|
|||
|
|
| I | info-display-manual | |
|
|||
|
|
| d | | describe |
|
|||
|
|
| dc | describe-char | |
|
|||
|
|
| dC | helpful-command | |
|
|||
|
|
| df | helpful-callable | |
|
|||
|
|
| di | describe-input-method | |
|
|||
|
|
| dk | helpful-key | |
|
|||
|
|
| dm | helpful-macro | |
|
|||
|
|
| dM | helpful-mode | |
|
|||
|
|
| dp | describe-package | |
|
|||
|
|
| ds | helpful-symbol | |
|
|||
|
|
| dv | helpful-variable | |
|
|||
|
|
|
|||
|
|
** Jump
|
|||
|
|
My keybinds for jumping around are prefixed by ~j~.
|
|||
|
|
#+name: keybinds-jump
|
|||
|
|
| Key | Function | Description |
|
|||
|
|
|-----+-------------------------+-------------|
|
|||
|
|
| | | jump |
|
|||
|
|
| f | counsel-file-jump | |
|
|||
|
|
| d | dirvish-dwim | |
|
|||
|
|
| D | dired-jump-other-window | |
|
|||
|
|
|
|||
|
|
** Project
|
|||
|
|
My keybinds for my projects are prefixed by ~p~.
|
|||
|
|
#+name: keybinds-project
|
|||
|
|
| Key | Function | Description |
|
|||
|
|
|-----+--------------------------------------------+-------------|
|
|||
|
|
| | | project |
|
|||
|
|
| ! | projectile-run-shell-command-in-root | |
|
|||
|
|
| & | projectile-run-async-shell-command-in-root | |
|
|||
|
|
| b | counsel-projectile-switch-to-buffer | |
|
|||
|
|
| c | counsel-projectile | |
|
|||
|
|
| d | counsel-projectile-find-dir | |
|
|||
|
|
| e | projectile-edit-dir-locals | |
|
|||
|
|
| f | counsel-projectile-find-file | |
|
|||
|
|
| g | projectile-find-tag | |
|
|||
|
|
| k | project-kill-buffers | |
|
|||
|
|
| p | counsel-projectile-switch-project | |
|
|||
|
|
| t | ivy-magit-todos | |
|
|||
|
|
| v | projectile-vc | |
|
|||
|
|
|
|||
|
|
*** Treemacs
|
|||
|
|
|
|||
|
|
#+name: treemacs-keybinds
|
|||
|
|
| Key | Function | Description |
|
|||
|
|
|-----+----------------------------------------+-------------|
|
|||
|
|
| | | treemacs |
|
|||
|
|
| c | | create |
|
|||
|
|
| cd | treemacs-create-dir | |
|
|||
|
|
| cf | treemacs-create-file | |
|
|||
|
|
| ci | treemacs-create-icon | |
|
|||
|
|
| ct | treemacs-create-theme | |
|
|||
|
|
| cw | treemacs-create-workspace | |
|
|||
|
|
| d | treemacs-delete-file | |
|
|||
|
|
| f | | files |
|
|||
|
|
| ff | treemacs-find-file | |
|
|||
|
|
| ft | treemacs-find-tag | |
|
|||
|
|
| l | | lsp |
|
|||
|
|
| ls | treemacs-expand-lsp-symbol | |
|
|||
|
|
| ld | treemacs-expand-lsp-treemacs-deps | |
|
|||
|
|
| lD | treemacs-collapse-lsp-treemacs-deps | |
|
|||
|
|
| lS | treemacs-collapse-lsp-symbol | |
|
|||
|
|
| p | | projects |
|
|||
|
|
| pa | treemacs-add-project-to-workspace | |
|
|||
|
|
| pf | treemacs-project-follow-mode | |
|
|||
|
|
| pn | treemacs-project-of-node | |
|
|||
|
|
| pp | treemacs-project-at-point | |
|
|||
|
|
| pr | treemacs-remove-project-from-workspace | |
|
|||
|
|
| pt | treemacs-move-project-down | |
|
|||
|
|
| ps | treemacs-move-project-up | |
|
|||
|
|
| r | | rename |
|
|||
|
|
| rf | treemacs-rename-file | |
|
|||
|
|
| rp | treemacs-rename-project | |
|
|||
|
|
| rr | treemacs-rename | |
|
|||
|
|
| rw | treemacs-rename-workspace | |
|
|||
|
|
| t | treemacs | |
|
|||
|
|
| T | | toggles |
|
|||
|
|
| Td | treemacs-toggle-show-dotfiles | |
|
|||
|
|
| Tn | treemacs-toggle-node | |
|
|||
|
|
| v | | visit node |
|
|||
|
|
| va | treemacs-visit-node-ace | |
|
|||
|
|
| vc | treemacs-visit-node-close-treemacs | |
|
|||
|
|
| vn | treemacs-visit-node-default | |
|
|||
|
|
| y | | yank |
|
|||
|
|
| ya | treemacs-copy-absolute-path-at-point | |
|
|||
|
|
| yp | treemacs-copy-project-path-at-point | |
|
|||
|
|
| yr | treemacs-copy-relative-path-at-point | |
|
|||
|
|
| yf | treemacs-copy-file | |
|
|||
|
|
|
|||
|
|
** Tabs
|
|||
|
|
Emacs has native tabs available, which can be interesting when working
|
|||
|
|
on multiple projects at once between which we may want to switch. Tabs
|
|||
|
|
allow the user not to have multiple frames while keeping the
|
|||
|
|
advantages of having multiple frames.
|
|||
|
|
|
|||
|
|
My keybinds are prefixed by ~SPC TAB~.
|
|||
|
|
#+name: keybinds-tabs
|
|||
|
|
| Key | Function | Description |
|
|||
|
|
|-----+--------------+-------------|
|
|||
|
|
| | | tabs |
|
|||
|
|
| TAB | tab-switch | |
|
|||
|
|
| » | tab-next | |
|
|||
|
|
| « | tab-previous | |
|
|||
|
|
| c | tab-new | |
|
|||
|
|
| C | tab-new-to | |
|
|||
|
|
| d | tab-close | |
|
|||
|
|
| n | tab-next | |
|
|||
|
|
| p | tab-previous | |
|
|||
|
|
| r | tab-rename | |
|
|||
|
|
|
|||
|
|
** Text
|
|||
|
|
The prefix here is ~T~.
|
|||
|
|
#+name: keybinds-text
|
|||
|
|
| Key | Function | Description |
|
|||
|
|
|-----+----------------------+-------------|
|
|||
|
|
| | | text |
|
|||
|
|
| e | string-edit-at-point | |
|
|||
|
|
| u | downcase-region | |
|
|||
|
|
| U | upcase-region | |
|
|||
|
|
| z | hydra-zoom/body | |
|
|||
|
|
|
|||
|
|
** Toggles
|
|||
|
|
My toggle keybinds are prefixed by ~t~.
|
|||
|
|
#+name: keybinds-toggle
|
|||
|
|
| Key | Function | Description |
|
|||
|
|
|-----+---------------------------------------+--------------|
|
|||
|
|
| | | toggles |
|
|||
|
|
| TAB | tab-bar-mode | |
|
|||
|
|
| t | my/modify-frame-alpha-background/body | |
|
|||
|
|
| T | counsel-load-theme | |
|
|||
|
|
| d | | debug |
|
|||
|
|
| de | toggle-debug-on-error | |
|
|||
|
|
| dq | toggle-debug-on-quit | |
|
|||
|
|
| i | | input method |
|
|||
|
|
| it | toggle-input-method | |
|
|||
|
|
| is | set-input-method | |
|
|||
|
|
|
|||
|
|
** Windows
|
|||
|
|
A couple of keybinds are hidden from which-key, otherwise there’s not
|
|||
|
|
much to say. The prefix here is ~w~.
|
|||
|
|
#+name: keybinds-windows
|
|||
|
|
| Key | Function | Description |
|
|||
|
|
|-----+-------------------------------+-------------|
|
|||
|
|
| | | windows |
|
|||
|
|
| c | evil-window-left | |
|
|||
|
|
| t | evil-window-down | |
|
|||
|
|
| s | evil-window-up | |
|
|||
|
|
| r | evil-window-right | |
|
|||
|
|
| . | windows-adjust-size/body | |
|
|||
|
|
| - | split-window-below-and-focus | |
|
|||
|
|
| / | split-window-right-and-focus | |
|
|||
|
|
| $ | winum-select-window-by-number | |
|
|||
|
|
| 0 | winum-select-window-0-or-10 | none |
|
|||
|
|
| 1 | winum-select-window-1 | none |
|
|||
|
|
| 2 | winum-select-window-2 | none |
|
|||
|
|
| 3 | winum-select-window-3 | none |
|
|||
|
|
| 4 | winum-select-window-4 | none |
|
|||
|
|
| 5 | winum-select-window-5 | none |
|
|||
|
|
| 6 | winum-select-window-6 | none |
|
|||
|
|
| 7 | winum-select-window-7 | none |
|
|||
|
|
| 8 | winum-select-window-8 | none |
|
|||
|
|
| 9 | winum-select-window-9 | none |
|
|||
|
|
| b | kill-buffer-and-delete-window | |
|
|||
|
|
| d | delete-window | |
|
|||
|
|
| o | other-window | |
|
|||
|
|
| D | delete-other-windows | |
|
|||
|
|
| w | | writeroom |
|
|||
|
|
| w. | writeroom-buffer-width/body | |
|
|||
|
|
| ww | writeroom-mode | |
|
|||
|
|
|
|||
|
|
** Quit
|
|||
|
|
Why would I ever use any of these keybinds? They are prefixed with ~q~.
|
|||
|
|
#+name: keybinds-quit
|
|||
|
|
| Key | Function | Description |
|
|||
|
|
|-----+----------------------------+-------------|
|
|||
|
|
| | | quit |
|
|||
|
|
| f | delete-frame | |
|
|||
|
|
| q | save-buffers-kill-terminal | |
|
|||
|
|
| Q | kill-emacs | |
|