Note deficit when using keymaps for frequently used features

init.el

@@ -453,6 +453,8 @@ split horizontally again, but this extra work should not matter much."
              db/org-agenda
              db/scratch
              db/find-user-init-file
+             db/find-default-org-file
+             db/find-default-refile-file
              db/run-or-hide-ansi-term
              db/ement-connect
              db/hex-to-ascii
@@ -3109,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-map)
+  (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

@@ -155,11 +155,11 @@ in the main agenda view."
   '(("Mail" ?m db/gnus)
     ("Agenda" ?a db/org-agenda)
     ("Init File" ?i db/find-user-init-file)
-    ("Main Org File" ?o (lambda () (interactive) (find-file db/org-default-org-file)))
+    ("Main Org File" ?o db/find-default-org-file)
     ("EMMS" ?M emms)
     ("Shell" ?s project-shell)
     ("EShell" ?e project-eshell)
-    ("Refile File" ?r (lambda () (interactive) (find-file db/org-default-refile-file)))
+    ("Refile File" ?r db/find-default-refile-file)
     ("Goto Currnet Clock" ?c db/org-clock-goto-first-open-checkbox)
     ("Info Lookup" ?I info-lookup-symbol)
     ("Unicode Lookup" ?U insert-char)

site-lisp/db-utils.el

@@ -68,10 +68,28 @@ If already in *ansi-term* buffer, bury it."
   (switch-to-buffer "*scratch*"))
 
 (defun db/find-user-init-file ()
-  "Edit `user-init-file'."
+  "Open buffer for `user-init-file'."
   (interactive)
   (find-file user-init-file))
 
+(defun db/find-default-org-file ()
+  "Open buffer for `db/org-default-org-file', when set."
+  (interactive)
+  (unless (boundp 'db/org-default-org-file)
+    (user-error "Cannot open default Org file: variable `db/org-default-org-file' not set"))
+  (unless (file-exists-p db/org-default-org-file)
+    (user-error "Cannot open default Org file: file «%s» does not exist" db/org-default-org-file))
+  (find-file db/org-default-org-file))
+
+(defun db/find-default-refile-file ()
+  "Open buffer for `db/org-default-refile-file', when set."
+  (interactive)
+  (unless (boundp 'db/org-default-refile-file)
+    (user-error "Cannot open default refile file: not set"))
+  (unless (file-exists-p db/org-default-refile-file)
+    (user-error "Cannot open default refile file: file «%s» does not exist" db/org-default-refile-file))
+  (find-file db/org-default-refile-file))
+
 (defun db/run-or-hide-shell (arg)
   "Opens a shell buffer in new window if not already in one.