init.el

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

site-lisp/db-customize.el

@@ -144,10 +144,13 @@ in the main agenda view."
   :type '(choice (const nil) file))
 
 (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
   :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
   '(("Mail" ?m db/gnus)
     ("Agenda" ?a db/org-agenda)
@@ -174,11 +177,11 @@ character, nil can be chosen, in which case no entry in the
   :type  '(repeat (list string (choice character (const nil)) function))
   :set #'(lambda (symbol value)
            (set-default symbol value)
-           (let ((map (make-sparse-keymap)))
-             (mapc (pcase-lambda (`(_ ,shortcut ,function))
-                     (keymap-set map (string shortcut) function))
-                   value)
-             (fset 'db/frequently-used-features-prefix map))))
+           (setq db/frequently-used-features-map (make-sparse-keymap))
+           (mapc #'(lambda (entry)
+                     (pcase-let ((`(_ ,shortcut ,function) entry))
+                       (keymap-set db/frequently-used-features-map (string shortcut) function)))
+                 db/frequently-used-features)))