From 625f897eab119c01e5a2d786508789b3272be3fb Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Thu, 7 Jul 2022 17:25:52 -0700 Subject: 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 --- emacs/custom/my-org.el | 32 +++++++++++++------------------- 1 file changed, 13 insertions(+), 19 deletions(-) (limited to 'emacs/custom') 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") -- cgit 1.4.1