exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: exot:12458f7dc1b1d6f592ae8b96ea50b28ea2a34415
Branches Tags
exot:master
...
compare: exot:69564d049527c8c6e04fd8ae27b934b7b2a616d0
Branches Tags
exot:master

2 Commits
12458f7dc1 ... 69564d0495

Author SHA1 Message Date
Daniel Borchmann
69564d0495
Make checkdoc a bit more happy 2025-06-16 12:24:00 +02:00
Daniel Borchmann
66d32f0ff8
Make redefinition of frequently used features keymap work 
Replaced keymap with prefix funtion for this.  Not completely understood yet what I am doing here.
 2025-06-16 12:23:31 +02:00
2 changed files with 9 additions and 11 deletions
Show Stats Expand all files Collapse all files

5
init.el
View File

@ -92,7 +92,8 @@
db/org-default-home-file db/org-default-home-file
db/org-default-notes-file db/org-default-notes-file
db/org-default-refile-file db/org-default-refile-file
db/after-init-load-files)) db/after-init-load-files
db/frequently-used-features-prefix))
;; * Core Configuration ;; * Core Configuration
@ -3111,7 +3112,7 @@ eventuelly be set to nil, however)."
(bind-key "<XF86Forward>" #'winner-redo) (bind-key "<XF86Forward>" #'winner-redo)
(bind-key "<Scroll_Lock>" 'scroll-lock-mode) (bind-key "<Scroll_Lock>" 'scroll-lock-mode)
(bind-key "<f1>" #'db/run-or-hide-eshell) (bind-key "<f1>" #'db/run-or-hide-eshell)
(bind-key "<f2>" db/frequently-used-features-map) ; TODO: this does not update when the keymap is changed (bind-key "<f2>" #'db/frequently-used-features-prefix)
(bind-key "<f5>" #'project-find-regexp) (bind-key "<f5>" #'project-find-regexp)
(bind-key "<f6>" #'text-scale-adjust) (bind-key "<f6>" #'text-scale-adjust)
(bind-key "<f7>" #'dictcc) (bind-key "<f7>" #'dictcc)

15
site-lisp/db-customize.el
View File

@ -144,13 +144,10 @@ in the main agenda view."
:type '(choice (const nil) file)) :type '(choice (const nil) file))
(defcustom db/org-default-pensieve-file nil (defcustom db/org-default-pensieve-file nil
"Path to default org-mode file for private notes." "Path to default Org mode file for private notes."
:group 'personal-settings :group 'personal-settings
:type '(choice (const nil) file)) :type '(choice (const nil) file))
(defvar db/frequently-used-features-map (make-sparse-keymap)
"Functions from `db/frequently-used-features' bound to shortcuts.")
(defcustom db/frequently-used-features (defcustom db/frequently-used-features
'(("Mail" ?m db/gnus) '(("Mail" ?m db/gnus)
("Agenda" ?a db/org-agenda) ("Agenda" ?a db/org-agenda)
@ -177,11 +174,11 @@ character, nil can be chosen, in which case no entry in the
:type '(repeat (list string (choice character (const nil)) function)) :type '(repeat (list string (choice character (const nil)) function))
:set #'(lambda (symbol value) :set #'(lambda (symbol value)
(set-default symbol value) (set-default symbol value)
(setq db/frequently-used-features-map (make-sparse-keymap)) (let ((map (make-sparse-keymap)))
(mapc #'(lambda (entry) (mapc (pcase-lambda (`(_ ,shortcut ,function))
(pcase-let ((`(_ ,shortcut ,function) entry)) (keymap-set map (string shortcut) function))
(keymap-set db/frequently-used-features-map (string shortcut) function))) value)
db/frequently-used-features))) (fset 'db/frequently-used-features-prefix map))))