diff options
author | David Maus <dmaus@ictsoc.de> | 2010-09-05 21:18:36 +0200 |
---|---|---|
committer | David Maus <dmaus@ictsoc.de> | 2010-09-05 21:18:36 +0200 |
commit | 108f2f28579f46b1535252f94faac456a4d5b757 (patch) | |
tree | 9f04cf8024f4a97b66d657065b803de37a2bf7df | |
parent | dbe5c6031a0c82742b30d97021b8bded2514bdd5 (diff) | |
download | org-mode-108f2f28579f46b1535252f94faac456a4d5b757.tar.gz |
Exclude tags from the summary of ical entries
* org-icalendar.el (org-print-icalendar-entries): Exclude tags from
summary of non-TODO ical entries.
(org-print-icalendar-entries): Use
`org-complex-heading-regexp' to exclude tags from summary of
TODO ical entries.
-rw-r--r-- | lisp/org-icalendar.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-icalendar.el b/lisp/org-icalendar.el index 4f307c4..c374e2e 100644 --- a/lisp/org-icalendar.el +++ b/lisp/org-icalendar.el @@ -311,7 +311,7 @@ When COMBINE is non nil, add the category to each line." inc t hd (condition-case nil (org-icalendar-cleanup-string - (org-get-heading)) + (org-get-heading t)) (error (throw :skip nil))) summary (org-icalendar-cleanup-string (org-entry-get nil "SUMMARY")) @@ -439,7 +439,7 @@ END:VEVENT\n" (when org-icalendar-include-todo (setq prefix "TODO-") (goto-char (point-min)) - (while (re-search-forward org-todo-line-regexp nil t) + (while (re-search-forward org-complex-heading-regexp nil t) (catch :skip (org-agenda-skip) (when org-icalendar-verify-function @@ -471,7 +471,7 @@ END:VEVENT\n" ((eq org-icalendar-include-todo t) ;; include everything that is not done (member state org-not-done-keywords)))) - (setq hd (match-string 3) + (setq hd (match-string 4) summary (org-icalendar-cleanup-string (org-entry-get nil "SUMMARY")) desc (org-icalendar-cleanup-string |