GNU bug report logs - #65753
[PATCH 0/2] emacs-org-dynamic-agenda.

Previous Next

Full log

Message #8 received at 65753 <at> debbugs.gnu.org (full text, mbox):

From: Nicolas Graves <ngraves <at> ngraves.fr>
To: 65753 <at> debbugs.gnu.org
Cc: ngraves <at> ngraves.fr, andrew <at> trop.in
Subject: [PATCH 1/2] feature: emacs-org-dynamic-agenda: Properly integrate
 with org-ql.
Date: Tue,  5 Sep 2023 12:35:01 +0200

---
 src/rde/features/emacs-xyz.scm | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/src/rde/features/emacs-xyz.scm b/src/rde/features/emacs-xyz.scm
index 0463a98a..74bbdf7a 100644
--- a/src/rde/features/emacs-xyz.scm
+++ b/src/rde/features/emacs-xyz.scm
@@ -4483,9 +4483,11 @@ package is unconfigured but it plays along with emacs-org-dynamic-agenda."
 
 (define* (feature-emacs-org-dynamic-agenda
           #:key
-          (emacs-org-dynamic-agenda emacs-org-dynamic-agenda))
-  "Configure org-dynamic-agenda for GNU Emacs."
+          (emacs-org-dynamic-agenda emacs-org-dynamic-agenda)
+          (emacs-org-ql-dynamic-agenda emacs-org-ql-dynamic-agenda))
+  "Configure org-dynamic-agenda or org-ql-dynamic-agenda for GNU Emacs."
   (ensure-pred file-like? emacs-org-dynamic-agenda)
+  (ensure-pred file-like? emacs-org-ql-dynamic-agenda)
 
   (define emacs-f-name 'org-dynamic-agenda)
   (define f-name (symbol-append 'emacs- emacs-f-name))
@@ -4495,12 +4497,19 @@ package is unconfigured but it plays along with emacs-org-dynamic-agenda."
      (rde-elisp-configuration-service
       emacs-f-name
       config
-      `((require 'org-dynamic-agenda))
+      `(,@(if (get-value 'emacs-org-ql config)
+              '((require 'org-ql-dynamic-agenda)
+                (setq org-agenda-include-diary nil))
+              '((require 'org-dynamic-agenda))))
       #:summary "\
 Org dynamic agenda"
-      #:commentary ""
+      #:commentary "\
+This hook records files that should be saved as agenda-files, making the refreshing
+and loading of org-agenda faster (and even faster with org-ql cache)."
       #:keywords '(convenience)
-      #:elisp-packages (list emacs-org-dynamic-agenda))))
+      #:elisp-packages (list (if (get-value 'emacs-org-ql config)
+                                 emacs-org-ql-dynamic-agenda
+                                 emacs-org-dynamic-agenda)))))
 
   (feature
    (name f-name)
-- 
2.41.0

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.