From mboxrd@z Thu Jan 1 00:00:00 1970 From: Tassilo Horn Subject: Exclude spaces and maybe tags from SUMMARY in iCalendar export Date: Tue, 18 May 2010 13:43:24 +0200 Message-ID: <87mxvxo2oz.fsf@thinkpad.tsdh.de> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from [140.186.70.92] (port=52035 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OELI5-0003sJ-Bb for emacs-orgmode@gnu.org; Tue, 18 May 2010 07:48:57 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OELCz-0001hS-Mj for emacs-orgmode@gnu.org; Tue, 18 May 2010 07:43:39 -0400 Received: from lo.gmane.org ([80.91.229.12]:38624) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OELCy-0001gg-B7 for emacs-orgmode@gnu.org; Tue, 18 May 2010 07:43:37 -0400 Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1OELCu-00034w-Cx for emacs-orgmode@gnu.org; Tue, 18 May 2010 13:43:32 +0200 Received: from wlan-95-196.uni-koblenz.de ([141.26.95.196]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 18 May 2010 13:43:32 +0200 Received: from tassilo by wlan-95-196.uni-koblenz.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 18 May 2010 13:43:32 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Hi all, I've just discovered the iCalendar export and use that to have a visually appealing read-only agenda in KOrganizer. Basically, the export seems perfect except for one thing. When I have an org entry like * Test :some:tags:here: the corresponding VEVENT will have the whole org heading including the spaces and the tag string as SUMMARY (unless the entry has a SUMMARY property). Having the tags there might be ok (although by default they are also set as CATEGORY), but the spaces between the heading title and the tags should be compacted. Appended is patch that does that when not `is-body'. Bye, Tassilo --- lisp/org-icalendar.el | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/org-icalendar.el b/lisp/org-icalendar.el index 9acd2f4..66da256 100644 --- a/lisp/org-icalendar.el +++ b/lisp/org-icalendar.el @@ -516,11 +516,12 @@ whitespace, newlines, drawers, and timestamps, and cut it down to MAXLENGTH characters." (if (not s) nil - (when is-body + (if is-body (let ((re (concat "\\(" org-drawer-regexp "\\)[^\000]*?:END:.*\n?")) (re2 (concat "^[ \t]*" org-keyword-time-regexp ".*\n?"))) (while (string-match re s) (setq s (replace-match "" t t s))) - (while (string-match re2 s) (setq s (replace-match "" t t s))))) + (while (string-match re2 s) (setq s (replace-match "" t t s)))) + (setq s (replace-regexp-in-string "[[:space:]]+" " " s))) (let ((start 0)) (while (string-match "\\([,;]\\)" s start) (setq start (+ (match-beginning 0) 2) -- 1.7.1