init.el

@@ -453,8 +453,6 @@ 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
@@ -3111,7 +3109,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) ; TODO: this does not update when the keymap is changed
+  (bind-key "<f2>" db/frequently-used-features-map)
   (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 db/find-default-org-file)
+    ("Main Org File" ?o (lambda () (interactive) (find-file db/org-default-org-file)))
     ("EMMS" ?M emms)
     ("Shell" ?s project-shell)
     ("EShell" ?e project-eshell)
-    ("Refile File" ?r db/find-default-refile-file)
+    ("Refile File" ?r (lambda () (interactive) (find-file db/org-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,28 +68,10 @@ If already in *ansi-term* buffer, bury it."
   (switch-to-buffer "*scratch*"))
 
 (defun db/find-user-init-file ()
-  "Open buffer for `user-init-file'."
+  "Edit `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.