From mboxrd@z Thu Jan  1 00:00:00 1970
From: Carsten Dominik <dominik@science.uva.nl>
Subject: Re: [PATCH] org-agenda-add-entry-text
Date: Sun, 8 Mar 2009 16:53:24 +0100
Message-ID: <68DF1728-DB60-474E-9553-FEF6658CF622@uva.nl>
References: <D479C3FB-DC1F-44F1-916E-33D3BA77AC7E@gmail.com>
Mime-Version: 1.0 (Apple Message framework v930.3)
Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes
Content-Transfer-Encoding: 7bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1LgLJg-0002Eh-6f
	for emacs-orgmode@gnu.org; Sun, 08 Mar 2009 11:53:28 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1LgLJf-0002E5-Cj
	for emacs-orgmode@gnu.org; Sun, 08 Mar 2009 11:53:27 -0400
Received: from [199.232.76.173] (port=52803 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1LgLJf-0002E2-9O
	for emacs-orgmode@gnu.org; Sun, 08 Mar 2009 11:53:27 -0400
Received: from nf-out-0910.google.com ([64.233.182.186]:35711)
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <carsten.dominik@gmail.com>) id 1LgLJe-00068q-Do
	for emacs-orgmode@gnu.org; Sun, 08 Mar 2009 11:53:26 -0400
Received: by nf-out-0910.google.com with SMTP id b11so191053nfh.26
	for <emacs-orgmode@gnu.org>; Sun, 08 Mar 2009 08:53:25 -0700 (PDT)
In-Reply-To: <D479C3FB-DC1F-44F1-916E-33D3BA77AC7E@gmail.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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: Christopher Suckling <suckling.list@googlemail.com>
Cc: org-mode mailing list <emacs-orgmode@gnu.org>

Applied, thanks.

- Carsten

On Mar 8, 2009, at 4:28 PM, Christopher Suckling wrote:

> There seems to be an inconsistency in how org-agenda-add-entry-text  
> handles links. Sometimes they are exported as descriptive links and  
> sometimes as a [[URL][descriptive]] pair.
>
> The following patch adds a new variable, org-agenda-add-entry-text- 
> descriptive-links, that controls which of the above formats to use  
> when exporting the agenda.
>
> Best wishes,
>
> Christopher
>
> -----
>
> 	Modified lisp/org-agenda.el
> diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
> index 9b34d01..be2faab 100644
> --- a/lisp/org-agenda.el
> +++ b/lisp/org-agenda.el
> @@ -126,6 +126,12 @@ that is listed in the agenda view."
>   :group 'org-agenda
>   :type 'integer)
>
> +(defcustom org-agenda-add-entry-text-descriptive-links t
> +  "Non-nil means, export org-links as descriptive links  
> (obfuscating the
> +URL) when adding entry text to an agenda export."
> +  :group 'org-agenda
> +  :type 'boolean)
> +
> (defcustom org-agenda-export-html-style ""
>   "The style specification for exported HTML Agenda files.
> If this variable contains a string, it will replace the default  
> <style>
> @@ -2132,6 +2138,15 @@ Drawers will be excluded, also the line with  
> scheduling/deadline info."
> 					      ".*\n?"))
> 		    (with-temp-buffer
> 		      (insert txt)
> +		      (if org-agenda-add-entry-text-descriptive-links
> +			  (progn (goto-char (point-min))
> +				 (while (org-activate-bracket-links (point-max))
> +				   (add-text-properties (match-beginning 0) (match-end 0)
> +							'(face org-link))))
> +			(goto-char (point-min))
> +			(while (re-search-forward org-bracket-link-regexp (point-max) t)
> +			  (set-text-properties (match-beginning 0) (match-end 0)
> +					       nil)))
> 		      (goto-char (point-min))
> 		      (while (re-search-forward drawer-re nil t)
> 			(delete-region
>
>
>
> _______________________________________________
> 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