From b2886336c68324421daf838b6f8ac14a57f6dc93 Mon Sep 17 00:00:00 2001 From: Random936 Date: Fri, 29 Dec 2023 09:04:47 -0800 Subject: [PATCH] changed due-today to due-within days in functions.org --- .emacs.d/functions.org | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/.emacs.d/functions.org b/.emacs.d/functions.org index b949bbe..fe67655 100644 --- a/.emacs.d/functions.org +++ b/.emacs.d/functions.org @@ -24,12 +24,13 @@ These functions are for my org roam daily capture template. (jm/dt-format-link "-"))) "TODO=\"TODO\"|TODO=\"IN PROGRESS\"")) -(defun jm/dt-get-due-today () - (jm/dt-filter-tasks - (lambda () (when (member (org-get-todo-state) '("TODO" "IN PROGRESS")) - (jm/dt-format-link "- [ ]"))) - (format-time-string "DEADLINE<=\"<%Y-%m-%d>\"" - (or (org-capture-get :default-time) (current-time))))) +(defun jm/dt-get-due-within (days) + (let* ((time (or (org-capture-get :default-time) (current-time))) + (date (+ (time-convert time 'integer) (* days 86400)))) + (jm/dt-filter-tasks + (lambda () (when (member (org-get-todo-state) '("TODO" "IN PROGRESS")) + (jm/dt-format-link "- [ ]"))) + (format-time-string "DEADLINE<=\"<%Y-%m-%d>\"" date)))) (defun jm/dt-get-status (status) (jm/dt-filter-tasks (lambda () (jm/dt-format-link "- [ ]"))