blob: bf23ebc4647ce17cb95b3b2b36b3e92bdc5ec608 (
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
|
;;; 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:
;; ----------------------------------- 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 _t_: Telegram _c_: Calculator _g_: Games Menu
_F_: File Manager _i_: IRC _W_: World Clock
_l_: Ledger Accounting ^^ _z_: Diff Directories
_d_: Flashcard Drill ^^ ^^
^^ ^^ ^^ _q_: quit
\n\n
"
("q" nil)
;; Applications
("f" elfeed-dashboard)
("b" calibredb)
("F" (dirvish user-home-dir))
("l" (find-file ledger-file))
("d" cj/drill-start)
;; Communication
("m" mu4e)
("t" telega)
("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 nil "Jump-to commonly used files/directories/commands.")
(setq jump-to-keymap (make-sparse-keymap))
(global-set-key (kbd "C-c j") jump-to-keymap)
(define-key jump-to-keymap (kbd "E") #'(lambda () (interactive) (find-file emacs-early-init-file)))
(define-key jump-to-keymap (kbd "I") #'(lambda () (interactive) (find-file emacs-init-file)))
(define-key jump-to-keymap (kbd "i") #'(lambda () (interactive) (find-file inbox-file)))
(define-key jump-to-keymap (kbd "A") #'(lambda () (interactive) (find-file article-archive)))
(define-key jump-to-keymap (kbd "a") #'(lambda () (interactive) (find-file article-file)))
(define-key jump-to-keymap (kbd "c") #'(lambda () (interactive) (find-file contacts-file)))
(define-key jump-to-keymap (kbd "s") #'(lambda () (interactive) (find-file schedule-file)))
(define-key jump-to-keymap (kbd "m") #'(lambda () (interactive) (find-file macros-file)))
(define-key jump-to-keymap (kbd "$") #'(lambda () (interactive) (find-file ledger-file)))
;; ---------------------------- 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 u") 'capitalize-region)
(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
|
