summary refs log tree commit diff
diff options
context:
space:
mode:
authorFranck Cuny <franck@fcuny.net>2022-07-07 17:25:52 -0700
committerFranck Cuny <franck@fcuny.net>2022-07-07 17:40:51 -0700
commit625f897eab119c01e5a2d786508789b3272be3fb (patch)
treef632019457d40b9faaabf59793b49b8599abae91
parentfeat(org-mode): add more TODO keywords (diff)
downloademacs.d-625f897eab119c01e5a2d786508789b3272be3fb.tar.gz
feat(org-mode): get rid of some custom function
This is not needed anymore, and it looks like the code is also formatted
differently for the agenda.

Change-Id: I391d0bfda9e4077df8c6ef7e2f7822b085ae4292
Reviewed-on: https://cl.fcuny.net/c/emacs.d/+/617
Tested-by: CI
Reviewed-by: Franck Cuny <franck@fcuny.net>
-rw-r--r--emacs/custom/my-org.el32
1 files changed, 13 insertions, 19 deletions
diff --git a/emacs/custom/my-org.el b/emacs/custom/my-org.el
index ac7ad5d..05990d3 100644
--- a/emacs/custom/my-org.el
+++ b/emacs/custom/my-org.el
@@ -85,25 +85,19 @@
 (setq org-agenda-start-on-weekday 1)
 
 (add-to-list 'org-agenda-custom-commands
-'("A" "Agenda"
-  ((agenda ""
-           ((org-agenda-span 'week)))
-   (todo "TODO"
-         ((org-agenda-overriding-header "To Refile")
-          (org-agenda-files `(,(expand-file-name "inbox.org" org-directory)))))
-   (todo "STARTED"
-         ((org-agenda-overriding-header "In Progress")))
-   (todo "WAITING"
-         ((org-agenda-overriding-header "Blocked")))
-   (todo "TODO"
-         ((org-agenda-overriding-header "Not yet started")
-          (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline 'scheduled)))))))
-
-(defun my/mail-todo-format-string ()
-  "Create todo format string from mail contents."
-  (let ((from (notmuch-show-get-from))
-        (subject (notmuch-show-get-subject)))
-    (format "* TODO [#B] %s %s %%?\n:PROPERTIES:\n:CREATED: %%U\n:END:\n" from subject)))
+             '("A" "Agenda for today"
+               ((agenda "" ((org-agenda-span 'day)
+                            (org-agenda-start-day (org-today))))
+                (todo "TODO"
+                      ((org-agenda-overriding-header "To Refile")
+                       (org-agenda-files `(,(expand-file-name "inbox.org" org-directory)))))
+                (todo "STARTED"
+                      ((org-agenda-overriding-header "In Progress")))
+                (todo "WAITING"
+                      ((org-agenda-overriding-header "Blocked")))
+                (todo "TODO"
+                      ((org-agenda-overriding-header "Not yet started")
+                       (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline 'scheduled)))))))
 
 (setq org-capture-templates
 `(("t" "tasks" entry (file "inbox.org")