From 7d54f5dc7cca22912d3dd9a8f6d00df7138942f3 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 7 Jul 2011 17:15:08 +0200 Subject: [PATCH] Variable for faster use of org-agenda-get-day-entries. This is just an example. --- calfw-org.el | 7 ++++++- 1 files changed, 6 insertions(+), 1 deletions(-) diff --git a/calfw-org.el b/calfw-org.el index 99fe18e..ec43796 100644 --- a/calfw-org.el +++ b/calfw-org.el @@ -34,6 +34,9 @@ (require 'org) (require 'org-agenda) +(defvar cfw:org-agenda-schedule-args '(:scheduled) + "Default arguments for collecting agenda entries.") + (defun cfw:org-collect-schedules-period (begin end) "[internal] Return org schedule items between BEGIN and END." (let ((org-agenda-prefix-format "") @@ -43,7 +46,9 @@ (loop for file in (org-agenda-files nil 'ifmode) append (progn (org-check-agenda-file file) - (org-agenda-get-day-entries file date)))))) + (apply 'org-agenda-get-day-entries + file date + cfw:org-agenda-schedule-args)))))) (defun cfw:org-onclick () "Jump to the clicked org item." -- 1.7.5.2