Re: Fix for org-agenda-cleanup-fancy-diary

From: Carsten Dominik <carsten.dominik@gmail.com>
To: Erik Hetzner <erik.hetzner@ucop.edu>
Cc: emacs-orgmode@gnu.org
Subject: Re: Fix for org-agenda-cleanup-fancy-diary
Date: Wed, 1 Apr 2009 13:18:09 +0200	[thread overview]
Message-ID: <1ACBF12E-6592-4A9C-A487-330DDA9FFB6F@gmail.com> (raw)
In-Reply-To: <49d27cda.1f538c0a.3e43.0351@mx.google.com>

Hi Erik,

can you show

- an example entry
- how it shows up in the agenda without your patch
- how it shows up with your patch

so that I am better able to understand what you are trying
to achieve with this patch?

- Carsten

On Mar 31, 2009, at 10:28 PM, Erik Hetzner wrote:

> Hi all -
>
> Thanks for the software. I am finally sending in this patch, as I have
> gotten tired of patching with each release!
>
> This fixes a problem I have with diary entries displaying very long
> information in my schedule. I have diary entries imported from ical
> format which have multiple paragraphs of descriptive information.
>
> Of course, perhaps there are people who want the long display, so
> maybe it should be an option?
>
> best,
> Erik Hetzner
>
> diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
> index 79434bd..60805cf 100644
> --- a/lisp/org-agenda.el
> +++ b/lisp/org-agenda.el
> @@ -3385,7 +3385,7 @@ date.  It also removes lines that contain only  
> whitespace."
>     (re-search-forward "\n=+$" nil t)
>     (delete-region (point-min) (min (point-max) (1+ (match-end 0)))))
>   (goto-char (point-min))
> -  (while (re-search-forward "^ +\n" nil t)
> +  (while (re-search-forward "^ .*\n" nil t)
>     (replace-match ""))
>   (goto-char (point-min))
>   (if (re-search-forward "^Org-mode dummy\n?" nil t)
> ;; Erik Hetzner, California Digital Library
> ;; gnupg key id: 1024D/01DB07E3
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode