diff options
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") |