tweak configuration for both org and denote

1 files changed, 49 insertions, 6 deletions

diff --git a/configs/users/fcuny/emacs/site-lisp/init-text.el b/configs/users/fcuny/emacs/site-lisp/init-text.el
index aee8889..bba1b05 100644
--- a/configs/users/fcuny/emacs/site-lisp/init-text.el
+++ b/configs/users/fcuny/emacs/site-lisp/init-text.el
@@ -33,16 +33,14 @@
   (setq markdown-command "multimarkdown"))
 
 (use-package org
+  :bind
+  (("C-c c" . org-capture))
+
   :hook
   (org-mode . turn-on-flyspell)
   (org-mode . visual-line-mode)
   (org-mode . org-indent-mode)
 
-  :config
-  (font-lock-add-keywords 'org-mode
-                          '(("^ *\\(-\\) "
-                             (0 (ignore (compose-region (match-beginning 1) (match-end 1) "•"))))))
-
   :custom
   (org-directory "~/Documents/org")
   (org-default-notes-file (expand-file-name "notes.org" org-directory))
@@ -50,6 +48,7 @@
   (org-startup-folded t)
   (org-startup-indented t)
   (org-startup-with-inline-images t)
+  (org-adapt-indentation 'headline-data)
 
   ;; enable todo and checkbox dependencies
   (org-enforce-todo-dependencies t)
@@ -63,6 +62,11 @@
   (org-log-done 'time)
   (org-log-into-drawer t)
 
+  ;; refile
+  (org-refile-use-outline-path t)
+  (org-refile-allow-creating-parent-nodes t)
+  (org-refile-use-cache t)
+
   ;; no empty lines between items
   (org-blank-before-new-entry '((heading . nil) (plain-list-item . nil)))
 
@@ -87,6 +91,10 @@
 
   (org-yank-adjusted-subtrees t)
 
+  (org-capture-templates
+   '(("t" "Tasks" entry (file+headline "~/Documents/org/tasks.org" "Tasks")
+      "* TODO %?\n  :PROPERTIES:\n  :CAPTURED: %U\n  :END:\n\n- %a" :prepend t)))
+
   (org-structure-template-alist
    '(("s" . "src")
      ("E" . "src emacs-lisp")
@@ -100,12 +108,47 @@
   :bind
   ("C-c a" . org-agenda)
   :custom
-  (org-agenda-start-on-weekday 1))
+  (org-agenda-start-on-weekday 1)
+  (org-deadline-warning-days 3)
+  (org-agenda-inhibit-startup t)
+  (org-agenda-diary-file "~/Documents/org/tasks.org")
+  (org-agenda-files '("~/Documents/org/tasks.org"))
+  (org-agenda-restore-windows-after-quit t)
+  (org-agenda-skip-deadline-if-done t)
+  (org-agenda-skip-scheduled-if-done t)
+  (org-agenda-custom-commands
+   '(;; Todo and tags views for ongoing tasks by types of activity
+     ("#" "To archive" todo "DONE|SKIP")
+
+     ;; Agenda view to see ONGO/NEXT tasks for this week
+     ("*" . "What's next?")
+     ("**" "ONGO/NEXT all" tags-todo "TODO={NEXT}")
+
+     ;; Agenda view to see TODO tasks with no SCHEDULED/DEADLINE
+     (";" . "What's to do?")
+     (";;" "TODO all" tags-todo "TODO={TODO}+DEADLINE=\"\"+SCHEDULED=\"\"")
+
+     ;; Agenda view to see WAIT tasks with no SCHEDULED/DEADLINE
+     (":" . "What's waiting?")
+     ("::" "WAIT all" tags-todo "TODO={WAITING}+DEADLINE=\"\"+SCHEDULED=\"\"")
+
+     ;; Agenda view to see upcoming deadlines with 60 days of warning period
+     ("!" . "Upcoming deadlines")
+     ("!!" "Deadlines all" agenda "Past/upcoming deadlines"
+      ((org-agenda-span 1)
+       (org-deadline-warning-days 60)
+       (org-agenda-entry-types '(:deadline))))))
+  (org-agenda-sorting-strategy
+   '((agenda time-up deadline-up scheduled-up todo-state-up priority-down)
+     (todo todo-state-down priority-down deadline-up)
+     (tags todo-state-down priority-down deadline-up)
+     (search todo-state-down priority-down deadline-up))))
 
 (use-package denote
   :defer t
   :custom
   (denote-sort-keywords t)
+  (denote-directory org-directory)
   :hook
   (dired-mode . denote-dired-mode)
   :custom-face