blob: c83c1e5a8c35a7ce5431a9d1b45b3272e489255b (
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
|
;;; ss-keys.el --- Global keybindings -*- lexical-binding: t; -*-
;;; Commentary:
;; Centralized global keybindings for enabled features.
;;; Code:
(require 'ss-core)
(defun ss-keys-setup ()
"Install global keybindings for enabled features."
(when (ss-feature-enabled-p 'agenda)
(global-set-key (kbd "C-c a") #'ss-open-agenda))
(when (ss-feature-enabled-p 'capture)
(global-set-key (kbd "C-c c") #'org-capture))
(when (and (ss-feature-enabled-p 'denote)
(fboundp 'denote-open-or-create)
(fboundp 'denote-link))
(global-set-key (kbd "C-c n n") #'denote-open-or-create)
(global-set-key (kbd "C-c n l") #'denote-link))
(when (ss-feature-enabled-p 'org)
(global-set-key (kbd "C-c n M") #'ss-open-moc)
(global-set-key (kbd "C-c n j") #'ss-open-journal-full)
(global-set-key (kbd "C-c n d") #'ss-open-journal))
(when (ss-feature-enabled-p 'crm)
(global-set-key (kbd "C-c n E") #'ss-crm-report-by-engagement)
(global-set-key (kbd "C-c n f") #'ss-crm-find)
(global-set-key (kbd "C-c n i") #'ss-crm-insert-name)
(global-set-key (kbd "C-c n I") #'ss-crm-insert-summary)
(global-set-key (kbd "C-c n L") #'ss-crm-report-by-location)
(global-set-key (kbd "C-c n o") #'ss-crm-overview)
(global-set-key (kbd "C-c n O") #'ss-crm-report-by-role)
(global-set-key (kbd "C-c n p") #'ss-crm-open)
(global-set-key (kbd "C-c n P") #'ss-crm-add)
(global-set-key (kbd "C-c n R") #'ss-crm-report-by-manager)
(global-set-key (kbd "C-c n S") #'ss-crm-report-by-supplier)
(global-set-key (kbd "C-c n T") #'ss-crm-report-by-team))
(when (and (ss-feature-enabled-p 'gptel)
(fboundp 'gptel)
(fboundp 'gptel-send)
(fboundp 'gptel-rewrite)
(fboundp 'gptel-add))
(global-set-key (kbd "C-c n g") #'gptel)
(global-set-key (kbd "C-c n s") #'gptel-send)
(global-set-key (kbd "C-c n r") #'gptel-rewrite)
(global-set-key (kbd "C-c n a") #'gptel-add)))
(provide 'ss-keys)
;;; ss-keys.el ends here
|
