random936/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changed due-today to due-within days in functions.org

Browse Source
This commit is contained in:
Random936 2023-12-29 09:04:47 -08:00
parent fbdebc50d1
commit b2886336c6
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
.emacs.d/functions.org
View File

@ -24,12 +24,13 @@ These functions are for my org roam daily capture template.
(jm/dt-format-link "-"))) (jm/dt-format-link "-")))
"TODO=\"TODO\"|TODO=\"IN PROGRESS\"")) "TODO=\"TODO\"|TODO=\"IN PROGRESS\""))
(defun jm/dt-get-due-today () (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 (jm/dt-filter-tasks
(lambda () (when (member (org-get-todo-state) '("TODO" "IN PROGRESS")) (lambda () (when (member (org-get-todo-state) '("TODO" "IN PROGRESS"))
(jm/dt-format-link "- [ ]"))) (jm/dt-format-link "- [ ]")))
(format-time-string "DEADLINE<=\"<%Y-%m-%d>\"" (format-time-string "DEADLINE<=\"<%Y-%m-%d>\"" date))))
(or (org-capture-get :default-time) (current-time)))))
(defun jm/dt-get-status (status) (defun jm/dt-get-status (status)
(jm/dt-filter-tasks (lambda () (jm/dt-format-link "- [ ]")) (jm/dt-filter-tasks (lambda () (jm/dt-format-link "- [ ]"))