From mboxrd@z Thu Jan  1 00:00:00 1970
From: Christopher Suckling <suckling.list@googlemail.com>
Subject: [PATCH] org-agenda-add-entry-text
Date: Sun, 8 Mar 2009 15:28:24 +0000
Message-ID: <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 1LgKvX-000655-MB
	for emacs-orgmode@gnu.org; Sun, 08 Mar 2009 11:28:31 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1LgKvW-000645-Av
	for emacs-orgmode@gnu.org; Sun, 08 Mar 2009 11:28:31 -0400
Received: from [199.232.76.173] (port=52533 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1LgKvW-000642-1Z
	for emacs-orgmode@gnu.org; Sun, 08 Mar 2009 11:28:30 -0400
Received: from mail-ew0-f179.google.com ([209.85.219.179]:65054)
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <suckling.list@googlemail.com>) id 1LgKvV-0002xg-IR
	for emacs-orgmode@gnu.org; Sun, 08 Mar 2009 11:28:29 -0400
Received: by ewy27 with SMTP id 27so721766ewy.42
	for <emacs-orgmode@gnu.org>; Sun, 08 Mar 2009 08:28:27 -0700 (PDT)
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: org-mode mailing list <emacs-orgmode@gnu.org>

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