diff --git a/init.el b/init.el index d4f5a93..491262a 100644 --- a/init.el +++ b/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 diff --git a/site-lisp/db-customize.el b/site-lisp/db-customize.el index 17f73c5..e8441b6 100644 --- a/site-lisp/db-customize.el +++ b/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) diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index 9c42799..a100a50 100644 --- a/site-lisp/db-utils.el +++ b/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.