summary refs log tree commit diff
path: root/emacs/custom/my-org.el
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--emacs/custom/my-org.el25
1 files changed, 11 insertions, 14 deletions
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