BirDt/theurgy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use theurgy-org-directory in all places

Browse source
This commit is contained in:
BirDt_ 2026-01-13 21:20:07 +08:00
parent de68cdc05e
commit bacf9ceb0a
1 changed files with 16 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

32
workflows/org-custom.el
View file

@ -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