From ecf12e9a60af098e188c1863f1fe4af30b3bc27f Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Tue, 31 Jan 2023 18:01:24 -0800 Subject: ref(org-mode): a number of tweaks - use org-cliplink to add bookmarks - remove the sequence for TO-READ/READING/READ since I don't use it - remove a projects.org since all tasks end up in tasks.org with tagging. This was adding a layer of complexity I don't need - move habits to tasks.org - add a capture template for TIL (today-I-learned) - remove the heading decorations for the theme, I don't like the way it looks Change-Id: I6e25015ec91242cc8b8797a92767a1afa9c08a96 --- emacs/custom/my-org.el | 25 +++++++++++-------------- 1 file changed, 11 insertions(+), 14 deletions(-) (limited to 'emacs/custom/my-org.el') diff --git a/emacs/custom/my-org.el b/emacs/custom/my-org.el index f49bc6b..d4b7837 100644 --- a/emacs/custom/my-org.el +++ b/emacs/custom/my-org.el @@ -6,6 +6,7 @@ (require 'org-agenda) (require 'org-capture) (require 'org-archive) +(require 'org-cliplink) (require 'ox) (require 'ox-md) @@ -35,8 +36,7 @@ (setq org-log-into-drawer t) ;; insert state change in the drawer (setq org-cycle-separator-lines 0) (setq org-startup-folded 'content) -(setq org-todo-keywords '((sequence "TODO" "STARTED" "WAITING" "|" "DONE" "CANCELED") - (sequence "TO-READ(r/!)" "READING(/!)" "|" "READ(R@)"))) +(setq org-todo-keywords '((sequence "TODO" "STARTED" "WAITING" "|" "DONE" "CANCELED"))) (setq org-priority-start-cycle-with-default nil) ;; Start one over/under default value. (setq org-highest-priority ?A) @@ -45,8 +45,7 @@ (setq org-refile-use-cache nil) (setq org-refile-targets `((,(expand-file-name "tasks.org" org-directory) :maxlevel . 1) - (,(expand-file-name "notes.org" org-directory) :maxlevel . 1) - (,(expand-file-name "projects.org" org-directory) :tag . "project"))) + (,(expand-file-name "notes.org" org-directory) :maxlevel . 1))) (setq org-refile-use-outline-path 'file) (setq org-outline-path-complete-in-steps nil) (setq org-refile-allow-creating-parent-nodes 'confirm) @@ -74,8 +73,6 @@ (setq org-agenda-files `(,(expand-file-name "inbox.org" org-directory) ,(expand-file-name "notes.org" org-directory) ,(expand-file-name "tasks.org" org-directory) - ,(expand-file-name "habits.org" org-directory) - ,(expand-file-name "projects.org" org-directory) ,(expand-file-name "bookmarks.org" org-directory) ,(expand-file-name "journal.org" org-directory))) (setq org-agenda-show-all-dates t) @@ -102,21 +99,22 @@ `(("t" "tasks" entry (file "inbox.org") "* TODO [#D] %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n") + ("T" "TIL" entry (file+headline "til.org" "Today I learnt") + "* %^{title} :%^{tag}:\n:PROPERTIES:\n:CREATED: %U\n:END:\n%?\nSource: %^C") + ("n" "note" entry (file "notes.org") "* %?\n:PROPERTIES:\n:CREATED: %T\n:END:\n") ("f" "feed" entry (file "inbox.org") - ,(concat "* TO-READ %:elfeed-entry-title :feed:\n" + ,(concat "* TODO [#D] %:elfeed-entry-title :feed:\n" ":PROPERTIES:\n:CREATED: %T\n:END:\n" "%a\n")) - ("m" "email note" entry (file "inbox.org") - ,(concat "* TODO [#A] %:subject :mail:\n" - ":PROPERTIES:\n:CREATED: %T\n:END:\n" - "%a\n%i%?")) + ("b" "bookmark" entry (file "bookmarks.org") + ,(concat "* %(org-cliplink-capture) :%^{tag}:\n" + ":PROPERTIES:\n:CREATED: %T\n:END:%?\n") :prepend t :empty-lines 1) - ("j" "journal" entry - (file+olp+datetree "journal.org") + ("j" "journal" entry (file+olp+datetree "journal.org") "* %?\n:PROPERTIES:\n:CREATED: %T\n:END:\n" :tree-type day))) ;; https://stackoverflow.com/questions/20164918/how-to-untick-checkboxes-in-org-mode-for-the-next-cyclic-repetitive-task @@ -133,7 +131,6 @@ (add-hook 'org-after-todo-state-change-hook 'my/org-reset-checkbox-when-done) - (provide 'my-org) ;;; my-org.el ends here -- cgit 1.4.1