From 54d513ee0c90f9864bbd39044d9dfbc4f1619513 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Wed, 26 May 2010 02:21:55 +0000 Subject: [PATCH] org.el (org-agenda-file-p): New predicate function. The new function `org-agenda-file-p' checks if a given file is an org agenda file. Such a function is very useful in hooks, for example if you want to export agenda files automatically when saving: (defun th-org-mode-init () ;; Update appointments and export to iCalendar when saving. (when (org-agenda-file-p) (add-hook 'after-save-hook 'th-org-agenda-to-appt t t) (add-hook 'after-save-hook 'org-export-icalendar-this-file t t))) (add-hook 'org-agenda-mode-hook 'th-org-agenda-mode-init) --- lisp/org.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/org.el b/lisp/org.el index 8ed24542a..c1d0078af 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -15045,6 +15045,13 @@ used by the agenda files. If ARCHIVE is `ifmode', do this only if (setq files (org-add-archive-files files))) files)) +(defun org-agenda-file-p (&optional file) + "Return non-nil, if FILE is an agenda file. +If FILE is omitted, use the file associated with the current +buffer." + (member (or file (buffer-file-name)) + (org-agenda-files t))) + (defun org-edit-agenda-file-list () "Edit the list of agenda files. Depending on setup, this either uses customize to edit the variable