diff options
author | Franck Cuny <franck@fcuny.net> | 2022-07-07 17:25:52 -0700 |
---|---|---|
committer | Franck Cuny <franck@fcuny.net> | 2022-07-07 17:40:51 -0700 |
commit | 625f897eab119c01e5a2d786508789b3272be3fb (patch) | |
tree | f632019457d40b9faaabf59793b49b8599abae91 /emacs | |
parent | feat(org-mode): add more TODO keywords (diff) | |
download | emacs.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>
Diffstat (limited to 'emacs')
-rw-r--r-- | emacs/custom/my-org.el | 32 |
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") |