diff options
author | Kyle Meyer <kyle@kyleam.com> | 2022-07-30 01:40:48 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2022-11-26 21:45:14 -0500 |
commit | 9f75de5bb43135b6d72dc28ffa4c6e3470daa35e (patch) | |
tree | 7cd5d9edf16b84a1d3063066d6267187b973828d | |
parent | 534b7c090689c61ea3d5a1f45e76cf101efb8a3f (diff) | |
download | emacs.d-9f75de5bb43135b6d72dc28ffa4c6e3470daa35e.tar.gz |
org: Avoid hard-coding notes location in multiple places
Use org-directory instead.
-rw-r--r-- | init.el | 8 | ||||
-rw-r--r-- | lisp/km-org-agenda.el | 2 |
2 files changed, 6 insertions, 4 deletions
@@ -154,7 +154,9 @@ org-goto-max-level 3) (setq org-startup-folded t) - (setq org-default-notes-file "~/notes/tasks.org") + (setq org-directory (expand-file-name "~/notes/")) + (setq org-default-notes-file (concat (file-name-as-directory org-directory) + "tasks.org")) (setq org-reverse-note-order t) (setq org-refile-targets '((nil :maxlevel . 2)) @@ -380,8 +382,8 @@ #'km/org-agenda-set-restriction-lock)) :config - (setq org-directory "~/notes/") - (setq org-agenda-files "~/notes/agenda-files") + (setq org-agenda-files (concat (file-name-as-directory org-directory) + "agenda-files")) (add-hook 'org-agenda-finalize-hook #'km/org-agenda-cd-and-read-dir-locals) (add-hook 'org-agenda-finalize-hook #'km/org-agenda-store-current-span) diff --git a/lisp/km-org-agenda.el b/lisp/km-org-agenda.el index c0f9539..ded7afc 100644 --- a/lisp/km-org-agenda.el +++ b/lisp/km-org-agenda.el @@ -33,7 +33,7 @@ (defun km/org-agenda-cd-and-read-dir-locals () (unless (get 'org-agenda-files 'org-restrict) - (setq default-directory (expand-file-name "~/notes/")) + (setq default-directory org-directory) (hack-local-variables))) (defun km/org-agenda-store-current-span () |