From bacf9ceb0a64053cd44632aead2f0a04ab4ba649 Mon Sep 17 00:00:00 2001 From: BirDt_ Date: Tue, 13 Jan 2026 21:20:07 +0800 Subject: [PATCH] Use theurgy-org-directory in all places --- workflows/org-custom.el | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/workflows/org-custom.el b/workflows/org-custom.el index 214b640..2e76e09 100644 --- a/workflows/org-custom.el +++ b/workflows/org-custom.el @@ -373,13 +373,13 @@ (defun new-maintenance-file (maintenance-area) "Create a new maintenance file for a given `MAINTENANCE-AREA'." (interactive "sMaintenance area is: ") - (find-file (concat "~/.org/tasks/maintenance/" maintenance-area ".org")) + (find-file (concat theurgy-org-directory "tasks/maintenance/" maintenance-area ".org")) (insert "\n\n* Calendar\n\n* TO-DO\n\n* Routines\n\n* Archive\n") (goto-char (point-min))) (defun new-project-file (project-name acceptance-criteria) "Create a new project file for a given `PROJECT-NAME', with some `ACCEPTANCE-CRITERIA'." - (find-file (concat "~/.org/tasks/projects/" project-name ".org")) + (find-file (concat theurgy-org-directory "tasks/projects/" project-name ".org")) (insert (concat "\n\n* Acceptance Criteria\n\n" acceptance-criteria "\n\n* Ideas\n\n* TODO Work\n\n** Calendar\n\n** TO-DO\n\n** Routines\n\n** Archive\n")) (goto-char (point-min))) @@ -396,12 +396,12 @@ ;; Captures (defun select-task-area (location headline) "Prompt for a file in ~/.org/tasks/maintenance/ to insert the capture." - (let* ((files (directory-files (concat "~/.org/tasks/" location) t "\\.org$")) + (let* ((files (directory-files (concat theurgy-org-directory "tasks/" location) t "\\.org$")) (choices (mapcar (lambda (x) (string-remove-suffix ".org" x)) (mapcar #'file-name-nondirectory files))) (selected (completing-read "Choose a file: " choices nil t))) - (set-buffer (org-capture-target-buffer (concat "~/.org/tasks/" location selected ".org"))) + (set-buffer (org-capture-target-buffer (concat theurgy-org-directory "tasks/" location selected ".org"))) (org-capture-put-target-region-and-position) (widen) (goto-char (point-min)) @@ -423,7 +423,7 @@ (setq org-capture-templates '(("i" "Idea") ("ii" "Generic" entry - (file "~/.org/inbox.org") + (file (concat theurgy-org-directory "inbox.org")) "* %^{TITLE} :idea: \n\n%?" :empty-lines 1) ("ip" "Project" entry @@ -438,7 +438,7 @@ ("t" "Task") ("tt" "Generic") ("ttt" "Raw" entry - (file "~/.org/inbox.org") + (file (concat theurgy-org-directory "inbox.org")) "* TODO [%^{priority|#A|#B|#C|#D}] %^{TITLE} :task:\n\n%?" :empty-lines 1) ("ttm" "Maintenance" entry @@ -455,7 +455,7 @@ :empty-lines 1) ("ts" "Scheduled") ("tss" "Raw" entry - (file "~/.org/inbox.org") + (file (concat theurgy-org-directory "inbox.org")) "* TODO [%^{priority|#A|#B|#C|#D}] %^{TITLE} :scheduled:\n:SCHEDULED: %^T\n%?" :empty-lines 1 :time-prompt t) @@ -477,12 +477,12 @@ ("n" "Note") ("nn" "Raw" entry - (file "~/.org/inbox.org") + (file (concat theurgy-org-directory "inbox.org")) "* %^{TITLE} :note: \n\n%?" :empty-lines 1) ("nm" "Meeting") ("nmm" "Raw" entry - (file "~/.org/inbox.org") + (file (concat theurgy-org-directory "inbox.org")) "* %^{TITLE} :meeting: \n\n%?" :clock-in t :clock-resume t) @@ -496,22 +496,22 @@ (defun open-inbox () "Opens `~/.org/inbox.org'" (interactive) - (find-file "~/.org/inbox.org")) + (find-file (concat theurgy-org-directory "inbox.org"))) (defun open-maintenance () "Opens `~/.org/tasks/maintenance/'" (interactive) - (find-file "~/.org/tasks/maintenance/")) + (find-file (concat theurgy-org-directory "tasks/maintenance/"))) (defun open-projects () "Opens `~/.org/tasks/projects/'" (interactive) - (find-file "~/.org/tasks/projects/")) + (find-file (concat theurgy-org-directory "tasks/projects/"))) (defun open-career () "Opens `~/.org/tasks/projects/career/'" (interactive) - (find-file "~/.org/tasks/projects/career/")) + (find-file (concat theurgy-org-directory "tasks/projects/career/"))) (transient-define-prefix task-management-menu () "Transient menu for task management shortcuts." @@ -543,15 +543,15 @@ (window-width . 0.2)))) ;; Org roam -(when (file-directory-p "~/.org/lore") +(when (file-directory-p (concat theurgy-org-directory "lore")) (use-package org-roam :straight nil :ensure t :init (setq org-roam-v2-ack t) :custom - (org-roam-directory (file-truename "~/.org/lore/")) - (org-roam-dailies-directory (file-truename "~/.org/lore/refined/journal/")) + (org-roam-directory (file-truename (concat theurgy-org-directory "lore/"))) + (org-roam-dailies-directory (file-truename (concat theurgy-org-directory "lore/refined/journal/"))) (org-roam-file-exclude-regexp "\\.git/.*\\|logseq/.*$") (org-roam-completion-everywhere) (org-roam-capture-templates