From 22b6e703d8d4ee8afa92a2f62bd33fe5e9ea86c1 Mon Sep 17 00:00:00 2001 From: Boris Buliga Date: Mon, 6 Jan 2025 17:18:36 +0200 Subject: [PATCH] emacs:vulpea:agenda: use defun instead of const for this q tasks --- emacs/lisp/init-vulpea.el | 2 +- emacs/lisp/lib-vulpea-agenda.el | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/emacs/lisp/init-vulpea.el b/emacs/lisp/init-vulpea.el index 38996806..64f10790 100644 --- 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 index eb30bc4b..139cd3f3 100644 --- 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