The .emacs.d from mpereira

.emacs.d's People

Contributors

Stargazers

Watchers

.emacs.d's Issues

About relative dates in org-ql and org-super-agenda

Hi there,

I saw this code in your config:

(let ((inhibit-read-only t))
  (with-current-buffer (get-buffer-create "*org-ql-complex*")
    (erase-buffer)
    (--each '(("Done today" #'closed-today)
              ("Done yesterday" #'closed-yesterday)
              ("Done this week" #'closed-this-week-before-yesterday)
              ("Done last week" #'closed-last-week)
              ("Done this month" #'closed-this-month))
      (--> (list (car it) (funcall (get-in '(1 1) it)
                                   (org-ql (org-agenda-files)
                                     (done)
                                     :sort (date)
                                     :markers t)))
           (list (car it) (--map (concat (org-ql-agenda--format-element it) "\n")
                                 (nth 1 it)))
           (insert (concat (car it) "\n" (apply #'concat (nth 1 it))) "\n")))
    (pop-to-buffer (current-buffer))))

And I saw that you wrote a little library of functions to support it. Very cool!

But I realized that that was only necessary because org-super-agenda doesn't support between dates. I have some prototype code that lets you do something like this:

(let ((org-super-agenda-groups
       '((:name "Done last week"
                :closed (between "last sunday" "last saturday"))
         (:name "Done this week"
                :closed (between "this sunday" "this saturday")))))
  (org-ql-agenda (org-agenda-files)
    (closed)
    :sort (date)))

Supporting "Done this month" would be a bit more complicated because of converting the relative date strings to absolute dates (my code uses GNU date, which doesn't support e.g. first of this month), but it should be doable.

Would you find this useful?

Recommend Projects