ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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)
This commit is contained in:
Tassilo Horn 2010-05-26 02:21:55 +00:00 committed by John Wiegley
parent 6fc2ea3b9b
commit 54d513ee0c
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org.el
View File

@ -15045,6 +15045,13 @@ used by the agenda files. If ARCHIVE is `ifmode', do this only if
(setq files (org-add-archive-files files))) (setq files (org-add-archive-files 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 () (defun org-edit-agenda-file-list ()
"Edit the list of agenda files. "Edit the list of agenda files.
Depending on setup, this either uses customize to edit the variable Depending on setup, this either uses customize to edit the variable