diff options
author | mattkae <mattkae@protonmail.com> | 2023-06-22 12:34:12 -0400 |
---|---|---|
committer | mattkae <mattkae@protonmail.com> | 2023-06-22 12:34:12 -0400 |
commit | b3b03e46ea9626ad12a74d6ea7f90ceca1bf1d4f (patch) | |
tree | f8385a820cd24ccdd18b645f113442e375f394e9 /lisp/org-custom.el | |
parent | 3b8f82e212d6b770987eb6f2c60d9413376d90e4 (diff) |
Using vertico isntead of helm now; created a way to archive all tasks in an org buffer; created better capture templates
Diffstat (limited to 'lisp/org-custom.el')
-rw-r--r-- | lisp/org-custom.el | 27 |
1 files changed, 21 insertions, 6 deletions
diff --git a/lisp/org-custom.el b/lisp/org-custom.el index 61b7532..1037771 100644 --- a/lisp/org-custom.el +++ b/lisp/org-custom.el @@ -38,8 +38,7 @@ (setq org-directory "~/OrgRoam") (setq org-agenda-files '("~/OrgRoam" "~/OrgRoam/daily")) - - +(setq org-default-notes-file (concat org-directory "/inbox.org")) (setq org-todo-keywords '((sequence "TODO" "PROGRESS" "VERIFY" "|" "DONE" "ABANDONED"))) @@ -58,9 +57,9 @@ :ensure t :config (org-alert-enable) - (setq org-alert-interval 6000 ; Once per hour! - org-alert-notify-cutoff 10 - org-alert-notify-after-event-cutoff nil + (setq org-alert-interval 3600 ; Once per hour! + org-alert-notify-cutoff 30 + org-alert-notify-after-event-cutoff 30 alert-default-style 'libnotify)) (use-package org-roam @@ -73,11 +72,27 @@ ("C-c n g" . org-roam-graph) ("C-c n j" . org-roam-dailies-capture-today) ("C-c n t" . org-roam-tag-add) - ("C-c n a" . org-roam-alias-add)) + ("C-c n a" . org-roam-alias-add) + ("C-c n c" . org-capture)) :config (setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag))) (org-roam-setup) ) +(setq org-capture-templates + '(("t" "Todo" entry (file+headline org-default-notes-file "Tasks") + "* TODO %?\n DEADLINE: %t") + ("q" "Quick Notes" entry (file+headline org-default-notes-file "Quick Notes") + "* %?\Created on %U\n %i"))) + +(defun org-archive-done-tasks () + "Archive all done tasks in an org subtree" + (interactive) + (org-map-entries + (lambda () + (org-archive-subtree) + (setq org-map-continue-from (org-element-property :begin (org-element-at-point)))) + "/DONE" 'tree)) + (provide 'org-custom) ;;; org-custom.el ends here |