[PATCH] org-agenda-add-entry-text

[PATCH] org-agenda-add-entry-text

[Christopher Suckling]

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

  

Re: [PATCH] org-agenda-add-entry-text

[Carsten Dominik]

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