* [PATCH] org.el (org-agenda-file-p): New predicate function.
@ 2010-05-25 21:21 Tassilo Horn
0 siblings, 0 replies; only message in thread
From: Tassilo Horn @ 2010-05-25 21:21 UTC (permalink / raw)
To: emacs-orgmode
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 files changed, 7 insertions(+), 0 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index d21aa1f..31c5d5a 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -15042,6 +15042,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
--
1.7.1
See Message-ID: <87vdacp1hi.fsf@thinkpad.tsdh.de> and Carsten's
followup.
^ permalink raw reply related [flat|nested] only message in thread
only message in thread, other threads:[~2010-05-25 21:22 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-05-25 21:21 [PATCH] org.el (org-agenda-file-p): New predicate function Tassilo Horn
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).