Exclude spaces and maybe tags from SUMMARY in iCalendar export

Exclude spaces and maybe tags from SUMMARY in iCalendar export

[Tassilo Horn]

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

Re: Exclude spaces and maybe tags from SUMMARY in iCalendar export

[Carsten Dominik]

Applied, thanks.

- Carsten

On May 18, 2010, at 1:43 PM, Tassilo Horn wrote:

> 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
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten