changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate emacs/keys.el

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
51a8370766f7 emacs config
ellis <ellis@rwest.io>
parents: 21
diff changeset
1
 ;;; keys.el --- emacs keys -*- lexical-binding: t -*-
51a8370766f7 emacs config
ellis <ellis@rwest.io>
parents: 21
diff changeset
2
 
51a8370766f7 emacs config
ellis <ellis@rwest.io>
parents: 21
diff changeset
3
 ;; default keybinds
51a8370766f7 emacs config
ellis <ellis@rwest.io>
parents: 21
diff changeset
4
 
51a8370766f7 emacs config
ellis <ellis@rwest.io>
parents: 21
diff changeset
5
 ;;; Commentary:
51a8370766f7 emacs config
ellis <ellis@rwest.io>
parents: 21
diff changeset
6
 
51a8370766f7 emacs config
ellis <ellis@rwest.io>
parents: 21
diff changeset
7
 ;; I encourage you to remap these keys as you see fit. Where possible,
51a8370766f7 emacs config
ellis <ellis@rwest.io>
parents: 21
diff changeset
8
 ;; wrap your custom bindings in a keymap instead of redefining the
51a8370766f7 emacs config
ellis <ellis@rwest.io>
parents: 21
diff changeset
9
 ;; global defaults defined here.
51a8370766f7 emacs config
ellis <ellis@rwest.io>
parents: 21
diff changeset
10
 
51a8370766f7 emacs config
ellis <ellis@rwest.io>
parents: 21
diff changeset
11
 ;;; Code:
59
ce1a5c531abf el cleanup
ellis <ellis@rwest.io>
parents: 58
diff changeset
12
 (require 'default)
26
51a8370766f7 emacs config
ellis <ellis@rwest.io>
parents: 21
diff changeset
13
 
35
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
14
 (defvar-keymap parens-map
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
15
   :doc "parens-minor-mode keymap."
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
16
   :repeat (:enter)
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
17
   :prefix 'parens-map
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
18
   "u" #'backward-up-list
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
19
   "f" #'forward-sexp
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
20
   "b" #'backward-sexp
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
21
   "d" #'down-list
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
22
   "k" #'kill-sexp
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
23
   "\\" #'indent-region
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
24
   "/" #'undo
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
25
   "t" #'transpose-sexps
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
26
   "x" #'eval-defun)
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
27
 
30
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
28
 (defvar-keymap toggle-map
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
29
   :doc "User-specified keymap for mode toggles. Usually bound to 'C-c c SPC'."
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
30
   :prefix 'toggle-map
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
31
   "v" #'global-visual-line-mode
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
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
ellis <ellis@rwest.io>
parents: 39
diff changeset
35
   "c" #'corfu-mode
30
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
36
   "a" #'gpm-mouse-mode
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
37
   "r" #'refill-mode
38
a4186c03d6cf defaults
ellis <ellis@rwest.io>
parents: 35
diff changeset
38
   "o" #'outline-minor-mode
a4186c03d6cf defaults
ellis <ellis@rwest.io>
parents: 35
diff changeset
39
   "O" #'allout-mode
30
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
40
   "R" #'global-auto-revert-mode
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
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
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
43
   "d" #'toggle-debug-on-error
31
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
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
ce1a5c531abf el cleanup
ellis <ellis@rwest.io>
parents: 58
diff changeset
46
   "s" #'slime-toggle
ce1a5c531abf el cleanup
ellis <ellis@rwest.io>
parents: 58
diff changeset
47
   "w" #'which-key-mode)
30
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
48
 
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
49
 (defvar-keymap status-map
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
50
   :doc "User-specified keymap for status functions. Usually bound to 'C-c c .'."
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
51
   "l" #'eglot-list-connections
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
52
   "p" #'list-processes
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
53
   "t" #'list-threads
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
54
   "a" #'list-abbrevs
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
55
   "c" #'list-timers
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
56
   "d" #'list-dynamic-libraries
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
57
   "P" #'list-packages)
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
58
 
31
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
59
 (defvar-keymap server-map
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
60
   :doc "User-specified keymap for server functions. Usually bound to 'C-c c q'."
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
61
   "q"  #'kill-emacs
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
62
   "r" #'kill-emacs-restart)
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
63
 
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
64
 (defvar-keymap review-map
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
65
   :doc "User-specified keymap for review functions. Usually bound to 'C-c c r'."
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
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
9ffe93dbe9b9 el tweaks
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
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
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
81
   "SPC" #'whitespace-cleanup)
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
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
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
94
 (defvar-keymap user-map
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
95
   :doc "User-specified keymap usually bound to 'C-c c' and populated in 'custom.el'."
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
96
   :prefix 'user-map
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
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
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
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
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
101
   "f" #'load-file
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
102
   "u" #'compile
30
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
103
   "a" #'org-agenda
429
a698dd5de562 babel setup
Richard Westhaver <ellis@rwest.io>
parents: 188
diff changeset
104
   "A" #'org-agenda-show-week-all
623
a304c9713a51 init graph.el
Richard Westhaver <ellis@rwest.io>
parents: 619
diff changeset
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
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
108
   "!" #'async-shell-command
496
6359b351657a tmux controller, cli upgrades
Richard Westhaver <ellis@rwest.io>
parents: 455
diff changeset
109
   "i" #'imenu
30
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
110
   "SPC" toggle-map
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
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
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
113
   "r" review-map
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
114
   "q" server-map
35
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
115
   "(" parens-map
613
9ffe93dbe9b9 el tweaks
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
116
   "M-l" #'duplicate-dwim
34
882a5c1e7b9f emacs config
ellis <ellis@rwest.io>
parents: 33
diff changeset
117
   "d i" #'image-dired
623
a304c9713a51 init graph.el
Richard Westhaver <ellis@rwest.io>
parents: 619
diff changeset
118
   "TAB" #'outline-cycle
30
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
119
   "<backtab>" #'outline-cycle-buffer
34
882a5c1e7b9f emacs config
ellis <ellis@rwest.io>
parents: 33
diff changeset
120
   "z" #'scratch-buffer
882a5c1e7b9f emacs config
ellis <ellis@rwest.io>
parents: 33
diff changeset
121
   "C-z" #'scratch-new
31
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
122
   "Z" #'default-scratch-buffer
619
35a579313b80 init ini and vc work
Richard Westhaver <ellis@rwest.io>
parents: 618
diff changeset
123
   "t" clock-map
31
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
124
   ";" #'prog-comment-dwim
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
125
   "C-;" #'prog-comment-timestamp-keyword)
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
126
 
f28229bc9b58 emacs defaults
ellis <ellis@rwest.io>
parents: 30
diff changeset
127
 ;;; Modes
59
ce1a5c531abf el cleanup
ellis <ellis@rwest.io>
parents: 58
diff changeset
128
 (add-hook
33
e3b0ec661dfa added inbox.el, more emacs config
ellis <ellis@rwest.io>
parents: 31
diff changeset
129
  'conf-toml-mode-hook
e3b0ec661dfa added inbox.el, more emacs config
ellis <ellis@rwest.io>
parents: 31
diff changeset
130
  (lambda ()
e3b0ec661dfa added inbox.el, more emacs config
ellis <ellis@rwest.io>
parents: 31
diff changeset
131
    (keymap-set conf-toml-mode-map "C-c C-c C-r" #'rust-run)
e3b0ec661dfa added inbox.el, more emacs config
ellis <ellis@rwest.io>
parents: 31
diff changeset
132
    (keymap-set conf-toml-mode-map "C-c C-c C-u" #'rust-compile)
e3b0ec661dfa added inbox.el, more emacs config
ellis <ellis@rwest.io>
parents: 31
diff changeset
133
    (keymap-set conf-toml-mode-map "C-c C-c C-t" #'rust-test)))
30
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
134
 
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
135
 ;;; C-x
34
882a5c1e7b9f emacs config
ellis <ellis@rwest.io>
parents: 33
diff changeset
136
 (keymap-set ctl-x-map "C-b" #'ibuffer)
30
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
137
 
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
138
 ;;; C-x r
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
139
 (keymap-set ctl-x-r-map "SPC" #'point-to-register)
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
140
 (keymap-set ctl-x-r-map "C-l" #'list-registers)
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
141
 (keymap-set ctl-x-r-map "C-b" #'buffer-to-register)
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
142
 (keymap-set ctl-x-r-map "C-f" #'file-query-to-register)
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
143
 (keymap-set ctl-x-r-map "C-r" #'copy-register)
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
144
 
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
145
 ;;; C-x x
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
146
 
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
147
 ;;; Global
bb274c6c126a emacs defaults and keys
ellis <ellis@rwest.io>
parents: 27
diff changeset
148
 (keymap-global-set "C-c c" user-map)
34
882a5c1e7b9f emacs config
ellis <ellis@rwest.io>
parents: 33
diff changeset
149
 (keymap-global-set "<remap> <tab-to-tab-stop>" #'imenu)
35
b8b2433003ef paredit/repeat
ellis <ellis@rwest.io>
parents: 34
diff changeset
150
 (keymap-global-set "<XF86Paste>" parens-map)
57
be036d2eefea emacs updates
ellis <ellis@rwest.io>
parents: 42
diff changeset
151
 (keymap-global-set "C-c C-p" #'outline-previous-heading)
be036d2eefea emacs updates
ellis <ellis@rwest.io>
parents: 42
diff changeset
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
35a579313b80 init ini and vc work
Richard Westhaver <ellis@rwest.io>
parents: 618
diff changeset
154
 (keymap-global-set "C-c a" #'org-agenda)
35a579313b80 init ini and vc work
Richard Westhaver <ellis@rwest.io>
parents: 618
diff changeset
155
 (keymap-global-set "C-c t" #'org-todo)
27
1142c97f92ab emacs config
ellis <ellis@rwest.io>
parents: 26
diff changeset
156
 
1142c97f92ab emacs config
ellis <ellis@rwest.io>
parents: 26
diff changeset
157
 (provide 'keys)
1142c97f92ab emacs config
ellis <ellis@rwest.io>
parents: 26
diff changeset
158
 ;; keys.el ends here