changeset 698: | 96958d3eb5b0 |
parent: | 849f72b72b41 |
author: | Richard Westhaver <ellis@rwest.io> |
date: | Fri, 04 Oct 2024 22:04:59 -0400 |
permissions: | -rw-r--r-- |
description: | fixes |
26 | 1 | ;;; keys.el --- emacs keys -*- lexical-binding: t -*- |
2 | ||
3 | ;; default keybinds |
|
4 | ||
5 | ;;; Commentary: |
|
6 | ||
7 | ;; I encourage you to remap these keys as you see fit. Where possible, |
|
8 | ;; wrap your custom bindings in a keymap instead of redefining the |
|
9 | ;; global defaults defined here. |
|
10 | ||
11 | ;;; Code: |
|
59 | 12 | (require 'default) |
26 | 13 | |
35 | 14 | (defvar-keymap parens-map |
15 | :doc "parens-minor-mode keymap." |
|
16 | :repeat (:enter) |
|
17 | :prefix 'parens-map |
|
18 | "u" #'backward-up-list |
|
19 | "f" #'forward-sexp |
|
20 | "b" #'backward-sexp |
|
21 | "d" #'down-list |
|
22 | "k" #'kill-sexp |
|
23 | "\\" #'indent-region |
|
24 | "/" #'undo |
|
25 | "t" #'transpose-sexps |
|
26 | "x" #'eval-defun) |
|
27 | ||
30 | 28 | (defvar-keymap toggle-map |
29 | :doc "User-specified keymap for mode toggles. Usually bound to 'C-c c SPC'." |
|
30 | :prefix 'toggle-map |
|
31 | "v" #'global-visual-line-mode |
|
32 | "h" #'global-hl-line-mode |
|
496
6359b351657a
tmux controller, cli upgrades
Richard Westhaver <ellis@rwest.io>
parents:
455
diff
changeset
|
33 | "i" #'imenu-list-smart-toggle |
148
0d9d5cd46af5
added net/stream.rs, change def-ts-lang to macrolet form
ellis <ellis@rwest.io>
parents:
59
diff
changeset
|
34 | "N" #'global-display-line-numbers-mode |
42 | 35 | "c" #'corfu-mode |
30 | 36 | "a" #'gpm-mouse-mode |
37 | "r" #'refill-mode |
|
38 | 38 | "o" #'outline-minor-mode |
39 | "O" #'allout-mode |
|
30 | 40 | "R" #'global-auto-revert-mode |
41 | "t" #'toggle-frame-tab-bar |
|
635
849f72b72b41
add back fuzz.lisp and proper codegen for parquet.json thrift definitions
Richard Westhaver <ellis@rwest.io>
parents:
629
diff
changeset
|
42 | "T" #'load-theme |
30 | 43 | "d" #'toggle-debug-on-error |
31 | 44 | "SPC" #'toggle-macro-recording |
616
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
613
diff
changeset
|
45 | "x" #'org-clock-toggle-auto-clockout |
59 | 46 | "s" #'slime-toggle |
47 | "w" #'which-key-mode) |
|
30 | 48 | |
49 | (defvar-keymap status-map |
|
50 | :doc "User-specified keymap for status functions. Usually bound to 'C-c c .'." |
|
51 | "l" #'eglot-list-connections |
|
52 | "p" #'list-processes |
|
53 | "t" #'list-threads |
|
54 | "a" #'list-abbrevs |
|
55 | "c" #'list-timers |
|
56 | "d" #'list-dynamic-libraries |
|
57 | "P" #'list-packages) |
|
58 | ||
31 | 59 | (defvar-keymap server-map |
60 | :doc "User-specified keymap for server functions. Usually bound to 'C-c c q'." |
|
61 | "q" #'kill-emacs |
|
62 | "r" #'kill-emacs-restart) |
|
63 | ||
64 | (defvar-keymap review-map |
|
65 | :doc "User-specified keymap for review functions. Usually bound to 'C-c c r'." |
|
66 | "s" #'flyspell-buffer |
|
58
77dbb3c71667
refactoring rust apps, install.org, tests.org
ellis <ellis@rwest.io>
parents:
57
diff
changeset
|
67 | "SPC" #'whitespace-cleanup |
613 | 68 | "C-s" #'org-schedule-effort |
58
77dbb3c71667
refactoring rust apps, install.org, tests.org
ellis <ellis@rwest.io>
parents:
57
diff
changeset
|
69 | "u" #'untabify |
77dbb3c71667
refactoring rust apps, install.org, tests.org
ellis <ellis@rwest.io>
parents:
57
diff
changeset
|
70 | "q" #'query-replace-regexp) |
77dbb3c71667
refactoring rust apps, install.org, tests.org
ellis <ellis@rwest.io>
parents:
57
diff
changeset
|
71 | |
77dbb3c71667
refactoring rust apps, install.org, tests.org
ellis <ellis@rwest.io>
parents:
57
diff
changeset
|
72 | (defvar-keymap search-map |
77dbb3c71667
refactoring rust apps, install.org, tests.org
ellis <ellis@rwest.io>
parents:
57
diff
changeset
|
73 | :doc "User-specified keymap for search functions. Usually bound to 'C-c c s'." |
77dbb3c71667
refactoring rust apps, install.org, tests.org
ellis <ellis@rwest.io>
parents:
57
diff
changeset
|
74 | "g" #'grep |
77dbb3c71667
refactoring rust apps, install.org, tests.org
ellis <ellis@rwest.io>
parents:
57
diff
changeset
|
75 | "r" #'rgrep |
77dbb3c71667
refactoring rust apps, install.org, tests.org
ellis <ellis@rwest.io>
parents:
57
diff
changeset
|
76 | "z" #'zrgrep |
77dbb3c71667
refactoring rust apps, install.org, tests.org
ellis <ellis@rwest.io>
parents:
57
diff
changeset
|
77 | "f" #'re-search-forward |
77dbb3c71667
refactoring rust apps, install.org, tests.org
ellis <ellis@rwest.io>
parents:
57
diff
changeset
|
78 | "b" #'re-search-backward |
77dbb3c71667
refactoring rust apps, install.org, tests.org
ellis <ellis@rwest.io>
parents:
57
diff
changeset
|
79 | "d" #'xref-find-definitions |
77dbb3c71667
refactoring rust apps, install.org, tests.org
ellis <ellis@rwest.io>
parents:
57
diff
changeset
|
80 | "a" #'xref-find-apropos |
31 | 81 | "SPC" #'whitespace-cleanup) |
82 | ||
616
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
613
diff
changeset
|
83 | (defvar-keymap clock-map |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
613
diff
changeset
|
84 | :doc "User-specified keymap for org-clock functions. Usually bound to 'C-c c t'." |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
613
diff
changeset
|
85 | "j" #'org-clock-goto |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
613
diff
changeset
|
86 | "i" #'org-clock-in |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
613
diff
changeset
|
87 | "o" #'org-clock-out |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
613
diff
changeset
|
88 | "d" #'org-clock-display |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
613
diff
changeset
|
89 | "x" #'org-clock-cancel |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
613
diff
changeset
|
90 | "l" #'org-clock-in-last |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
613
diff
changeset
|
91 | "e" #'org-clock-modify-effort-estimate |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
613
diff
changeset
|
92 | "m" #'org-clock-mark-default-task) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
613
diff
changeset
|
93 | |
30 | 94 | (defvar-keymap user-map |
95 | :doc "User-specified keymap usually bound to 'C-c c' and populated in 'custom.el'." |
|
96 | :prefix 'user-map |
|
97 | "c" #'org-capture |
|
635
849f72b72b41
add back fuzz.lisp and proper codegen for parquet.json thrift definitions
Richard Westhaver <ellis@rwest.io>
parents:
629
diff
changeset
|
98 | "1" #'org-inbox-open |
30 | 99 | "l" #'org-store-link |
606
6fc04c4d465c
emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
496
diff
changeset
|
100 | "C-l" #'org-web-tools-insert-link-for-url |
31 | 101 | "f" #'load-file |
102 | "u" #'compile |
|
30 | 103 | "a" #'org-agenda |
429 | 104 | "A" #'org-agenda-show-week-all |
623 | 105 | "RET" #'eshell |
629
ab02408636b7
elisp work, added slime-company (to be deprecated)
Richard Westhaver <ellis@rwest.io>
parents:
623
diff
changeset
|
106 | "C-<return>" #'eshell-new |
ab02408636b7
elisp work, added slime-company (to be deprecated)
Richard Westhaver <ellis@rwest.io>
parents:
623
diff
changeset
|
107 | "s-<return>" #'term |
30 | 108 | "!" #'async-shell-command |
496
6359b351657a
tmux controller, cli upgrades
Richard Westhaver <ellis@rwest.io>
parents:
455
diff
changeset
|
109 | "i" #'imenu |
30 | 110 | "SPC" toggle-map |
111 | "." status-map |
|
58
77dbb3c71667
refactoring rust apps, install.org, tests.org
ellis <ellis@rwest.io>
parents:
57
diff
changeset
|
112 | "s" search-map |
31 | 113 | "r" review-map |
114 | "q" server-map |
|
35 | 115 | "(" parens-map |
613 | 116 | "M-l" #'duplicate-dwim |
34 | 117 | "d i" #'image-dired |
623 | 118 | "TAB" #'outline-cycle |
30 | 119 | "<backtab>" #'outline-cycle-buffer |
34 | 120 | "z" #'scratch-buffer |
121 | "C-z" #'scratch-new |
|
31 | 122 | "Z" #'default-scratch-buffer |
619 | 123 | "t" clock-map |
31 | 124 | ";" #'prog-comment-dwim |
125 | "C-;" #'prog-comment-timestamp-keyword) |
|
126 | ||
127 | ;;; Modes |
|
59 | 128 | (add-hook |
33 | 129 | 'conf-toml-mode-hook |
130 | (lambda () |
|
131 | (keymap-set conf-toml-mode-map "C-c C-c C-r" #'rust-run) |
|
132 | (keymap-set conf-toml-mode-map "C-c C-c C-u" #'rust-compile) |
|
133 | (keymap-set conf-toml-mode-map "C-c C-c C-t" #'rust-test))) |
|
30 | 134 | |
135 | ;;; C-x |
|
34 | 136 | (keymap-set ctl-x-map "C-b" #'ibuffer) |
30 | 137 | |
138 | ;;; C-x r |
|
139 | (keymap-set ctl-x-r-map "SPC" #'point-to-register) |
|
140 | (keymap-set ctl-x-r-map "C-l" #'list-registers) |
|
141 | (keymap-set ctl-x-r-map "C-b" #'buffer-to-register) |
|
142 | (keymap-set ctl-x-r-map "C-f" #'file-query-to-register) |
|
143 | (keymap-set ctl-x-r-map "C-r" #'copy-register) |
|
144 | ||
145 | ;;; C-x x |
|
146 | ||
147 | ;;; Global |
|
148 | (keymap-global-set "C-c c" user-map) |
|
34 | 149 | (keymap-global-set "<remap> <tab-to-tab-stop>" #'imenu) |
35 | 150 | (keymap-global-set "<XF86Paste>" parens-map) |
57 | 151 | (keymap-global-set "C-c C-p" #'outline-previous-heading) |
152 | (keymap-global-set "C-c C-n" #'outline-next-heading) |
|
455
49f2d3f1d6c1
emacs updates and added back monolithic std build
Richard Westhaver <ellis@rwest.io>
parents:
429
diff
changeset
|
153 | (global-set-key [remap dabbrev-expand] 'hippie-expand) |
619 | 154 | (keymap-global-set "C-c a" #'org-agenda) |
155 | (keymap-global-set "C-c t" #'org-todo) |
|
27 | 156 | |
157 | (provide 'keys) |
|
158 | ;; keys.el ends here |