blob: ccfd83cb43deb8cc492b0e7d1a8510ae7f828386 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
;;; keybindings --- General Keyboard Shortcuts -*- lexical-binding: t; -*-
;; author: Craig Jennings <c@cjennings.net>
;;; Commentary:
;; TLDR: "C-c ?" Should bring up a helpful menu from wherever you are.
;; I've created a general menu that contains commonly used applications and
;; utilities.
;; There are also helpful menus that describe common functionality from within
;; another package, e.g., ledger. You access these with the same "C-c ? keyboard
;; shortcut"
;; Also, commonly used files should be easy to jump to. The "jump-to" keymap
;; refers to files defined in user-constants.el.
;; "Hostile Keybindings" are those that are close to keybindings I use commonly
;; so they're easy to hit by accident, but they have painful results. I'd
;; rather avoid the pain by unsetting they keybindings and view an error '<key>
;; is undefined' message. Finally, I'm providing messages to train me to use
;; faster keybindings and provide feedback when evaluating buffers.
;;; Code:
;; make org-store-link binding global
(global-set-key (kbd "C-c l") 'org-store-link)
;; remap Shift Backspace to Delete
(global-set-key (kbd "S-<backspace>") 'delete-forward-char)
;; ----------------------------------- Hydra -----------------------------------
;; provides ability to create menus
(use-package hydra
:demand t) ;; used in init, so load it now
;; --------------------------------- Main Hydra --------------------------------
;; convenience menu for commonly used apps
(defhydra hydra-general (:color blue :hint nil)
"
Main Menu
^Applications^ ^Communication^ ^Utilities^ ^Entertainment
^^^^^^^^--------------------------------------------------------------------------------
_f_: Feed Reader _m_: Mu4e Email _p_: Open Project _r_: Play Radio
_b_: Ebook Manager _i_: IRC _c_: Calculator _g_: Games Menu
_F_: File Manager ^^ _W_: World Clock
_d_: Flashcard Drill ^^ _z_: Diff Directories
^^ ^^
^^ ^^ ^^ _q_: quit
\n\n
"
("q" nil)
;; Applications
("f" elfeed-dashboard)
("b" calibredb)
("F" (dirvish user-home-dir))
("d" cj/drill-start)
;; Communication
("m" mu4e)
("i" cj/erc-start-or-switch)
;; Utilities
("p" projectile-switch-project)
("c" calc)
("W" world-clock)
("z" ztree-diff)
;; Entertainment
("r" eradio-play)
("g" hydra-games/body))
(global-set-key (kbd "C-c ?") 'hydra-general/body)
;; ------------------------------ Jump To Commands -----------------------------
;; quick access for commonly used files
(defvar jump-to-keymap (make-sparse-keymap)
"Jump-to commonly used files/directories/commands.")
(global-set-key (kbd "C-c j") jump-to-keymap)
(define-key jump-to-keymap (kbd "r")
#'(lambda () (interactive) (find-file reference-file)))
(define-key jump-to-keymap (kbd "s")
#'(lambda () (interactive) (find-file schedule-file)))
(define-key jump-to-keymap (kbd "i")
#'(lambda () (interactive) (find-file inbox-file)))
(define-key jump-to-keymap (kbd "c")
#'(lambda () (interactive) (find-file contacts-file)))
(define-key jump-to-keymap (kbd "a")
#'(lambda () (interactive) (find-file article-file)))
(define-key jump-to-keymap (kbd "A")
#'(lambda () (interactive) (find-file article-archive)))
(define-key jump-to-keymap (kbd "$")
#'(lambda () (interactive) (find-file ledger-file)))
(define-key jump-to-keymap (kbd "m")
#'(lambda () (interactive) (find-file macros-file)))
(define-key jump-to-keymap (kbd "n")
#'(lambda () (interactive) (find-file reading-notes-file)))
(define-key jump-to-keymap (kbd "I")
#'(lambda () (interactive) (find-file emacs-init-file)))
;; ---------------------------- Keybinding Discovery ---------------------------
(use-package free-keys
:defer 1
:bind ("C-h C-k" . free-keys))
(use-package which-key
:defer 1
:config
(setq which-key-idle-delay 3.0
which-key-popup-type 'side-window)
(which-key-setup-side-window-right-bottom)
(which-key-mode 1))
;; ---------------------------- General Keybindings ----------------------------
;; Avoid hostile bindings
(global-unset-key (kbd "C-x C-f")) ;; find-file-read-only
(global-unset-key (kbd "C-z")) ;; suspend-frame is accidentally hit often
(global-unset-key (kbd "M-o")) ;; facemenu-mode
;; Add commonly-used general keybindings
(global-set-key (kbd "C-x C-f") 'find-file)
(global-set-key (kbd "C-c f") 'link-hint-open-link-at-point)
(global-set-key (kbd "M-*") 'calculator)
;; Normally bound to ESC ESC ESC, hit ESC once to get out of unpleasant situations.
(global-set-key (kbd "<escape>") 'keyboard-escape-quit)
;; remap C-x \ to sort-lines (from remap activate-transient-input-method)
(global-unset-key (kbd "C-x \\"))
(global-set-key (kbd "C-x \\") 'sort-lines)
;; training myself to use C-/ for undo (bound internally) as it's faster.
(if (display-graphic-p)
(progn
(global-unset-key (kbd "C-x u"))
(define-key global-map (kbd "C-x u")
#'(lambda () (interactive)
(message (concat "Seriously, " user-name
"? Use 'C-/'. It's faster."))))))
;; evaluating a buffer should give confirmation or error.
(defun cj/eval-buffer-with-confirmation-or-error-message ()
"Evaluate the buffer and display a message."
(interactive)
(let ((result (eval-buffer)))
(if (not (eq result 'error))
(message "Buffer evaluated.")
(message "error occurred during evaluation: %s" result))))
(global-set-key (kbd "C-c b") 'cj/eval-buffer-with-confirmation-or-error-message)
(provide 'keybindings)
;;; keybindings.el ends here
|
