emacs:vulpea:agenda: use defun instead of const for this q tasks

d12frosted · Jan 6, 2025 · 22b6e70 · 22b6e70
1 parent 40aa337
commit 22b6e70
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/emacs/lisp/init-vulpea.el b/emacs/lisp/init-vulpea.el
@@ -336,7 +336,7 @@
        ,vulpea-agenda-cmd-today
        ,vulpea-agenda-cmd-focus
        ,vulpea-agenda-cmd-waiting
-       ,vulpea-agenda-cmd-current-quarter)
+       ,(vulpea-agenda-cmd-current-quarter))
       ((org-agenda-buffer-name vulpea-agenda-main-buffer-name))))))
 
 

diff --git a/emacs/lisp/lib-vulpea-agenda.el b/emacs/lisp/lib-vulpea-agenda.el
@@ -168,7 +168,8 @@ Affects the following commands:
       vulpea-agenda-hide-scheduled-and-waiting-next-tasks))))
 
 ;;;###autoload
-(defconst vulpea-agenda-cmd-current-quarter
+(defun vulpea-agenda-cmd-current-quarter ()
+  "Return an agenda command"
   (let ((quarter (vulpea-agenda-current-quarter (current-time))))
     `(tags-todo
       ,quarter