insects/home
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Manually archive tasks

Browse source
This commit is contained in:
mokou 2020-10-06 11:08:48 +02:00
parent 1a0d29a743
commit 9cd87e2027
1 changed files with 1 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
dot_doom.d/config.el
View file

@ -96,14 +96,9 @@
(org-agenda-skip-function 'cf/skip-non-tasks) (org-agenda-skip-function 'cf/skip-non-tasks)
(org-tags-match-list-sublevels nil) (org-tags-match-list-sublevels nil)
(org-agenda-todo-ignore-scheduled cf/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-scheduled cf/hide-scheduled-and-waiting-next-tasks)
(org-agenda-todo-ignore-deadlines cf/hide-scheduled-and-waiting-next-tasks))) (org-agenda-todo-ignore-deadlines cf/hide-scheduled-and-waiting-next-tasks))))
(tags "-REFILE/"
((org-agenda-overriding-header "Tasks to Archive")
(org-agenda-skip-function 'cf/skip-non-archivable-tasks)
(org-tags-match-list-sublevels nil))))
nil))))) nil)))))
(map! :map global-map :leader "a" 'org-agenda) (map! :map global-map :leader "a" 'org-agenda)
(defvar cf/hide-scheduled-and-waiting-next-tasks t) (defvar cf/hide-scheduled-and-waiting-next-tasks t)
@ -164,25 +159,3 @@
nil) nil)
(t (t
next-headline))))) next-headline)))))
(defun cf/skip-non-archivable-tasks ()
(save-restriction
(widen)
;; Consider only tasks with done todo headings as archivable candidates
(let ((next-headline (save-excursion (or (outline-next-heading) (point-max))))
(subtree-end (save-excursion (org-end-of-subtree t))))
(if (member (org-get-todo-state) org-todo-keywords-1)
(if (member (org-get-todo-state) org-done-keywords)
(let* ((daynr (string-to-number (format-time-string "%d" (current-time))))
(a-month-ago (* 60 60 24 (+ daynr 1)))
(last-month (format-time-string "%Y-%m-" (time-subtract (current-time) (seconds-to-time a-month-ago))))
(this-month (format-time-string "%Y-%m-" (current-time)))
(subtree-is-current (save-excursion
(forward-line 1)
(and (< (point) subtree-end)
(re-search-forward (concat last-month "\\|" this-month) subtree-end t)))))
(if subtree-is-current
subtree-end ; Has a date in this month or last month, skip it
nil)) ; available to archive
(or subtree-end (point-max)))
next-headline))))