[PATCH] org: rework property set

[PATCH] org: rework property set

[Julien Danjou]

* org-capture.el (org-capture-fill-template): Use `org-set-property'
directly.

* org.el (org-set-property): Split property and values reading.
(org-read-property-name, org-read-property-value)
(org-set-property-function): New functions.
(org-property-set-functions-alist): New variable.

The initial goal of this patch is to introduce a special variable
`org-property-set-functions-alist'. The goal of this variable is to be
able to read properties values in a more intelligent way from
`org-set-property' or from `org-capture'.

For that, I decided to simplify the `org-set-property' code and to
remove what seems to be code duplication between `org-capture' and
`org-set-property'. I may have done this badly, so I think some one
with expertise of this code (Carsten?) should review the code.

It works but there maybe some corners case that would not be covered
with it.

Finally, with org-property-set-functions-alist we can read property
in a more intelligent way like that:

  (defun org-completing-date (prompt collection
                                     &optional predicate require-match
                                     initial-input hist def inherit-input-method)
    (org-read-date nil nil nil nil
                   (when (and def (not (string= def "")))
                     (org-time-string-to-time def))
                   initial-input))

  (setq org-property-set-functions-alist
        '(("BIRTHDAY" . org-completing-date)))

You can read a birthday property value using `org-read-date', which is
by far more convenient than the usual org-completing-read.

Signed-off-by: Julien Danjou <julien@danjou.info>
---
 lisp/org-capture.el |   24 +---------------
 lisp/org.el         |   78 ++++++++++++++++++++++++++++++++++----------------
 2 files changed, 54 insertions(+), 48 deletions(-)

diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index 5c7b038..9a93115 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -1288,29 +1288,7 @@ The template may still contain \"%?\" for cursor positioning."
 						   '(clipboards . 1)
 						   (car clipboards))))))
 	   ((equal char "p")
-	    (let*
-		((prop (org-substring-no-properties prompt))
-		 (pall (concat prop "_ALL"))
-		 (allowed
-		  (with-current-buffer
-		      (get-buffer (file-name-nondirectory file))
-		    (or (cdr (assoc pall org-file-properties))
-			(cdr (assoc pall org-global-properties))
-			(cdr (assoc pall org-global-properties-fixed)))))
-		 (existing (with-current-buffer
-			       (get-buffer (file-name-nondirectory file))
-			     (mapcar 'list (org-property-values prop))))
-		 (propprompt (concat "Value for " prop ": "))
-		 (val (if allowed
-			  (org-completing-read
-			   propprompt
-			   (mapcar 'list (org-split-string allowed
-							   "[ \t]+"))
-			   nil 'req-match)
-			(org-completing-read-no-i propprompt
-						  existing nil nil
-						  "" nil ""))))
-	      (org-set-property prop val)))
+	    (org-set-property (org-substring-no-properties prompt) nil))
 	   (char
 	    ;; These are the date/time related ones
 	    (setq org-time-was-given (equal (upcase char) char))
diff --git a/lisp/org.el b/lisp/org.el
index c4fe6a0..6a55d6b 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -13792,6 +13792,54 @@ formats in the current buffer."
 	  (hide-entry))
       (org-flag-drawer t))))
 
+(defvar org-property-set-functions-alist nil
+  "Property set function alist.
+Each entry should have the following format:
+
+ (PROPERTY . READ-FUNCTION)
+
+The read function will be called with the same argument as
+`org-completing-read.")
+
+(defun org-set-property-function (property)
+  "Get the function that should be used to set PROPERTY.
+This is computed according to `org-property-set-functions-alist'."
+  (or (cdr (assoc property org-property-set-functions-alist))
+      'org-completing-read))
+
+(defun org-read-property-value (property)
+  "Read PROPERTY value from user."
+  (let* ((completion-ignore-case t)
+	 (allowed (org-property-get-allowed-values nil property 'table))
+	 (cur (org-entry-get nil property))
+	 (prompt (concat property " value"
+			 (if (and cur (string-match "\\S-" cur))
+			     (concat " [" cur "]") "") ": "))
+	 (set-function (org-set-property-function property))
+	 (val (if allowed
+		  (funcall set-function prompt allowed nil
+			   (not (get-text-property 0 'org-unrestricted
+						   (caar allowed))))
+		(let (org-completion-use-ido org-completion-use-iswitchb)
+		  (funcall set-function prompt
+			   (mapcar 'list (org-property-values property))
+			   nil nil "" nil cur)))))
+    (if (equal val "")
+	cur
+      val)))
+
+(defun org-read-property-name ()
+  "Read a property name."
+  (let* ((completion-ignore-case t)
+	 (keys (org-buffer-property-keys nil t t))
+	 (property (org-icompleting-read "Property: " (mapcar 'list keys))))
+    (if (member property keys)
+	property
+      (or (cdr (assoc (downcase property)
+		      (mapcar (lambda (x) (cons (downcase x) x))
+			      keys)))
+	  property))))
+
 (defun org-set-property (property value)
   "In the current entry, set PROPERTY to VALUE.
 When called interactively, this will prompt for a property name, offering
@@ -13799,31 +13847,11 @@ completion on existing and default properties.  And then it will prompt
 for a value, offering completion either on allowed values (via an inherited
 xxx_ALL property) or on existing values in other instances of this property
 in the current file."
-  (interactive
-   (let* ((completion-ignore-case t)
-	  (keys (org-buffer-property-keys nil t t))
-	  (prop0 (org-icompleting-read "Property: " (mapcar 'list keys)))
-	  (prop (if (member prop0 keys)
-		    prop0
-		  (or (cdr (assoc (downcase prop0)
-				  (mapcar (lambda (x) (cons (downcase x) x))
-					  keys)))
-		      prop0)))
-	  (cur (org-entry-get nil prop))
-	  (prompt (concat prop " value"
-			  (if (and cur (string-match "\\S-" cur))
-			      (concat " [" cur "]") "") ": "))
-	  (allowed (org-property-get-allowed-values nil prop 'table))
-	  (existing (mapcar 'list (org-property-values prop)))
-	  (val (if allowed
-		   (org-completing-read prompt allowed nil
-		      (not (get-text-property 0 'org-unrestricted
-					      (caar allowed))))
-		 (let (org-completion-use-ido org-completion-use-iswitchb)
-		   (org-completing-read prompt existing nil nil "" nil cur)))))
-     (list prop (if (equal val "") cur val))))
-  (unless (equal (org-entry-get nil property) value)
-    (org-entry-put nil property value)))
+  (interactive (list nil nil))
+  (let* ((property (or property (org-read-property-name)))
+	 (value (or value (org-read-property-value property))))
+    (unless (equal (org-entry-get nil property) value)
+      (org-entry-put nil property value))))
 
 (defun org-delete-property (property)
   "In the current entry, delete PROPERTY."
-- 
1.7.2.3

Re: [PATCH] org: rework property set

[Bernt Hansen]

Thanks Julien,

This patch format is better.  Could you put the comments like 'I may
have done this badly, ...' and 'It works but there maybe some corners
case ...' after the --- and before the diffstat?

This isn't really useful to keep permanently in the org-mode history if
this patch is accepted but it does convey useful information that maybe
there are issues with this patch still and they should be looked at.

Anything between the --- and the diffstat is ignored when the patch is
used to create commits in git so they automatically just go away without
any intervention by the maintainer of the project.

It's great that you are providing this extra information - it just
should be moved to a better location in the patch so that it doesn't
become part of the permanent history of the project.  Do you really want
to read 'I may have done this badly' five years from now?  :)

Regards,
Bernt


Julien Danjou <julien@danjou.info> writes:

> * org-capture.el (org-capture-fill-template): Use `org-set-property'
> directly.
>
> * org.el (org-set-property): Split property and values reading.
> (org-read-property-name, org-read-property-value)
> (org-set-property-function): New functions.
> (org-property-set-functions-alist): New variable.
>
> The initial goal of this patch is to introduce a special variable
> `org-property-set-functions-alist'. The goal of this variable is to be
> able to read properties values in a more intelligent way from
> `org-set-property' or from `org-capture'.
>
> For that, I decided to simplify the `org-set-property' code and to
> remove what seems to be code duplication between `org-capture' and
> `org-set-property'. I may have done this badly, so I think some one
> with expertise of this code (Carsten?) should review the code.
>
> It works but there maybe some corners case that would not be covered
> with it.
>
> Finally, with org-property-set-functions-alist we can read property
> in a more intelligent way like that:
>
>   (defun org-completing-date (prompt collection
>                                      &optional predicate require-match
>                                      initial-input hist def inherit-input-method)
>     (org-read-date nil nil nil nil
>                    (when (and def (not (string= def "")))
>                      (org-time-string-to-time def))
>                    initial-input))
>
>   (setq org-property-set-functions-alist
>         '(("BIRTHDAY" . org-completing-date)))
>
> You can read a birthday property value using `org-read-date', which is
> by far more convenient than the usual org-completing-read.
>
> Signed-off-by: Julien Danjou <julien@danjou.info>
> ---

[Extra informational comments that don't really belong as part of the
 commit message should go here.  These will be discarded when the patch
 is applied]

>  lisp/org-capture.el |   24 +---------------
>  lisp/org.el         |   78 ++++++++++++++++++++++++++++++++++----------------
>  2 files changed, 54 insertions(+), 48 deletions(-)
>
> diff --git a/lisp/org-capture.el b/lisp/org-capture.el
> index 5c7b038..9a93115 100644
> --- a/lisp/org-capture.el
> +++ b/lisp/org-capture.el
> @@ -1288,29 +1288,7 @@ The template may still contain \"%?\" for cursor positioning."
>  						   '(clipboards . 1)
>  						   (car clipboards))))))
>  	   ((equal char "p")
> -	    (let*
> -		((prop (org-substring-no-properties prompt))
> -		 (pall (concat prop "_ALL"))
> -		 (allowed
> -		  (with-current-buffer
> -		      (get-buffer (file-name-nondirectory file))
> -		    (or (cdr (assoc pall org-file-properties))
> -			(cdr (assoc pall org-global-properties))
> -			(cdr (assoc pall org-global-properties-fixed)))))
> -		 (existing (with-current-buffer
> -			       (get-buffer (file-name-nondirectory file))
> -			     (mapcar 'list (org-property-values prop))))
> -		 (propprompt (concat "Value for " prop ": "))
> -		 (val (if allowed
> -			  (org-completing-read
> -			   propprompt
> -			   (mapcar 'list (org-split-string allowed
> -							   "[ \t]+"))
> -			   nil 'req-match)
> -			(org-completing-read-no-i propprompt
> -						  existing nil nil
> -						  "" nil ""))))
> -	      (org-set-property prop val)))
> +	    (org-set-property (org-substring-no-properties prompt) nil))
>  	   (char
>  	    ;; These are the date/time related ones
>  	    (setq org-time-was-given (equal (upcase char) char))
> diff --git a/lisp/org.el b/lisp/org.el
> index c4fe6a0..6a55d6b 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -13792,6 +13792,54 @@ formats in the current buffer."
>  	  (hide-entry))
>        (org-flag-drawer t))))
>  
> +(defvar org-property-set-functions-alist nil
> +  "Property set function alist.
> +Each entry should have the following format:
> +
> + (PROPERTY . READ-FUNCTION)
> +
> +The read function will be called with the same argument as
> +`org-completing-read.")
> +
> +(defun org-set-property-function (property)
> +  "Get the function that should be used to set PROPERTY.
> +This is computed according to `org-property-set-functions-alist'."
> +  (or (cdr (assoc property org-property-set-functions-alist))
> +      'org-completing-read))
> +
> +(defun org-read-property-value (property)
> +  "Read PROPERTY value from user."
> +  (let* ((completion-ignore-case t)
> +	 (allowed (org-property-get-allowed-values nil property 'table))
> +	 (cur (org-entry-get nil property))
> +	 (prompt (concat property " value"
> +			 (if (and cur (string-match "\\S-" cur))
> +			     (concat " [" cur "]") "") ": "))
> +	 (set-function (org-set-property-function property))
> +	 (val (if allowed
> +		  (funcall set-function prompt allowed nil
> +			   (not (get-text-property 0 'org-unrestricted
> +						   (caar allowed))))
> +		(let (org-completion-use-ido org-completion-use-iswitchb)
> +		  (funcall set-function prompt
> +			   (mapcar 'list (org-property-values property))
> +			   nil nil "" nil cur)))))
> +    (if (equal val "")
> +	cur
> +      val)))
> +
> +(defun org-read-property-name ()
> +  "Read a property name."
> +  (let* ((completion-ignore-case t)
> +	 (keys (org-buffer-property-keys nil t t))
> +	 (property (org-icompleting-read "Property: " (mapcar 'list keys))))
> +    (if (member property keys)
> +	property
> +      (or (cdr (assoc (downcase property)
> +		      (mapcar (lambda (x) (cons (downcase x) x))
> +			      keys)))
> +	  property))))
> +
>  (defun org-set-property (property value)
>    "In the current entry, set PROPERTY to VALUE.
>  When called interactively, this will prompt for a property name, offering
> @@ -13799,31 +13847,11 @@ completion on existing and default properties.  And then it will prompt
>  for a value, offering completion either on allowed values (via an inherited
>  xxx_ALL property) or on existing values in other instances of this property
>  in the current file."
> -  (interactive
> -   (let* ((completion-ignore-case t)
> -	  (keys (org-buffer-property-keys nil t t))
> -	  (prop0 (org-icompleting-read "Property: " (mapcar 'list keys)))
> -	  (prop (if (member prop0 keys)
> -		    prop0
> -		  (or (cdr (assoc (downcase prop0)
> -				  (mapcar (lambda (x) (cons (downcase x) x))
> -					  keys)))
> -		      prop0)))
> -	  (cur (org-entry-get nil prop))
> -	  (prompt (concat prop " value"
> -			  (if (and cur (string-match "\\S-" cur))
> -			      (concat " [" cur "]") "") ": "))
> -	  (allowed (org-property-get-allowed-values nil prop 'table))
> -	  (existing (mapcar 'list (org-property-values prop)))
> -	  (val (if allowed
> -		   (org-completing-read prompt allowed nil
> -		      (not (get-text-property 0 'org-unrestricted
> -					      (caar allowed))))
> -		 (let (org-completion-use-ido org-completion-use-iswitchb)
> -		   (org-completing-read prompt existing nil nil "" nil cur)))))
> -     (list prop (if (equal val "") cur val))))
> -  (unless (equal (org-entry-get nil property) value)
> -    (org-entry-put nil property value)))
> +  (interactive (list nil nil))
> +  (let* ((property (or property (org-read-property-name)))
> +	 (value (or value (org-read-property-value property))))
> +    (unless (equal (org-entry-get nil property) value)
> +      (org-entry-put nil property value))))
>  
>  (defun org-delete-property (property)
>    "In the current entry, delete PROPERTY."

Re: [PATCH] org: rework property set

[Julien Danjou]

[-- Attachment #1.1: Type: text/plain, Size: 497 bytes --]

On Mon, Dec 13 2010, Bernt Hansen wrote:

> This patch format is better.  Could you put the comments like 'I may
> have done this badly, ...' and 'It works but there maybe some corners
> case ...' after the --- and before the diffstat?

Sure, this is how I did usually, but last time I did that IIRC and
Carsten asked me to resend the patch with my text in the commit message.

So please someone really tell me what I should do ! :-)

-- 
Julien Danjou
❱ http://julien.danjou.info

[-- Attachment #1.2: Type: application/pgp-signature, Size: 197 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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

Re: Re: [PATCH] org: rework property set

[Giovanni Ridolfi]

Julien Danjou <julien@danjou.info> writes:

> On Mon, Dec 13 2010, Bernt Hansen wrote:
>
>> This patch format is better.  Could you put the comments like 'I may
>> have done this badly, ...' and 'It works but there maybe some corners
>> case ...' after the --- and before the diffstat?
>
> Sure, this is how I did usually, but last time I did that IIRC and
> Carsten asked me to resend the patch with my text in the commit message.
>
Hi, Julien,

> So please someone really tell me what I should do ! :-)

It should be described here: 
Commit messages and ChangeLog entries 
on http://orgmode.org/worg/org-contribute.php [1]

Unfortunately it  seems to be down, I hope you have cloned 
worg ;-) 

You can see also:

http://lists.gnu.org/archive/html/emacs-orgmode/2010-07/msg00037.html

I think that you can put some extra, useful, information, that can go 
in the Changelog, as lines not beginning with "*". 

But if you write very unformal/personal comments like: 
'I may have done this badly, ...' you should write after the ---.

cheers,
Giovanni

[1] thanks to David, 
   http://lists.gnu.org/archive/html/emacs-orgmode/2010-09/msg01512.html

Re: Re: [PATCH] org: rework property set

[Julien Danjou]

[-- Attachment #1.1: Type: text/plain, Size: 460 bytes --]

On Tue, Dec 14 2010, Giovanni Ridolfi wrote:

> I think that you can put some extra, useful, information, that can go 
> in the Changelog, as lines not beginning with "*". 
>
> But if you write very unformal/personal comments like: 
> 'I may have done this badly, ...' you should write after the ---.

Ok, I see what you mean. That's clear, I should have splitted my commit
message in 2 parts. :)

-- 
Julien Danjou
❱ http://julien.danjou.info

[-- Attachment #1.2: Type: application/pgp-signature, Size: 197 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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

Re: [PATCH] org: rework property set

[Bernt Hansen]

Julien Danjou <julien@danjou.info> writes:

> On Tue, Dec 14 2010, Giovanni Ridolfi wrote:
>
>> I think that you can put some extra, useful, information, that can go 
>> in the Changelog, as lines not beginning with "*". 
>>
>> But if you write very unformal/personal comments like: 
>> 'I may have done this badly, ...' you should write after the ---.
>
> Ok, I see what you mean. That's clear, I should have splitted my commit
> message in 2 parts. :)

Yes we want a good description of what the commit is for and why we need
it as part of the commit message.  Any extra information that really
doesn't belong in the commit log (such as 'this commit needs further
testing') should between the --- and diffstat.

Sorry if I wasn't clear earlier.

Regards,
Bernt

Re: Re: [PATCH] org: rework property set

[Nick Dokos]

Julien Danjou <julien@danjou.info> wrote:

> On Tue, Dec 14 2010, Giovanni Ridolfi wrote:
> 
> > I think that you can put some extra, useful, information, that can go 
> > in the Changelog, as lines not beginning with "*". 
> >
> > But if you write very unformal/personal comments like: 
> > 'I may have done this badly, ...' you should write after the ---.
> 
> Ok, I see what you mean. That's clear, I should have splitted my commit
> message in 2 parts. :)
> 

Here's another write-up on commit messages that might be useful:

       http://who-t.blogspot.com/2009/12/on-commit-messages.html

Nick

Re: Re: [PATCH] org: rework property set

[Carsten Dominik]

Hi Julien,

are you going to resend the patch?  I do like the functionality!
Or did you already resend it?  Maybe I missed it.  Unfortunately
I am loosing my overview here.

Cheers

- Carsten

On Dec 14, 2010, at 11:30 AM, Julien Danjou wrote:

> On Tue, Dec 14 2010, Giovanni Ridolfi wrote:
>
>> I think that you can put some extra, useful, information, that can go
>> in the Changelog, as lines not beginning with "*".
>>
>> But if you write very unformal/personal comments like:
>> 'I may have done this badly, ...' you should write after the ---.
>
> Ok, I see what you mean. That's clear, I should have splitted my  
> commit
> message in 2 parts. :)
>
> -- 
> Julien Danjou
> ❱ http://julien.danjou.info
> _______________________________________________
> 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

Re: Re: [PATCH] org: rework property set

[Julien Danjou]

[-- Attachment #1.1: Type: text/plain, Size: 367 bytes --]

On Thu, Dec 16 2010, Carsten Dominik wrote:

> are you going to resend the patch?  I do like the functionality!
> Or did you already resend it?  Maybe I missed it.  Unfortunately
> I am loosing my overview here.

If the code seems fine to you, I can resend the patch with a clean
commit message, for sure.

-- 
Julien Danjou
❱ http://julien.danjou.info

[-- Attachment #1.2: Type: application/pgp-signature, Size: 197 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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

Re: Re: [PATCH] org: rework property set

[Carsten Dominik]

Please do, thank you.

- Carsten

On Dec 16, 2010, at 2:45 PM, Julien Danjou wrote:

> On Thu, Dec 16 2010, Carsten Dominik wrote:
>
>> are you going to resend the patch?  I do like the functionality!
>> Or did you already resend it?  Maybe I missed it.  Unfortunately
>> I am loosing my overview here.
>
> If the code seems fine to you, I can resend the patch with a clean
> commit message, for sure.
>
> -- 
> Julien Danjou
> ❱ http://julien.danjou.info

[PATCH] org: rework property set

[Julien Danjou]

* org-capture.el (org-capture-fill-template): Use `org-set-property'
directly.

* org.el (org-set-property): Split property and values reading.
(org-read-property-name, org-read-property-value)
(org-set-property-function): New functions.
(org-property-set-functions-alist): New variable.

The goal of this patch is to introduce a special variable
`org-property-set-functions-alist'. This variable allows to read
properties values in a more intelligent way from `org-set-property' or
from `org-capture'.

For that, it simplifies the `org-set-property' code and remove
duplication between `org-capture' and `org-set-property'.

Signed-off-by: Julien Danjou <julien@danjou.info>
---
 lisp/org-capture.el |   24 +---------------
 lisp/org.el         |   78 ++++++++++++++++++++++++++++++++++----------------
 2 files changed, 54 insertions(+), 48 deletions(-)

diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index b85b011..eef8b5a 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -1295,29 +1295,7 @@ The template may still contain \"%?\" for cursor positioning."
 						   '(clipboards . 1)
 						   (car clipboards))))))
 	   ((equal char "p")
-	    (let*
-		((prop (org-substring-no-properties prompt))
-		 (pall (concat prop "_ALL"))
-		 (allowed
-		  (with-current-buffer
-		      (get-buffer (file-name-nondirectory file))
-		    (or (cdr (assoc pall org-file-properties))
-			(cdr (assoc pall org-global-properties))
-			(cdr (assoc pall org-global-properties-fixed)))))
-		 (existing (with-current-buffer
-			       (get-buffer (file-name-nondirectory file))
-			     (mapcar 'list (org-property-values prop))))
-		 (propprompt (concat "Value for " prop ": "))
-		 (val (if allowed
-			  (org-completing-read
-			   propprompt
-			   (mapcar 'list (org-split-string allowed
-							   "[ \t]+"))
-			   nil 'req-match)
-			(org-completing-read-no-i propprompt
-						  existing nil nil
-						  "" nil ""))))
-	      (org-set-property prop val)))
+	    (org-set-property (org-substring-no-properties prompt) nil))
 	   (char
 	    ;; These are the date/time related ones
 	    (setq org-time-was-given (equal (upcase char) char))
diff --git a/lisp/org.el b/lisp/org.el
index 53039e4..78e048d 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -13797,6 +13797,54 @@ formats in the current buffer."
 	  (hide-entry))
       (org-flag-drawer t))))
 
+(defvar org-property-set-functions-alist nil
+  "Property set function alist.
+Each entry should have the following format:
+
+ (PROPERTY . READ-FUNCTION)
+
+The read function will be called with the same argument as
+`org-completing-read.")
+
+(defun org-set-property-function (property)
+  "Get the function that should be used to set PROPERTY.
+This is computed according to `org-property-set-functions-alist'."
+  (or (cdr (assoc property org-property-set-functions-alist))
+      'org-completing-read))
+
+(defun org-read-property-value (property)
+  "Read PROPERTY value from user."
+  (let* ((completion-ignore-case t)
+	 (allowed (org-property-get-allowed-values nil property 'table))
+	 (cur (org-entry-get nil property))
+	 (prompt (concat property " value"
+			 (if (and cur (string-match "\\S-" cur))
+			     (concat " [" cur "]") "") ": "))
+	 (set-function (org-set-property-function property))
+	 (val (if allowed
+		  (funcall set-function prompt allowed nil
+			   (not (get-text-property 0 'org-unrestricted
+						   (caar allowed))))
+		(let (org-completion-use-ido org-completion-use-iswitchb)
+		  (funcall set-function prompt
+			   (mapcar 'list (org-property-values property))
+			   nil nil "" nil cur)))))
+    (if (equal val "")
+	cur
+      val)))
+
+(defun org-read-property-name ()
+  "Read a property name."
+  (let* ((completion-ignore-case t)
+	 (keys (org-buffer-property-keys nil t t))
+	 (property (org-icompleting-read "Property: " (mapcar 'list keys))))
+    (if (member property keys)
+	property
+      (or (cdr (assoc (downcase property)
+		      (mapcar (lambda (x) (cons (downcase x) x))
+			      keys)))
+	  property))))
+
 (defun org-set-property (property value)
   "In the current entry, set PROPERTY to VALUE.
 When called interactively, this will prompt for a property name, offering
@@ -13804,31 +13852,11 @@ completion on existing and default properties.  And then it will prompt
 for a value, offering completion either on allowed values (via an inherited
 xxx_ALL property) or on existing values in other instances of this property
 in the current file."
-  (interactive
-   (let* ((completion-ignore-case t)
-	  (keys (org-buffer-property-keys nil t t))
-	  (prop0 (org-icompleting-read "Property: " (mapcar 'list keys)))
-	  (prop (if (member prop0 keys)
-		    prop0
-		  (or (cdr (assoc (downcase prop0)
-				  (mapcar (lambda (x) (cons (downcase x) x))
-					  keys)))
-		      prop0)))
-	  (cur (org-entry-get nil prop))
-	  (prompt (concat prop " value"
-			  (if (and cur (string-match "\\S-" cur))
-			      (concat " [" cur "]") "") ": "))
-	  (allowed (org-property-get-allowed-values nil prop 'table))
-	  (existing (mapcar 'list (org-property-values prop)))
-	  (val (if allowed
-		   (org-completing-read prompt allowed nil
-		      (not (get-text-property 0 'org-unrestricted
-					      (caar allowed))))
-		 (let (org-completion-use-ido org-completion-use-iswitchb)
-		   (org-completing-read prompt existing nil nil "" nil cur)))))
-     (list prop (if (equal val "") cur val))))
-  (unless (equal (org-entry-get nil property) value)
-    (org-entry-put nil property value)))
+  (interactive (list nil nil))
+  (let* ((property (or property (org-read-property-name)))
+	 (value (or value (org-read-property-value property))))
+    (unless (equal (org-entry-get nil property) value)
+      (org-entry-put nil property value))))
 
 (defun org-delete-property (property)
   "In the current entry, delete PROPERTY."
-- 
1.7.2.3

Re: [PATCH] org: rework property set

[Carsten Dominik]

This is a perfect patch submission, thanks a lot for taking the time  
to fix it.

Accepted.

- Carsten

On Dec 16, 2010, at 6:12 PM, Julien Danjou wrote:

> * org-capture.el (org-capture-fill-template): Use `org-set-property'
> directly.
>
> * org.el (org-set-property): Split property and values reading.
> (org-read-property-name, org-read-property-value)
> (org-set-property-function): New functions.
> (org-property-set-functions-alist): New variable.
>
> The goal of this patch is to introduce a special variable
> `org-property-set-functions-alist'. This variable allows to read
> properties values in a more intelligent way from `org-set-property' or
> from `org-capture'.
>
> For that, it simplifies the `org-set-property' code and remove
> duplication between `org-capture' and `org-set-property'.
>
> Signed-off-by: Julien Danjou <julien@danjou.info>
> ---
> lisp/org-capture.el |   24 +---------------
> lisp/org.el         |   78 +++++++++++++++++++++++++++++++++ 
> +----------------
> 2 files changed, 54 insertions(+), 48 deletions(-)
>
> diff --git a/lisp/org-capture.el b/lisp/org-capture.el
> index b85b011..eef8b5a 100644
> --- a/lisp/org-capture.el
> +++ b/lisp/org-capture.el
> @@ -1295,29 +1295,7 @@ The template may still contain \"%?\" for  
> cursor positioning."
> 						   '(clipboards . 1)
> 						   (car clipboards))))))
> 	   ((equal char "p")
> -	    (let*
> -		((prop (org-substring-no-properties prompt))
> -		 (pall (concat prop "_ALL"))
> -		 (allowed
> -		  (with-current-buffer
> -		      (get-buffer (file-name-nondirectory file))
> -		    (or (cdr (assoc pall org-file-properties))
> -			(cdr (assoc pall org-global-properties))
> -			(cdr (assoc pall org-global-properties-fixed)))))
> -		 (existing (with-current-buffer
> -			       (get-buffer (file-name-nondirectory file))
> -			     (mapcar 'list (org-property-values prop))))
> -		 (propprompt (concat "Value for " prop ": "))
> -		 (val (if allowed
> -			  (org-completing-read
> -			   propprompt
> -			   (mapcar 'list (org-split-string allowed
> -							   "[ \t]+"))
> -			   nil 'req-match)
> -			(org-completing-read-no-i propprompt
> -						  existing nil nil
> -						  "" nil ""))))
> -	      (org-set-property prop val)))
> +	    (org-set-property (org-substring-no-properties prompt) nil))
> 	   (char
> 	    ;; These are the date/time related ones
> 	    (setq org-time-was-given (equal (upcase char) char))
> diff --git a/lisp/org.el b/lisp/org.el
> index 53039e4..78e048d 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -13797,6 +13797,54 @@ formats in the current buffer."
> 	  (hide-entry))
>       (org-flag-drawer t))))
>
> +(defvar org-property-set-functions-alist nil
> +  "Property set function alist.
> +Each entry should have the following format:
> +
> + (PROPERTY . READ-FUNCTION)
> +
> +The read function will be called with the same argument as
> +`org-completing-read.")
> +
> +(defun org-set-property-function (property)
> +  "Get the function that should be used to set PROPERTY.
> +This is computed according to `org-property-set-functions-alist'."
> +  (or (cdr (assoc property org-property-set-functions-alist))
> +      'org-completing-read))
> +
> +(defun org-read-property-value (property)
> +  "Read PROPERTY value from user."
> +  (let* ((completion-ignore-case t)
> +	 (allowed (org-property-get-allowed-values nil property 'table))
> +	 (cur (org-entry-get nil property))
> +	 (prompt (concat property " value"
> +			 (if (and cur (string-match "\\S-" cur))
> +			     (concat " [" cur "]") "") ": "))
> +	 (set-function (org-set-property-function property))
> +	 (val (if allowed
> +		  (funcall set-function prompt allowed nil
> +			   (not (get-text-property 0 'org-unrestricted
> +						   (caar allowed))))
> +		(let (org-completion-use-ido org-completion-use-iswitchb)
> +		  (funcall set-function prompt
> +			   (mapcar 'list (org-property-values property))
> +			   nil nil "" nil cur)))))
> +    (if (equal val "")
> +	cur
> +      val)))
> +
> +(defun org-read-property-name ()
> +  "Read a property name."
> +  (let* ((completion-ignore-case t)
> +	 (keys (org-buffer-property-keys nil t t))
> +	 (property (org-icompleting-read "Property: " (mapcar 'list keys))))
> +    (if (member property keys)
> +	property
> +      (or (cdr (assoc (downcase property)
> +		      (mapcar (lambda (x) (cons (downcase x) x))
> +			      keys)))
> +	  property))))
> +
> (defun org-set-property (property value)
>   "In the current entry, set PROPERTY to VALUE.
> When called interactively, this will prompt for a property name,  
> offering
> @@ -13804,31 +13852,11 @@ completion on existing and default  
> properties.  And then it will prompt
> for a value, offering completion either on allowed values (via an  
> inherited
> xxx_ALL property) or on existing values in other instances of this  
> property
> in the current file."
> -  (interactive
> -   (let* ((completion-ignore-case t)
> -	  (keys (org-buffer-property-keys nil t t))
> -	  (prop0 (org-icompleting-read "Property: " (mapcar 'list keys)))
> -	  (prop (if (member prop0 keys)
> -		    prop0
> -		  (or (cdr (assoc (downcase prop0)
> -				  (mapcar (lambda (x) (cons (downcase x) x))
> -					  keys)))
> -		      prop0)))
> -	  (cur (org-entry-get nil prop))
> -	  (prompt (concat prop " value"
> -			  (if (and cur (string-match "\\S-" cur))
> -			      (concat " [" cur "]") "") ": "))
> -	  (allowed (org-property-get-allowed-values nil prop 'table))
> -	  (existing (mapcar 'list (org-property-values prop)))
> -	  (val (if allowed
> -		   (org-completing-read prompt allowed nil
> -		      (not (get-text-property 0 'org-unrestricted
> -					      (caar allowed))))
> -		 (let (org-completion-use-ido org-completion-use-iswitchb)
> -		   (org-completing-read prompt existing nil nil "" nil cur)))))
> -     (list prop (if (equal val "") cur val))))
> -  (unless (equal (org-entry-get nil property) value)
> -    (org-entry-put nil property value)))
> +  (interactive (list nil nil))
> +  (let* ((property (or property (org-read-property-name)))
> +	 (value (or value (org-read-property-value property))))
> +    (unless (equal (org-entry-get nil property) value)
> +      (org-entry-put nil property value))))
>
> (defun org-delete-property (property)
>   "In the current entry, delete PROPERTY."
> -- 
> 1.7.2.3
>
>
> _______________________________________________
> 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

Problem with agenda and diary

[Dan Griswold]

Hi all,

As of today, there's a problem with org-agenda-list when
org-agenda-include-diary is set to t. I get this error:
  mapcar: Wrong type argument: integerp, nil

I have confirmed that the error occurs with only one item in the diary
file, such as this one:

Mar 18, 2011  8:00 planning

I feel that I am now just spinning around in circles and wasting time. I
really don't know what I'm doing anymore.

What do you think is wrong?

Thank you,

Dan

-- 
Dan Griswold
Rochester, NY

Re: Problem with agenda and diary

[Erik Iverson]

Dan,

My agenda won't build this morning either, so it's more than you.
I don't have time to investigate right now, but just know it's not
something you did.

--e

Dan Griswold wrote:
> Hi all,
> 
> As of today, there's a problem with org-agenda-list when
> org-agenda-include-diary is set to t. I get this error:
>   mapcar: Wrong type argument: integerp, nil
> 
> I have confirmed that the error occurs with only one item in the diary
> file, such as this one:
> 
> Mar 18, 2011  8:00 planning
> 
> I feel that I am now just spinning around in circles and wasting time. I
> really don't know what I'm doing anymore.
> 
> What do you think is wrong?
> 
> Thank you,
> 
> Dan
> 

Re: Problem with agenda and diary

[Tassilo Horn]

Dan Griswold <dgriswol@rochester.rr.com> writes:

Hi Dan,

> As of today, there's a problem with org-agenda-list when
> org-agenda-include-diary is set to t. I get this error:
>   mapcar: Wrong type argument: integerp, nil

Yes, I can confirm that.  Here's parts of the backtrace:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument integerp nil)
  org-agenda-highlight-todo(#("  Diary:      St. Patrick's Day" 0 2 (org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time fontified nil org-heading t type "diary" date (3 17 2011) face org-todo) 2 14 (org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time fontified nil org-heading t type "diary" date (3 17 2011) face org-agenda-diary) 14 31 (org-heading t fontified nil org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-
 of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time type "diary" date (3 17 2011) face org-agenda-diary)))
  [...]
  org-agenda-list(nil)
  call-interactively(org-agenda-list)
  byte-code("\306\307 	\232\203
--8<---------------cut here---------------end--------------->8---

> I have confirmed that the error occurs with only one item in the diary
> file, such as this one:
>
> Mar 18, 2011  8:00 planning

It also occurs with an totally empty diary file like mine.

My settings are as follows.

,----[ C-h v org-agenda-diary-file RET ]
| org-agenda-diary-file is a variable defined in `org.el'.
| Its value is diary-file
`----

,----[ C-h v diary-file RET ]
| diary-file is a variable defined in `calendar.el'.
| Its value is "~/.emacs.d/diary"
| Original value was "~/diary"
`----

Hm, the entry it errors with seems to come from the St. Patrick's Day
entry in `calendar-holidays'...

Bye,
Tassilo

Re: Re: Problem with agenda and diary

[Julien Danjou]

[-- Attachment #1: Type: text/plain, Size: 1504 bytes --]

On Thu, Mar 17 2011, Tassilo Horn wrote:

> Yes, I can confirm that.  Here's parts of the backtrace:
>
> Debugger entered--Lisp error: (wrong-type-argument integerp nil)
>   org-agenda-highlight-todo(#("  Diary:      St. Patrick's Day" 0 2 (org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time fontified nil org-heading t type "diary" date (3 17 2011) face org-todo) 2 14 (org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time fontified nil org-heading t type "diary" date (3 17 2011) face org-agenda-diary) 14 31 (org-heading t fontified nil org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time type "diary" date (3 17 2011) face org-agenda-diary)))
>   [...]
>   org-agenda-list(nil)
>   call-interactively(org-agenda-list)
>   byte-code("\306\307 	\232\203

It may has been introduced by one of my latest commit. Could you load
org-agenda.el (not compiled) and give me the full backtrace (in
private)?

Thanks.

-- 
Julien Danjou
❱ http://julien.danjou.info

[-- Attachment #2: Type: application/pgp-signature, Size: 835 bytes --]

Re: Problem with agenda and diary

[Dan Griswold]

On 17 Mar 2011, tassilo@member.fsf.org wrote:

> Hm, the entry it errors with seems to come from the St. Patrick's Day
> entry in `calendar-holidays'...

I thought the same thing. But then I customized holiday-general-holidays
to exclude St. Patrick's Day, and the error still comes up, the
backtrace showing the first diary entry it encounters.

Dan

-- 
Dan Griswold
dgriswol@rochester.rr.com

Re: Re: Problem with agenda and diary

[Tassilo Horn]

Julien Danjou <julien@danjou.info> writes:

Hi Julien,

> It may has been introduced by one of my latest commit. Could you load
> org-agenda.el (not compiled) and give me the full backtrace (in
> private)?

Sure, here it is.  There' nothing private in it, so we can stay on list.

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument integerp nil)
  substring(#("  Diary:      St. Patrick's Day" 0 2 (org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time fontified nil org-heading t type "diary" date (3 17 2011) face org-todo) 2 14 (org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time fontified nil org-heading t type "diary" date (3 17 2011) face org-agenda-diary) 14 31 (org-heading t fontified nil org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time type "diary" date (3 17 2011) face org-agenda-diary)) nil)
  (concat (substring x 0 (match-end 1)) (format org-agenda-todo-keyword-format (match-string 2 x)) (org-add-props #(" " 0 1 (done-face org-agenda-done undone-face org-warning face org-todo date (3 17 2011) type "diary" todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) priority 1002 org-hd-marker #<marker at 11277 in uni.org> org-marker #<marker at 11332 in uni.org> help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" mouse-face highlight dotime time extra "" time "" txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) effort-minutes nil effort nil duration nil time-of-day nil org-lowest-priority 67 org-highest-priority 65 tags nil ...)) (text-properties-at 0 x)) (substring x (match-end 3)))
  (setq x (concat (substring x 0 (match-end 1)) (format org-agenda-todo-keyword-format (match-string 2 x)) (org-add-props #(" " 0 1 (done-face org-agenda-done undone-face org-warning face org-todo date (3 17 2011) type "diary" todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) priority 1002 org-hd-marker #<marker at 11277 in uni.org> org-marker #<marker at 11332 in uni.org> help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" mouse-face highlight dotime time extra "" time "" txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) effort-minutes nil effort nil duration nil time-of-day nil org-lowest-priority 67 org-highest-priority 65 tags nil ...)) (text-properties-at 0 x)) (substring x (match-end 3))))
  (progn (setq x (concat (substring x 0 (match-end 1)) (format org-agenda-todo-keyword-format (match-string 2 x)) (org-add-props #(" " 0 1 (done-face org-agenda-done undone-face org-warning face org-todo date (3 17 2011) type "diary" todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) priority 1002 org-hd-marker #<marker at 11277 in uni.org> org-marker #<marker at 11332 in uni.org> help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" mouse-face highlight dotime time extra "" time "" txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) effort-minutes nil effort nil duration nil time-of-day nil org-lowest-priority 67 org-highest-priority 65 tags nil ...)) (text-properties-at 0 x)) (substring x (match-end 3)))))
  (if (match-end 1) (progn (setq x (concat (substring x 0 (match-end 1)) (format org-agenda-todo-keyword-format (match-string 2 x)) (org-add-props #(" " 0 1 (done-face org-agenda-done undone-face org-warning face org-todo date (3 17 2011) type "diary" todo-state #("STARTED" 0 7 ...) priority 1002 org-hd-marker #<marker at 11277 in uni.org> org-marker #<marker at 11332 in uni.org> help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" mouse-face highlight dotime time extra "" time "" txt #("St. Patrick's Day" 0 17 ...) effort-minutes nil effort nil duration nil time-of-day nil org-lowest-priority 67 org-highest-priority 65 tags nil ...)) (text-properties-at 0 x)) (substring x (match-end 3))))))
  (when (match-end 1) (setq x (concat (substring x 0 (match-end 1)) (format org-agenda-todo-keyword-format (match-string 2 x)) (org-add-props #(" " 0 1 (done-face org-agenda-done undone-face org-warning face org-todo date (3 17 2011) type "diary" todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) priority 1002 org-hd-marker #<marker at 11277 in uni.org> org-marker #<marker at 11332 in uni.org> help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" mouse-face highlight dotime time extra "" time "" txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) effort-minutes nil effort nil duration nil time-of-day nil org-lowest-priority 67 org-highest-priority 65 tags nil ...)) (text-properties-at 0 x)) (substring x (match-end 3)))))
  (progn (add-text-properties (or (match-end 1) (match-end 0)) (match-end 0) (list (quote face) (org-get-todo-face (match-string 2 x))) x) (when (match-end 1) (setq x (concat (substring x 0 (match-end 1)) (format org-agenda-todo-keyword-format (match-string 2 x)) (org-add-props #(" " 0 1 (done-face org-agenda-done undone-face org-warning face org-todo date (3 17 2011) type "diary" todo-state #("STARTED" 0 7 ...) priority 1002 org-hd-marker #<marker at 11277 in uni.org> org-marker #<marker at 11332 in uni.org> help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" mouse-face highlight dotime time extra "" time "" txt #("St. Patrick's Day" 0 17 ...) effort-minutes nil effort nil duration nil time-of-day nil org-lowest-priority 67 org-highest-priority 65 tags nil ...)) (text-properties-at 0 x)) (substring x (match-end 3))))))
  (if (and re (equal (string-match (concat "\\(\\.*\\)" re "\\( +\\)") x (or pl 0)) pl)) (progn (add-text-properties (or (match-end 1) (match-end 0)) (match-end 0) (list (quote face) (org-get-todo-face (match-string 2 x))) x) (when (match-end 1) (setq x (concat (substring x 0 (match-end 1)) (format org-agenda-todo-keyword-format (match-string 2 x)) (org-add-props #(" " 0 1 (done-face org-agenda-done undone-face org-warning face org-todo date ... type "diary" todo-state #("STARTED" 0 7 ...) priority 1002 org-hd-marker #<marker at 11277 in uni.org> org-marker #<marker at 11332 in uni.org> help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" mouse-face highlight dotime time extra "" time "" txt #("St. Patrick's Day" 0 17 ...) effort-minutes nil effort nil duration nil time-of-day nil org-lowest-priority 67 org-highest-priority 65 tags nil ...)) (text-properties-at 0 x)) (substring x (match-end 3)))))))
  (when (and re (equal (string-match (concat "\\(\\.*\\)" re "\\( +\\)") x (or pl 0)) pl)) (add-text-properties (or (match-end 1) (match-end 0)) (match-end 0) (list (quote face) (org-get-todo-face (match-string 2 x))) x) (when (match-end 1) (setq x (concat (substring x 0 (match-end 1)) (format org-agenda-todo-keyword-format (match-string 2 x)) (org-add-props #(" " 0 1 (done-face org-agenda-done undone-face org-warning face org-todo date (3 17 2011) type "diary" todo-state #("STARTED" 0 7 ...) priority 1002 org-hd-marker #<marker at 11277 in uni.org> org-marker #<marker at 11332 in uni.org> help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" mouse-face highlight dotime time extra "" time "" txt #("St. Patrick's Day" 0 17 ...) effort-minutes nil effort nil duration nil time-of-day nil org-lowest-priority 67 org-highest-priority 65 tags nil ...)) (text-properties-at 0 x)) (substring x (match-end 3))))))
  (let ((pl (text-property-any 0 (length x) (quote org-heading) t x))) (setq re (concat (get-text-property 0 (quote org-todo-regexp) x))) (when (and re (equal (string-match (concat "\\(\\.*\\)" re "\\( +\\)") x (or pl 0)) pl)) (add-text-properties (or (match-end 1) (match-end 0)) (match-end 0) (list (quote face) (org-get-todo-face (match-string 2 x))) x) (when (match-end 1) (setq x (concat (substring x 0 (match-end 1)) (format org-agenda-todo-keyword-format (match-string 2 x)) (org-add-props #(" " 0 1 (done-face org-agenda-done undone-face org-warning face org-todo date ... type "diary" todo-state #("STARTED" 0 7 ...) priority 1002 org-hd-marker #<marker at 11277 in uni.org> org-marker #<marker at 11332 in uni.org> help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" mouse-face highlight dotime time extra "" time "" txt #("St. Patrick's Day" 0 17 ...) effort-minutes nil effort nil duration nil time-of-day nil org-lowest-priority 67 org-highest-priority 65 tags nil ...)) (text-properties-at 0 x)) (substring x (match-end 3)))))))
  (if (eq x (quote line)) (save-excursion (beginning-of-line 1) (setq re (org-get-at-bol (quote org-todo-regexp))) (goto-char (or (text-property-any (point-at-bol) (point-at-eol) (quote org-heading) t) (point))) (when (looking-at (concat "[ 	]*\\.*\\(" re "\\) +")) (add-text-properties (match-beginning 0) (match-end 1) (list (quote face) (org-get-todo-face 1))) (let ((s (buffer-substring (match-beginning 1) (match-end 1)))) (delete-region (match-beginning 1) (1- (match-end 0))) (goto-char (match-beginning 1)) (insert (format org-agenda-todo-keyword-format s))))) (let ((pl (text-property-any 0 (length x) (quote org-heading) t x))) (setq re (concat (get-text-property 0 (quote org-todo-regexp) x))) (when (and re (equal (string-match (concat "\\(\\.*\\)" re "\\( +\\)") x (or pl 0)) pl)) (add-text-properties (or (match-end 1) (match-end 0)) (match-end 0) (list (quote face) (org-get-todo-face (match-string 2 x))) x) (when (match-end 1) (setq x (concat (substring x 0 (match-end 1)) (format org-agenda-todo-keyword-format (match-string 2 x)) (org-add-props #(" " 0 1 ...) (text-properties-at 0 x)) (substring x (match-end 3))))))) x)
  (let ((org-done-keywords org-done-keywords-for-agenda) (case-fold-search nil) re) (if (eq x (quote line)) (save-excursion (beginning-of-line 1) (setq re (org-get-at-bol (quote org-todo-regexp))) (goto-char (or (text-property-any (point-at-bol) (point-at-eol) (quote org-heading) t) (point))) (when (looking-at (concat "[ 	]*\\.*\\(" re "\\) +")) (add-text-properties (match-beginning 0) (match-end 1) (list (quote face) (org-get-todo-face 1))) (let ((s (buffer-substring ... ...))) (delete-region (match-beginning 1) (1- (match-end 0))) (goto-char (match-beginning 1)) (insert (format org-agenda-todo-keyword-format s))))) (let ((pl (text-property-any 0 (length x) (quote org-heading) t x))) (setq re (concat (get-text-property 0 (quote org-todo-regexp) x))) (when (and re (equal (string-match (concat "\\(\\.*\\)" re "\\( +\\)") x (or pl 0)) pl)) (add-text-properties (or (match-end 1) (match-end 0)) (match-end 0) (list (quote face) (org-get-todo-face (match-string 2 x))) x) (when (match-end 1) (setq x (concat (substring x 0 ...) (format org-agenda-todo-keyword-format ...) (org-add-props #(" " 0 1 ...) ...) (substring x ...)))))) x))
  org-agenda-highlight-todo(#("  Diary:      St. Patrick's Day" 0 2 (org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time fontified nil org-heading t type "diary" date (3 17 2011) face org-todo) 2 14 (org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time fontified nil org-heading t type "diary" date (3 17 2011) face org-agenda-diary) 14 31 (org-heading t fontified nil org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time type "diary" date (3 17 2011) face org-agenda-diary)))
  mapcar(org-agenda-highlight-todo (#("              16:32...... now - - - - - - - - - - - - - - - - - - - - - - - - -" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1632 duration nil effort nil effort-minutes nil txt #("now - - - - - - - - - - - - - - - - - - - - - - - - -" 0 53 (org-heading t)) time "16:32......" extra "" dotime "16:32 ") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1632 duration nil effort nil effort-minutes nil txt #("now - - - - - - - - - - - - - - - - - - - - - - - - -" 0 53 (org-heading t)) time "16:32......" extra "" dotime "16:32 " face org-agenda-current-time) 26 79 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1632 duration nil effort nil effort-minutes nil txt #("now - - - - - - - - - - - - - - - - - - - - - - - - -" 0 53 (org-heading t)) time "16:32......" extra "" dotime "16:32 " face org-agenda-current-time)) #("              20:00...... ----------------" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 2000 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "20:00......" extra "" dotime "20:00") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 2000 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "20:00......" extra "" dotime "20:00" face org-time-grid) 26 42 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 2000 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "20:00......" extra "" dotime "20:00" face org-time-grid)) #("              18:00...... ----------------" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1800 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "18:00......" extra "" dotime "18:00") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1800 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "18:00......" extra "" dotime "18:00" face org-time-grid) 26 42 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1800 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "18:00......" extra "" dotime "18:00" face org-time-grid)) #("              16:00...... ----------------" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1600 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "16:00......" extra "" dotime "16:00") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1600 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "16:00......" extra "" dotime "16:00" face org-time-grid) 26 42 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1600 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "16:00......" extra "" dotime "16:00" face org-time-grid)) #("              14:00...... ----------------" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1400 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "14:00......" extra "" dotime "14:00") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1400 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "14:00......" extra "" dotime "14:00" face org-time-grid) 26 42 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1400 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "14:00......" extra "" dotime "14:00" face org-time-grid)) #("              12:00...... ----------------" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1200 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "12:00......" extra "" dotime "12:00") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1200 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "12:00......" extra "" dotime "12:00" face org-time-grid) 26 42 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1200 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "12:00......" extra "" dotime "12:00" face org-time-grid)) #("              10:00...... ----------------" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1000 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "10:00......" extra "" dotime "10:00") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1000 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "10:00......" extra "" dotime "10:00" face org-time-grid) 26 42 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1000 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "10:00......" extra "" dotime "10:00" face org-time-grid)) #("              08:00...... ----------------" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 800 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "08:00......" extra "" dotime "08:00") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 800 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "08:00......" extra "" dotime "08:00" face org-time-grid) 26 42 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 800 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "08:00......" extra "" dotime "08:00" face org-time-grid)) #("  diss:       In  11 d.:  TODO Submit camera-ready paper for ICMT 2011 :trip::" 0 26 (org-category "diss" tags (#("trip" 0 4 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Submit camera-ready paper for ICMT 2011 :trip::" 0 46 (org-heading t) 46 50 (inherited t org-heading t) 50 52 (org-heading t)) time "" extra "In  11 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/diss.org" org-marker #<marker at 8095 in diss.org> org-hd-marker #<marker at 8032 in diss.org> priority 989 todo-state #("TODO" 0 4 (fontified nil org-category "diss")) type "upcoming-deadline" date (3 17 2011) face default undone-face default ...) 26 31 (org-heading t org-category "diss" tags (#("trip" 0 4 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Submit camera-ready paper for ICMT 2011 :trip::" 0 46 (org-heading t) 46 50 (inherited t org-heading t) 50 52 (org-heading t)) time "" extra "In  11 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/diss.org" org-marker #<marker at 8095 in diss.org> org-hd-marker #<marker at 8032 in diss.org> priority 989 todo-state #("TODO" 0 4 (fontified nil org-category "diss")) type "upcoming-deadline" date (3 17 2011) face org-todo ...) 31 72 (org-heading t org-category "diss" tags (#("trip" 0 4 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Submit camera-ready paper for ICMT 2011 :trip::" 0 46 (org-heading t) 46 50 (inherited t org-heading t) 50 52 (org-heading t)) time "" extra "In  11 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/diss.org" org-marker #<marker at 8095 in diss.org> org-hd-marker #<marker at 8032 in diss.org> priority 989 todo-state #("TODO" 0 4 (fontified nil org-category "diss")) type "upcoming-deadline" date (3 17 2011) face default ...) 72 76 (org-heading t inherited t org-category "diss" tags (#("trip" 0 4 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Submit camera-ready paper for ICMT 2011 :trip::" 0 46 (org-heading t) 46 50 (inherited t org-heading t) 50 52 (org-heading t)) time "" extra "In  11 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/diss.org" org-marker #<marker at 8095 in diss.org> org-hd-marker #<marker at 8032 in diss.org> priority 989 todo-state #("TODO" 0 4 (fontified nil org-category "diss")) type "upcoming-deadline" date (3 17 2011) ...) 76 78 (org-heading t org-category "diss" tags (#("trip" 0 4 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Submit camera-ready paper for ICMT 2011 :trip::" 0 46 (org-heading t) 46 50 (inherited t org-heading t) 50 52 (org-heading t)) time "" extra "In  11 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/diss.org" org-marker #<marker at 8095 in diss.org> org-hd-marker #<marker at 8032 in diss.org> priority 989 todo-state #("TODO" 0 4 (fontified nil org-category "diss")) type "upcoming-deadline" date (3 17 2011) face default ...)) #("  private:    Sched.12x:  TODO Wurmkur Leines                     :leines::" 0 26 (org-category "private" tags (#("leines" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Wurmkur Leines                     :leines::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "Sched.12x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 365 in private.org> org-hd-marker #<marker at 328 in private.org> type "past-scheduled" date 734202 priority 1110 ...) 26 31 (org-heading t org-category "private" tags (#("leines" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Wurmkur Leines                     :leines::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "Sched.12x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" undone-face org-scheduled-previously face org-todo org-marker #<marker at 365 in private.org> org-hd-marker #<marker at 328 in private.org> type "past-scheduled" date 734202 ...) 31 67 (org-heading t org-category "private" tags (#("leines" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Wurmkur Leines                     :leines::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "Sched.12x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 365 in private.org> org-hd-marker #<marker at 328 in private.org> type "past-scheduled" date 734202 ...) 67 73 (org-heading t inherited t org-category "private" tags (#("leines" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Wurmkur Leines                     :leines::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "Sched.12x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 365 in private.org> org-hd-marker #<marker at 328 in private.org> type "past-scheduled" ...) 73 75 (org-heading t org-category "private" tags (#("leines" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Wurmkur Leines                     :leines::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "Sched.12x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 365 in private.org> org-hd-marker #<marker at 328 in private.org> type "past-scheduled" date 734202 ...)) #("  Montabaur:  icon Vereinzelt Regen, [4,10] ℃" 0 2 (org-category #("Montabaur" 0 9 (fontified nil org-category "private")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("icon Vereinzelt Regen, [4,10] ℃" 0 4 (rear-nonsticky (display) display (image :type png :file "/usr/share/icons/gnome/22x22/status/weather-showers-scattered.png" :ascent center) org-heading t) 4 31 (org-heading t)) time "" extra "" dotime time mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" org-marker #<marker at 6370 in private.org> date (3 17 2011) todo-state nil type "sexp") 2 11 (fontified nil org-category #("Montabaur" 0 9 (fontified nil org-category "private")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("icon Vereinzelt Regen, [4,10] ℃" 0 4 (rear-nonsticky (display) display (image :type png :file "/usr/share/icons/gnome/22x22/status/weather-showers-scattered.png" :ascent center) org-heading t) 4 31 (org-heading t)) time "" extra "" dotime time mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" org-marker #<marker at 6370 in private.org> date (3 17 2011) todo-state nil type "sexp") 11 14 (org-category #("Montabaur" 0 9 (fontified nil org-category "private")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("icon Vereinzelt Regen, [4,10] ℃" 0 4 (rear-nonsticky (display) display (image :type png :file "/usr/share/icons/gnome/22x22/status/weather-showers-scattered.png" :ascent center) org-heading t) 4 31 (org-heading t)) time "" extra "" dotime time mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" org-marker #<marker at 6370 in private.org> date (3 17 2011) todo-state nil type "sexp") 14 18 (org-heading t display (image :type png :file "/usr/share/icons/gnome/22x22/status/weather-showers-scattered.png" :ascent center) rear-nonsticky (display) org-category #("Montabaur" 0 9 (fontified nil org-category "private")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("icon Vereinzelt Regen, [4,10] ℃" 0 4 (rear-nonsticky (display) display (image :type png :file "/usr/share/icons/gnome/22x22/status/weather-showers-scattered.png" :ascent center) org-heading t) 4 31 (org-heading t)) time "" extra "" dotime time mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" org-marker #<marker at 6370 in private.org> date (3 17 2011) todo-state nil type "sexp") 18 45 (org-heading t org-category #("Montabaur" 0 9 (fontified nil org-category "private")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("icon Vereinzelt Regen, [4,10] ℃" 0 4 (rear-nonsticky (display) display (image :type png :file "/usr/share/icons/gnome/22x22/status/weather-showers-scattered.png" :ascent center) org-heading t) 4 31 (org-heading t)) time "" extra "" dotime time mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" org-marker #<marker at 6370 in private.org> date (3 17 2011) todo-state nil type "sexp")) #("  remember:   Sched.20x:  STARTED Install and test-drive OpenShot Video Editor" 0 26 (org-category "remember" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Install and test-drive OpenShot Video Editor" 0 52 (org-heading t)) time "" extra "Sched.20x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/remember.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 1700 in remember.org> org-hd-marker #<marker at 1632 in remember.org> type "past-scheduled" date 734194 priority 1118 ...) 26 34 (org-heading t org-category "remember" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Install and test-drive OpenShot Video Editor" 0 52 (org-heading t)) time "" extra "Sched.20x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/remember.org" undone-face org-scheduled-previously face org-todo org-marker #<marker at 1700 in remember.org> org-hd-marker #<marker at 1632 in remember.org> type "past-scheduled" date 734194 ...) 34 78 (org-heading t org-category "remember" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Install and test-drive OpenShot Video Editor" 0 52 (org-heading t)) time "" extra "Sched.20x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/remember.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 1700 in remember.org> org-hd-marker #<marker at 1632 in remember.org> type "past-scheduled" date 734194 ...)) #("  remember:   Scheduled:  TODO Zoll-Rechnung bezahlen" 0 26 (org-category "remember" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Zoll-Rechnung bezahlen" 0 27 (org-heading t)) time "" extra "Scheduled: " dotime time org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/remember.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 2546 in remember.org> org-hd-marker #<marker at 2503 in remember.org> type "scheduled" date (3 17 2011) priority 1099 ...) 26 31 (org-heading t org-category "remember" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Zoll-Rechnung bezahlen" 0 27 (org-heading t)) time "" extra "Scheduled: " dotime time org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/remember.org" undone-face org-scheduled-today face org-todo org-marker #<marker at 2546 in remember.org> org-hd-marker #<marker at 2503 in remember.org> type "scheduled" date (3 17 2011) ...) 31 53 (org-heading t org-category "remember" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Zoll-Rechnung bezahlen" 0 27 (org-heading t)) time "" extra "Scheduled: " dotime time org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/remember.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 2546 in remember.org> org-hd-marker #<marker at 2503 in remember.org> type "scheduled" date (3 17 2011) ...)) #("  uni:        In  -2 d.:  STARTED Dokument: The SOAMIG-Process    :soamig::" 0 26 (org-category "uni" tags (#("soamig" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Dokument: The SOAMIG-Process    :soamig::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "In  -2 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-marker #<marker at 11332 in uni.org> org-hd-marker #<marker at 11277 in uni.org> priority 1002 todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) type "deadline" date 734211 face org-warning undone-face org-warning ...) 26 34 (org-heading t org-category "uni" tags (#("soamig" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Dokument: The SOAMIG-Process    :soamig::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "In  -2 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-marker #<marker at 11332 in uni.org> org-hd-marker #<marker at 11277 in uni.org> priority 1002 todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) type "deadline" date 734211 face org-todo ...) 34 67 (org-heading t org-category "uni" tags (#("soamig" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Dokument: The SOAMIG-Process    :soamig::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "In  -2 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-marker #<marker at 11332 in uni.org> org-hd-marker #<marker at 11277 in uni.org> priority 1002 todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) type "deadline" date 734211 face org-warning ...) 67 73 (org-heading t inherited t org-category "uni" tags (#("soamig" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Dokument: The SOAMIG-Process    :soamig::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "In  -2 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-marker #<marker at 11332 in uni.org> org-hd-marker #<marker at 11277 in uni.org> priority 1002 todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) type "deadline" date 734211 ...) 73 75 (org-heading t org-category "uni" tags (#("soamig" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Dokument: The SOAMIG-Process    :soamig::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "In  -2 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-marker #<marker at 11332 in uni.org> org-hd-marker #<marker at 11277 in uni.org> priority 1002 todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) type "deadline" date 734211 face org-warning ...)) #("  uni:        09:15-12:30 Besuch bei Akzentum" 0 26 (org-category "uni" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 915 duration 195 effort nil effort-minutes nil txt #("Besuch bei Akzentum" 0 19 (org-category "uni" fontified nil org-heading t)) time "09:15-12:30" extra "" dotime #("<2011-03-17 Thu 09:15-12:30>" 0 28 (org-category "uni" fontified nil)) face nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-marker #<marker at 266 in uni.org> org-hd-marker #<marker at 240 in uni.org> priority 1000 date (3 17 2011) todo-state nil type "timestamp") 26 45 (org-heading t fontified nil org-category "uni" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 915 duration 195 effort nil effort-minutes nil txt #("Besuch bei Akzentum" 0 19 (org-category "uni" fontified nil org-heading t)) time "09:15-12:30" extra "" dotime #("<2011-03-17 Thu 09:15-12:30>" 0 28 (org-category "uni" fontified nil)) face nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-marker #<marker at 266 in uni.org> org-hd-marker #<marker at 240 in uni.org> priority 1000 date (3 17 2011) todo-state nil ...)) #("  Diary:      St. Patrick's Day" 0 2 (org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time fontified nil org-heading t type "diary" date (3 17 2011) face org-todo) 2 14 (org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time fontified nil org-heading t type "diary" date (3 17 2011) face org-agenda-diary) 14 31 (org-heading t fontified nil org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time type "diary" date (3 17 2011) face org-agenda-diary))))
  (setq list (mapcar (quote org-agenda-highlight-todo) list))
  org-finalize-agenda-entries((#("              16:32...... now - - - - - - - - - - - - - - - - - - - - - - - - -" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1632 duration nil effort nil effort-minutes nil txt #("now - - - - - - - - - - - - - - - - - - - - - - - - -" 0 53 (org-heading t)) time "16:32......" extra "" dotime "16:32 ") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1632 duration nil effort nil effort-minutes nil txt #("now - - - - - - - - - - - - - - - - - - - - - - - - -" 0 53 (org-heading t)) time "16:32......" extra "" dotime "16:32 " face org-agenda-current-time) 26 79 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1632 duration nil effort nil effort-minutes nil txt #("now - - - - - - - - - - - - - - - - - - - - - - - - -" 0 53 (org-heading t)) time "16:32......" extra "" dotime "16:32 " face org-agenda-current-time)) #("              20:00...... ----------------" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 2000 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "20:00......" extra "" dotime "20:00") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 2000 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "20:00......" extra "" dotime "20:00" face org-time-grid) 26 42 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 2000 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "20:00......" extra "" dotime "20:00" face org-time-grid)) #("              18:00...... ----------------" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1800 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "18:00......" extra "" dotime "18:00") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1800 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "18:00......" extra "" dotime "18:00" face org-time-grid) 26 42 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1800 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "18:00......" extra "" dotime "18:00" face org-time-grid)) #("              16:00...... ----------------" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1600 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "16:00......" extra "" dotime "16:00") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1600 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "16:00......" extra "" dotime "16:00" face org-time-grid) 26 42 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1600 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "16:00......" extra "" dotime "16:00" face org-time-grid)) #("              14:00...... ----------------" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1400 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "14:00......" extra "" dotime "14:00") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1400 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "14:00......" extra "" dotime "14:00" face org-time-grid) 26 42 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1400 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "14:00......" extra "" dotime "14:00" face org-time-grid)) #("              12:00...... ----------------" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1200 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "12:00......" extra "" dotime "12:00") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1200 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "12:00......" extra "" dotime "12:00" face org-time-grid) 26 42 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1200 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "12:00......" extra "" dotime "12:00" face org-time-grid)) #("              10:00...... ----------------" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1000 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "10:00......" extra "" dotime "10:00") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1000 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "10:00......" extra "" dotime "10:00" face org-time-grid) 26 42 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1000 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "10:00......" extra "" dotime "10:00" face org-time-grid)) #("              08:00...... ----------------" 0 2 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 800 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "08:00......" extra "" dotime "08:00") 2 26 (org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 800 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "08:00......" extra "" dotime "08:00" face org-time-grid) 26 42 (org-heading t org-category "" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 800 duration nil effort nil effort-minutes nil txt #("----------------" 0 16 (org-heading t)) time "08:00......" extra "" dotime "08:00" face org-time-grid)) #("  diss:       In  11 d.:  TODO Submit camera-ready paper for ICMT 2011 :trip::" 0 26 (org-category "diss" tags (#("trip" 0 4 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Submit camera-ready paper for ICMT 2011 :trip::" 0 46 (org-heading t) 46 50 (inherited t org-heading t) 50 52 (org-heading t)) time "" extra "In  11 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/diss.org" org-marker #<marker at 8095 in diss.org> org-hd-marker #<marker at 8032 in diss.org> priority 989 todo-state #("TODO" 0 4 (fontified nil org-category "diss")) type "upcoming-deadline" date (3 17 2011) face default undone-face default ...) 26 31 (org-heading t org-category "diss" tags (#("trip" 0 4 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Submit camera-ready paper for ICMT 2011 :trip::" 0 46 (org-heading t) 46 50 (inherited t org-heading t) 50 52 (org-heading t)) time "" extra "In  11 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/diss.org" org-marker #<marker at 8095 in diss.org> org-hd-marker #<marker at 8032 in diss.org> priority 989 todo-state #("TODO" 0 4 (fontified nil org-category "diss")) type "upcoming-deadline" date (3 17 2011) face org-todo ...) 31 72 (org-heading t org-category "diss" tags (#("trip" 0 4 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Submit camera-ready paper for ICMT 2011 :trip::" 0 46 (org-heading t) 46 50 (inherited t org-heading t) 50 52 (org-heading t)) time "" extra "In  11 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/diss.org" org-marker #<marker at 8095 in diss.org> org-hd-marker #<marker at 8032 in diss.org> priority 989 todo-state #("TODO" 0 4 (fontified nil org-category "diss")) type "upcoming-deadline" date (3 17 2011) face default ...) 72 76 (org-heading t inherited t org-category "diss" tags (#("trip" 0 4 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Submit camera-ready paper for ICMT 2011 :trip::" 0 46 (org-heading t) 46 50 (inherited t org-heading t) 50 52 (org-heading t)) time "" extra "In  11 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/diss.org" org-marker #<marker at 8095 in diss.org> org-hd-marker #<marker at 8032 in diss.org> priority 989 todo-state #("TODO" 0 4 (fontified nil org-category "diss")) type "upcoming-deadline" date (3 17 2011) ...) 76 78 (org-heading t org-category "diss" tags (#("trip" 0 4 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Submit camera-ready paper for ICMT 2011 :trip::" 0 46 (org-heading t) 46 50 (inherited t org-heading t) 50 52 (org-heading t)) time "" extra "In  11 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/diss.org" org-marker #<marker at 8095 in diss.org> org-hd-marker #<marker at 8032 in diss.org> priority 989 todo-state #("TODO" 0 4 (fontified nil org-category "diss")) type "upcoming-deadline" date (3 17 2011) face default ...)) #("  private:    Sched.12x:  TODO Wurmkur Leines                     :leines::" 0 26 (org-category "private" tags (#("leines" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Wurmkur Leines                     :leines::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "Sched.12x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 365 in private.org> org-hd-marker #<marker at 328 in private.org> type "past-scheduled" date 734202 priority 1110 ...) 26 31 (org-heading t org-category "private" tags (#("leines" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Wurmkur Leines                     :leines::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "Sched.12x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" undone-face org-scheduled-previously face org-todo org-marker #<marker at 365 in private.org> org-hd-marker #<marker at 328 in private.org> type "past-scheduled" date 734202 ...) 31 67 (org-heading t org-category "private" tags (#("leines" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Wurmkur Leines                     :leines::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "Sched.12x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 365 in private.org> org-hd-marker #<marker at 328 in private.org> type "past-scheduled" date 734202 ...) 67 73 (org-heading t inherited t org-category "private" tags (#("leines" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Wurmkur Leines                     :leines::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "Sched.12x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 365 in private.org> org-hd-marker #<marker at 328 in private.org> type "past-scheduled" ...) 73 75 (org-heading t org-category "private" tags (#("leines" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Wurmkur Leines                     :leines::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "Sched.12x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 365 in private.org> org-hd-marker #<marker at 328 in private.org> type "past-scheduled" date 734202 ...)) #("  Montabaur:  icon Vereinzelt Regen, [4,10] ℃" 0 2 (org-category #("Montabaur" 0 9 (fontified nil org-category "private")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("icon Vereinzelt Regen, [4,10] ℃" 0 4 (rear-nonsticky (display) display (image :type png :file "/usr/share/icons/gnome/22x22/status/weather-showers-scattered.png" :ascent center) org-heading t) 4 31 (org-heading t)) time "" extra "" dotime time mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" org-marker #<marker at 6370 in private.org> date (3 17 2011) todo-state nil type "sexp") 2 11 (fontified nil org-category #("Montabaur" 0 9 (fontified nil org-category "private")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("icon Vereinzelt Regen, [4,10] ℃" 0 4 (rear-nonsticky (display) display (image :type png :file "/usr/share/icons/gnome/22x22/status/weather-showers-scattered.png" :ascent center) org-heading t) 4 31 (org-heading t)) time "" extra "" dotime time mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" org-marker #<marker at 6370 in private.org> date (3 17 2011) todo-state nil type "sexp") 11 14 (org-category #("Montabaur" 0 9 (fontified nil org-category "private")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("icon Vereinzelt Regen, [4,10] ℃" 0 4 (rear-nonsticky (display) display (image :type png :file "/usr/share/icons/gnome/22x22/status/weather-showers-scattered.png" :ascent center) org-heading t) 4 31 (org-heading t)) time "" extra "" dotime time mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" org-marker #<marker at 6370 in private.org> date (3 17 2011) todo-state nil type "sexp") 14 18 (org-heading t display (image :type png :file "/usr/share/icons/gnome/22x22/status/weather-showers-scattered.png" :ascent center) rear-nonsticky (display) org-category #("Montabaur" 0 9 (fontified nil org-category "private")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("icon Vereinzelt Regen, [4,10] ℃" 0 4 (rear-nonsticky (display) display (image :type png :file "/usr/share/icons/gnome/22x22/status/weather-showers-scattered.png" :ascent center) org-heading t) 4 31 (org-heading t)) time "" extra "" dotime time mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" org-marker #<marker at 6370 in private.org> date (3 17 2011) todo-state nil type "sexp") 18 45 (org-heading t org-category #("Montabaur" 0 9 (fontified nil org-category "private")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("icon Vereinzelt Regen, [4,10] ℃" 0 4 (rear-nonsticky (display) display (image :type png :file "/usr/share/icons/gnome/22x22/status/weather-showers-scattered.png" :ascent center) org-heading t) 4 31 (org-heading t)) time "" extra "" dotime time mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/private.org" org-marker #<marker at 6370 in private.org> date (3 17 2011) todo-state nil type "sexp")) #("  remember:   Sched.20x:  STARTED Install and test-drive OpenShot Video Editor" 0 26 (org-category "remember" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Install and test-drive OpenShot Video Editor" 0 52 (org-heading t)) time "" extra "Sched.20x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/remember.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 1700 in remember.org> org-hd-marker #<marker at 1632 in remember.org> type "past-scheduled" date 734194 priority 1118 ...) 26 34 (org-heading t org-category "remember" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Install and test-drive OpenShot Video Editor" 0 52 (org-heading t)) time "" extra "Sched.20x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/remember.org" undone-face org-scheduled-previously face org-todo org-marker #<marker at 1700 in remember.org> org-hd-marker #<marker at 1632 in remember.org> type "past-scheduled" date 734194 ...) 34 78 (org-heading t org-category "remember" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Install and test-drive OpenShot Video Editor" 0 52 (org-heading t)) time "" extra "Sched.20x: " dotime nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/remember.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 1700 in remember.org> org-hd-marker #<marker at 1632 in remember.org> type "past-scheduled" date 734194 ...)) #("  remember:   Scheduled:  TODO Zoll-Rechnung bezahlen" 0 26 (org-category "remember" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Zoll-Rechnung bezahlen" 0 27 (org-heading t)) time "" extra "Scheduled: " dotime time org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/remember.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 2546 in remember.org> org-hd-marker #<marker at 2503 in remember.org> type "scheduled" date (3 17 2011) priority 1099 ...) 26 31 (org-heading t org-category "remember" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Zoll-Rechnung bezahlen" 0 27 (org-heading t)) time "" extra "Scheduled: " dotime time org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/remember.org" undone-face org-scheduled-today face org-todo org-marker #<marker at 2546 in remember.org> org-hd-marker #<marker at 2503 in remember.org> type "scheduled" date (3 17 2011) ...) 31 53 (org-heading t org-category "remember" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("TODO Zoll-Rechnung bezahlen" 0 27 (org-heading t)) time "" extra "Scheduled: " dotime time org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/remember.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 2546 in remember.org> org-hd-marker #<marker at 2503 in remember.org> type "scheduled" date (3 17 2011) ...)) #("  uni:        In  -2 d.:  STARTED Dokument: The SOAMIG-Process    :soamig::" 0 26 (org-category "uni" tags (#("soamig" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Dokument: The SOAMIG-Process    :soamig::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "In  -2 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-marker #<marker at 11332 in uni.org> org-hd-marker #<marker at 11277 in uni.org> priority 1002 todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) type "deadline" date 734211 face org-warning undone-face org-warning ...) 26 34 (org-heading t org-category "uni" tags (#("soamig" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Dokument: The SOAMIG-Process    :soamig::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "In  -2 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-marker #<marker at 11332 in uni.org> org-hd-marker #<marker at 11277 in uni.org> priority 1002 todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) type "deadline" date 734211 face org-todo ...) 34 67 (org-heading t org-category "uni" tags (#("soamig" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Dokument: The SOAMIG-Process    :soamig::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "In  -2 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-marker #<marker at 11332 in uni.org> org-hd-marker #<marker at 11277 in uni.org> priority 1002 todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) type "deadline" date 734211 face org-warning ...) 67 73 (org-heading t inherited t org-category "uni" tags (#("soamig" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Dokument: The SOAMIG-Process    :soamig::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "In  -2 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-marker #<marker at 11332 in uni.org> org-hd-marker #<marker at 11277 in uni.org> priority 1002 todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) type "deadline" date 734211 ...) 73 75 (org-heading t org-category "uni" tags (#("soamig" 0 6 (inherited t))) org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("STARTED Dokument: The SOAMIG-Process    :soamig::" 0 41 (org-heading t) 41 47 (inherited t org-heading t) 47 49 (org-heading t)) time "" extra "In  -2 d.: " dotime nil mouse-face highlight org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-marker #<marker at 11332 in uni.org> org-hd-marker #<marker at 11277 in uni.org> priority 1002 todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) type "deadline" date 734211 face org-warning ...)) #("  uni:        09:15-12:30 Besuch bei Akzentum" 0 26 (org-category "uni" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 915 duration 195 effort nil effort-minutes nil txt #("Besuch bei Akzentum" 0 19 (org-category "uni" fontified nil org-heading t)) time "09:15-12:30" extra "" dotime #("<2011-03-17 Thu 09:15-12:30>" 0 28 (org-category "uni" fontified nil)) face nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-marker #<marker at 266 in uni.org> org-hd-marker #<marker at 240 in uni.org> priority 1000 date (3 17 2011) todo-state nil type "timestamp") 26 45 (org-heading t fontified nil org-category "uni" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 915 duration 195 effort nil effort-minutes nil txt #("Besuch bei Akzentum" 0 19 (org-category "uni" fontified nil org-heading t)) time "09:15-12:30" extra "" dotime #("<2011-03-17 Thu 09:15-12:30>" 0 28 (org-category "uni" fontified nil)) face nil org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-marker #<marker at 266 in uni.org> org-hd-marker #<marker at 240 in uni.org> priority 1000 date (3 17 2011) todo-state nil ...)) #("  Diary:      St. Patrick's Day" 0 2 (org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time fontified nil org-heading t type "diary" date (3 17 2011) face org-todo) 2 14 (org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time fontified nil org-heading t type "diary" date (3 17 2011) face org-agenda-diary) 14 31 (org-heading t fontified nil org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time type "diary" date (3 17 2011) face org-agenda-diary))))
  (insert (org-finalize-agenda-entries (org-agenda-add-time-grid-maybe rtnall ndays todayp)) "\n")
  (if rtnall (insert (org-finalize-agenda-entries (org-agenda-add-time-grid-maybe rtnall ndays todayp)) "\n"))
  (progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date (org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") (put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- (point)) (quote org-today) t)) (if rtnall (insert (org-finalize-agenda-entries (org-agenda-add-time-grid-maybe rtnall ndays todayp)) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt))
  (if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date (org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") (put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- (point)) (quote org-today) t)) (if rtnall (insert (org-finalize-agenda-entries (org-agenda-add-time-grid-maybe rtnall ndays todayp)) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt)))
  (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos (point)))) (setq files thefiles rtnall nil) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (let ((org-agenda-entry-types org-agenda-entry-types)) (unless org-agenda-include-deadlines (setq org-agenda-entry-types (delq :deadline org-agenda-entry-types))) (cond ((eq org-agenda-show-log (quote only)) (setq rtn (org-agenda-get-day-entries file date :closed))) (org-agenda-show-log (setq rtn (apply ... file date ...))) (t (setq rtn (apply ... file date org-agenda-entry-types))))) (setq rtnall (append rtnall rtn)))) (if org-agenda-include-diary (let ((org-agenda-search-headline-for-time t)) (require (quote diary-lib)) (setq rtn (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) (if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date (org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") (put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- (point)) (quote org-today) t)) (if rtnall (insert (org-finalize-agenda-entries (org-agenda-add-time-grid-maybe rtnall ndays todayp)) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt))))
  (let* ((span (org-agenda-ndays-to-span (or span org-agenda-ndays org-agenda-span))) (today (org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-ndays span sd)) (org-agenda-start-on-weekday (if (eq ndays 7) org-agenda-start-on-weekday)) (thefiles (org-agenda-files nil (quote ifmode))) (files thefiles) (start (if (or (null org-agenda-start-on-weekday) (< ndays 7)) sd (let* ((nt (calendar-day-of-week ...)) (n1 org-agenda-start-on-weekday) (d (- nt n1))) (- sd (+ (if ... 7 0) d))))) (day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (not debug-on-error)) s e rtn rtnall file date d start-pos end-pos todayp clocktable-start clocktable-end filter) (setq org-agenda-redo-command (list (quote org-agenda-list) (list (quote quote) include-all) start-day (list (quote quote) span))) (dotimes (n (1- ndays)) (push (1+ (car day-numbers)) day-numbers)) (setq day-numbers (nreverse day-numbers)) (setq clocktable-start (car day-numbers) clocktable-end (1+ (or (org-last day-numbers) 0))) (org-prepare-agenda "Day/Week") (org-set-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote org-include-all-loc) include-all) (org-set-local (quote org-agenda-current-span) (org-agenda-ndays-to-span span)) (when (and (or include-all org-agenda-include-all-todo) (member today day-numbers)) (setq files thefiles rtnall nil) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (setq date (calendar-gregorian-from-absolute today) rtn (org-agenda-get-day-entries file date :todo)) (setq rtnall (append rtnall rtn)))) (when rtnall (insert "All currently open TODO items:\n") (add-text-properties (point-min) (1- (point)) (list (quote face) (quote org-agenda-structure) (quote short-heading) "All TODO items")) (org-agenda-mark-header-line (point-min)) (insert (org-finalize-agenda-entries rtnall) "\n"))) (unless org-agenda-compact-blocks (let* ((d1 (car day-numbers)) (d2 (org-last day-numbers)) (w1 (org-days-to-iso-week d1)) (w2 (org-days-to-iso-week d2))) (setq s (point)) (if org-agenda-overriding-header (insert (org-add-props (copy-sequence org-agenda-overriding-header) nil (quote face) (quote org-agenda-structure)) "\n") (insert (org-agenda-span-name span) "-agenda" (if (< (- d2 d1) 350) (if (= w1 w2) (format " (W%02d)" w1) (format " (W%02d-W%02d)" w1 w2)) "") ":\n"))) (add-text-properties s (1- (point)) (list (quote face) (quote org-agenda-structure) (quote org-date-line) t)) (org-agenda-mark-header-line s)) (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos (point)))) (setq files thefiles rtnall nil) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (let ((org-agenda-entry-types org-agenda-entry-types)) (unless org-agenda-include-deadlines (setq org-agenda-entry-types (delq :deadline org-agenda-entry-types))) (cond ((eq org-agenda-show-log ...) (setq rtn ...)) (org-agenda-show-log (setq rtn ...)) (t (setq rtn ...)))) (setq rtnall (append rtnall rtn)))) (if org-agenda-include-diary (let ((org-agenda-search-headline-for-time t)) (require (quote diary-lib)) (setq rtn (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) (if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date (org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") (put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- (point)) (quote org-today) t)) (if rtnall (insert (org-finalize-agenda-entries (org-agenda-add-time-grid-maybe rtnall ndays todayp)) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt)))) (when (and org-agenda-clockreport-mode clocktable-start) (let ((org-agenda-files (org-agenda-files nil (quote ifmode))) (p (copy-sequence org-agenda-clockreport-parameter-plist)) tbl) (setq p (org-plist-delete p :block)) (setq p (plist-put p :tstart clocktable-start)) (setq p (plist-put p :tend clocktable-end)) (setq p (plist-put p :scope (quote agenda))) (when (and (eq org-agenda-clockreport-mode (quote with-filter)) (setq filter (or org-agenda-filter-while-redo (get ... :preset-filter)))) (setq p (plist-put p :tags (mapconcat (lambda ... ...) filter "")))) (setq tbl (apply (quote org-get-clocktable) p)) (insert tbl))) (goto-char (point-min)) (or org-agenda-multi (org-fit-agenda-window)) (unless (and (pos-visible-in-window-p (point-min)) (pos-visible-in-window-p (point-max))) (goto-char (1- (point-max))) (recenter -1) (if (not (pos-visible-in-window-p (or start-pos 1))) (progn (goto-char (or start-pos 1)) (recenter 1)))) (goto-char (or start-pos 1)) (add-text-properties (point-min) (point-max) (quote (org-agenda-type agenda))) (org-finalize-agenda) (setq buffer-read-only t) (message ""))
  org-agenda-list(nil)
  call-interactively(org-agenda-list)
  (cond ((setq entry (assoc keys org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) (functionp (nth 2 entry))) (progn (setq type (nth 2 entry) match (eval (nth 3 entry)) lprops (nth 4 entry)) (put (quote org-agenda-redo-command) (quote org-lprops) lprops) (cond ((eq type (quote agenda)) (org-let lprops (quote ...))) ((eq type (quote alltodo)) (org-let lprops (quote ...))) ((eq type (quote search)) (org-let lprops (quote ...))) ((eq type (quote stuck)) (org-let lprops (quote ...))) ((eq type (quote tags)) (org-let lprops (quote ...))) ((eq type (quote tags-todo)) (org-let lprops (quote ...))) ((eq type (quote todo)) (org-let lprops (quote ...))) ((eq type (quote tags-tree)) (org-check-for-org-mode) (org-let lprops (quote ...))) ((eq type (quote todo-tree)) (org-check-for-org-mode) (org-let lprops (quote ...))) ((eq type (quote occur-tree)) (org-check-for-org-mode) (org-let lprops (quote ...))) ((functionp type) (org-let lprops (quote ...))) ((fboundp type) (org-let lprops (quote ...))) (t (error "Invalid custom agenda command type %s" type)))) (org-agenda-run-series (nth 1 entry) (cddr entry)))) ((equal keys "C") (setq org-agenda-custom-commands org-agenda-custom-commands-orig) (customize-variable (quote org-agenda-custom-commands))) ((equal keys "a") (call-interactively (quote org-agenda-list))) ((equal keys "s") (call-interactively (quote org-search-view))) ((equal keys "t") (call-interactively (quote org-todo-list))) ((equal keys "T") (org-call-with-arg (quote org-todo-list) (or arg (quote (4))))) ((equal keys "m") (call-interactively (quote org-tags-view))) ((equal keys "M") (org-call-with-arg (quote org-tags-view) (or arg (quote (4))))) ((equal keys "e") (call-interactively (quote org-store-agenda-views))) ((equal keys "?") (org-tags-view nil "+FLAGGED") (org-add-hook (quote post-command-hook) (lambda nil (unless (current-message) (let* ((m ...) (note ...)) (when note (message ...))))) t t)) ((equal keys "L") (unless (org-mode-p) (error "This is not an Org-mode file")) (unless restriction (put (quote org-agenda-files) (quote org-restrict) (list bfn)) (org-call-with-arg (quote org-timeline) arg))) ((equal keys "#") (call-interactively (quote org-agenda-list-stuck-projects))) ((equal keys "/") (call-interactively (quote org-occur-in-agenda-files))) ((equal keys "!") (customize-variable (quote org-stuck-projects))) (t (error "Invalid agenda key")))
  (let* ((prefix-descriptions nil) (org-agenda-window-setup (if (equal (buffer-name) org-agenda-buffer-name) (quote current-window) org-agenda-window-setup)) (org-agenda-custom-commands-orig org-agenda-custom-commands) (org-agenda-custom-commands (delq nil (mapcar (lambda (x) (cond (... ... nil) (... x) (... ...) (t ...))) org-agenda-custom-commands))) (buf (current-buffer)) (bfn (buffer-file-name (buffer-base-buffer))) entry key type match lprops ans) (unless org-agenda-overriding-restriction (unless (org-bound-and-true-p org-agenda-keep-restricted-file-list) (put (quote org-agenda-files) (quote org-restrict) nil)) (setq org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil)) (put (quote org-agenda-redo-command) (quote org-lprops) nil) (put (quote org-agenda-redo-command) (quote last-args) nil) (setq org-agenda-last-dispatch-buffer (current-buffer)) (unless keys (setq ans (org-agenda-get-restriction-and-command prefix-descriptions) keys (car ans) restriction (cdr ans))) (when (and (not org-agenda-overriding-restriction) restriction) (put (quote org-agenda-files) (quote org-restrict) (list bfn)) (cond ((eq restriction (quote region)) (setq org-agenda-restrict t) (move-marker org-agenda-restrict-begin (region-beginning)) (move-marker org-agenda-restrict-end (region-end))) ((eq restriction (quote subtree)) (save-excursion (setq org-agenda-restrict t) (org-back-to-heading t) (move-marker org-agenda-restrict-begin (point)) (move-marker org-agenda-restrict-end (progn (org-end-of-subtree t))))))) (cond ((setq entry (assoc keys org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) (functionp (nth 2 entry))) (progn (setq type (nth 2 entry) match (eval (nth 3 entry)) lprops (nth 4 entry)) (put (quote org-agenda-redo-command) (quote org-lprops) lprops) (cond ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-check-for-org-mode) (org-let lprops ...)) ((eq type ...) (org-check-for-org-mode) (org-let lprops ...)) ((eq type ...) (org-check-for-org-mode) (org-let lprops ...)) ((functionp type) (org-let lprops ...)) ((fboundp type) (org-let lprops ...)) (t (error "Invalid custom agenda command type %s" type)))) (org-agenda-run-series (nth 1 entry) (cddr entry)))) ((equal keys "C") (setq org-agenda-custom-commands org-agenda-custom-commands-orig) (customize-variable (quote org-agenda-custom-commands))) ((equal keys "a") (call-interactively (quote org-agenda-list))) ((equal keys "s") (call-interactively (quote org-search-view))) ((equal keys "t") (call-interactively (quote org-todo-list))) ((equal keys "T") (org-call-with-arg (quote org-todo-list) (or arg (quote (4))))) ((equal keys "m") (call-interactively (quote org-tags-view))) ((equal keys "M") (org-call-with-arg (quote org-tags-view) (or arg (quote (4))))) ((equal keys "e") (call-interactively (quote org-store-agenda-views))) ((equal keys "?") (org-tags-view nil "+FLAGGED") (org-add-hook (quote post-command-hook) (lambda nil (unless (current-message) (let* (... ...) (when note ...)))) t t)) ((equal keys "L") (unless (org-mode-p) (error "This is not an Org-mode file")) (unless restriction (put (quote org-agenda-files) (quote org-restrict) (list bfn)) (org-call-with-arg (quote org-timeline) arg))) ((equal keys "#") (call-interactively (quote org-agenda-list-stuck-projects))) ((equal keys "/") (call-interactively (quote org-occur-in-agenda-files))) ((equal keys "!") (customize-variable (quote org-stuck-projects))) (t (error "Invalid agenda key"))))
  (catch (quote exit) (let* ((prefix-descriptions nil) (org-agenda-window-setup (if (equal (buffer-name) org-agenda-buffer-name) (quote current-window) org-agenda-window-setup)) (org-agenda-custom-commands-orig org-agenda-custom-commands) (org-agenda-custom-commands (delq nil (mapcar (lambda (x) (cond ... ... ... ...)) org-agenda-custom-commands))) (buf (current-buffer)) (bfn (buffer-file-name (buffer-base-buffer))) entry key type match lprops ans) (unless org-agenda-overriding-restriction (unless (org-bound-and-true-p org-agenda-keep-restricted-file-list) (put (quote org-agenda-files) (quote org-restrict) nil)) (setq org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil)) (put (quote org-agenda-redo-command) (quote org-lprops) nil) (put (quote org-agenda-redo-command) (quote last-args) nil) (setq org-agenda-last-dispatch-buffer (current-buffer)) (unless keys (setq ans (org-agenda-get-restriction-and-command prefix-descriptions) keys (car ans) restriction (cdr ans))) (when (and (not org-agenda-overriding-restriction) restriction) (put (quote org-agenda-files) (quote org-restrict) (list bfn)) (cond ((eq restriction (quote region)) (setq org-agenda-restrict t) (move-marker org-agenda-restrict-begin (region-beginning)) (move-marker org-agenda-restrict-end (region-end))) ((eq restriction (quote subtree)) (save-excursion (setq org-agenda-restrict t) (org-back-to-heading t) (move-marker org-agenda-restrict-begin (point)) (move-marker org-agenda-restrict-end (progn ...)))))) (cond ((setq entry (assoc keys org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) (functionp (nth 2 entry))) (progn (setq type (nth 2 entry) match (eval ...) lprops (nth 4 entry)) (put (quote org-agenda-redo-command) (quote org-lprops) lprops) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (... ... ...) (... ...) (... ...) (t ...))) (org-agenda-run-series (nth 1 entry) (cddr entry)))) ((equal keys "C") (setq org-agenda-custom-commands org-agenda-custom-commands-orig) (customize-variable (quote org-agenda-custom-commands))) ((equal keys "a") (call-interactively (quote org-agenda-list))) ((equal keys "s") (call-interactively (quote org-search-view))) ((equal keys "t") (call-interactively (quote org-todo-list))) ((equal keys "T") (org-call-with-arg (quote org-todo-list) (or arg (quote (4))))) ((equal keys "m") (call-interactively (quote org-tags-view))) ((equal keys "M") (org-call-with-arg (quote org-tags-view) (or arg (quote (4))))) ((equal keys "e") (call-interactively (quote org-store-agenda-views))) ((equal keys "?") (org-tags-view nil "+FLAGGED") (org-add-hook (quote post-command-hook) (lambda nil (unless (current-message) (let* ... ...))) t t)) ((equal keys "L") (unless (org-mode-p) (error "This is not an Org-mode file")) (unless restriction (put (quote org-agenda-files) (quote org-restrict) (list bfn)) (org-call-with-arg (quote org-timeline) arg))) ((equal keys "#") (call-interactively (quote org-agenda-list-stuck-projects))) ((equal keys "/") (call-interactively (quote org-occur-in-agenda-files))) ((equal keys "!") (customize-variable (quote org-stuck-projects))) (t (error "Invalid agenda key")))))
  org-agenda(nil)
  call-interactively(org-agenda nil nil)
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo

Re: Re: Problem with agenda and diary

[Julien Danjou]

[-- Attachment #1: Type: text/plain, Size: 3615 bytes --]

On Thu, Mar 17 2011, Tassilo Horn wrote:

> Sure, here it is.  There' nothing private in it, so we can stay on
> list.

There's something I really do not understand in this bt.

> Debugger entered--Lisp error: (wrong-type-argument integerp nil)
>   substring(#("  Diary:      St. Patrick's Day" 0 2 (org-category
>   "diary" tags nil org-highest-priority 65 org-lowest-priority 67
>   time-of-day nil duration nil effort nil effort-minutes nil txt
>   #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time ""
>   extra "" dotime time fontified nil org-heading t type "diary" date
>   (3 17 2011) face org-todo) 2 14 (org-category "diary" tags nil
>   org-highest-priority 65 org-lowest-priority 67 time-of-day nil
>   duration nil effort nil effort-minutes nil txt #("St. Patrick's Day"
>   0 17 (fontified nil org-heading t)) time "" extra "" dotime time
>   fontified nil org-heading t type "diary" date (3 17 2011) face
>   org-agenda-diary) 14 31 (org-heading t fontified nil org-category
>   "diary" tags nil org-highest-priority 65 org-lowest-priority 67
>   time-of-day nil duration nil effort nil effort-minutes nil txt
>   #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time ""
>   extra "" dotime time type "diary" date (3 17 2011) face
>   org-agenda-diary)) nil)

This is (substring x (match-end 3))
So the string `x' is well, the entry about St. Patrick.

>   (concat (substring x 0 (match-end 1)) (format
>   org-agenda-todo-keyword-format (match-string 2 x)) (org-add-props
>   #(" " 0 1 (done-face org-agenda-done undone-face org-warning face
>   org-todo date (3 17 2011) type "diary" todo-state #("STARTED" 0 7
>   (fontified nil org-category "uni")) priority 1002 org-hd-marker
>   #<marker at 11277 in uni.org> org-marker #<marker at 11332 in
>   uni.org> help-echo "mouse-2 or RET jump to org file
>   ~/repos/org/uni.org" org-complex-heading-regexp "^\\(\\*+\\)[
>   ]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[
>   ]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[
>   ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" org-todo-regexp
>   "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>"
>   org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>"
>   mouse-face highlight dotime time extra "" time "" txt #("St.
>   Patrick's Day" 0 17 (fontified nil org-heading t)) effort-minutes
>   nil effort nil duration nil time-of-day nil org-lowest-priority 67
>   org-highest-priority 65 tags nil ...)) (text-properties-at 0 x))
>   (substring x (match-end 3)))

Where the this is coming from ?
The code is:

#+begin_src emacs-lisp
	    (setq x (concat (substring x 0 (match-end 1))
			    (format org-agenda-todo-keyword-format
				    (match-string 2 x))
			  (org-add-props " " (text-properties-at 0 x))
			  (substring x (match-end 3)))))
#+end_src

How the " " used as first arg of `org-add-props' can have so much
properties, like a todo-state set to "STARTED" and even a org-marker set
to a position in the uni.org file set? It's an empty string for Emacs's
sake.

What's even more troubling is that this code is executed only if `re' is
not nil:

#+begin_src emacs-lisp
(setq re (get-text-property 0 'org-todo-regexp x))
	(when (and re
…))
#+end_src

How `re' cannot be nil since there's no org-todo-regexp in `x' (the
entry about St. Patrick.

Tassilo, if you can reproduce the backtrace, could you take a look at
the value of `re', `x' and `pl'? Maybe it can help, I'm a bit lost right
now.

-- 
Julien Danjou
❱ http://julien.danjou.info

[-- Attachment #2: Type: application/pgp-signature, Size: 835 bytes --]

Re: Re: Problem with agenda and diary

[Nick Dokos]

Julien Danjou <julien@danjou.info> wrote:

> On Thu, Mar 17 2011, Tassilo Horn wrote:
> 
> > Sure, here it is.  There' nothing private in it, so we can stay on
> > list.
> 
> There's something I really do not understand in this bt.
> 
> > Debugger entered--Lisp error: (wrong-type-argument integerp nil)
> >   substring(#("  Diary:      St. Patrick's Day" 0 2 (org-category
> >   "diary" tags nil org-highest-priority 65 org-lowest-priority 67
> >   time-of-day nil duration nil effort nil effort-minutes nil txt
> >   #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time ""
> >   extra "" dotime time fontified nil org-heading t type "diary" date
> >   (3 17 2011) face org-todo) 2 14 (org-category "diary" tags nil
> >   org-highest-priority 65 org-lowest-priority 67 time-of-day nil
> >   duration nil effort nil effort-minutes nil txt #("St. Patrick's Day"
> >   0 17 (fontified nil org-heading t)) time "" extra "" dotime time
> >   fontified nil org-heading t type "diary" date (3 17 2011) face
> >   org-agenda-diary) 14 31 (org-heading t fontified nil org-category
> >   "diary" tags nil org-highest-priority 65 org-lowest-priority 67
> >   time-of-day nil duration nil effort nil effort-minutes nil txt
> >   #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time ""
> >   extra "" dotime time type "diary" date (3 17 2011) face
> >   org-agenda-diary)) nil)
> 
> This is (substring x (match-end 3))
> So the string `x' is well, the entry about St. Patrick.
> 
> >   (concat (substring x 0 (match-end 1)) (format
> >   org-agenda-todo-keyword-format (match-string 2 x)) (org-add-props
> >   #(" " 0 1 (done-face org-agenda-done undone-face org-warning face
> >   org-todo date (3 17 2011) type "diary" todo-state #("STARTED" 0 7
> >   (fontified nil org-category "uni")) priority 1002 org-hd-marker
> >   #<marker at 11277 in uni.org> org-marker #<marker at 11332 in
> >   uni.org> help-echo "mouse-2 or RET jump to org file
> >   ~/repos/org/uni.org" org-complex-heading-regexp "^\\(\\*+\\)[
> >   ]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[
> >   ]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[
> >   ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" org-todo-regexp
> >   "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>"
> >   org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>"
> >   mouse-face highlight dotime time extra "" time "" txt #("St.
> >   Patrick's Day" 0 17 (fontified nil org-heading t)) effort-minutes
> >   nil effort nil duration nil time-of-day nil org-lowest-priority 67
> >   org-highest-priority 65 tags nil ...)) (text-properties-at 0 x))
> >   (substring x (match-end 3)))
> 
> Where the this is coming from ?
> The code is:
> 
> #+begin_src emacs-lisp
> 	    (setq x (concat (substring x 0 (match-end 1))
> 			    (format org-agenda-todo-keyword-format
> 				    (match-string 2 x))
> 			  (org-add-props " " (text-properties-at 0 x))
> 			  (substring x (match-end 3)))))
> #+end_src
> 
> How the " " used as first arg of `org-add-props' can have so much
> properties, like a todo-state set to "STARTED" and even a org-marker set
> to a position in the uni.org file set? It's an empty string for Emacs's
> sake.
> 
> What's even more troubling is that this code is executed only if `re' is
> not nil:
> 
> #+begin_src emacs-lisp
> (setq re (get-text-property 0 'org-todo-regexp x))
> 	(when (and re
> &))
> #+end_src
> 
> How `re' cannot be nil since there's no org-todo-regexp in `x' (the
> entry about St. Patrick.
> 
> Tassilo, if you can reproduce the backtrace, could you take a look at
> the value of `re', `x' and `pl'? Maybe it can help, I'm a bit lost right
> now.
> 

I can reproduce it just by setting org-agenda-include-diary to t
(Org-mode version 7.5 (release_7.5.60.g706a.dirty))

Here are the values in my case, just before it blows up:

x is the St.Patrick's Day entry: #("  Diary:      St. Patrick's Day" 0 2 (org-category #5="diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #4=#("St. Patrick's Day" 0 17 (org-heading t)) time #1="" extra #1# dotime time org-heading t type #3="diary" date #2=(3 17 2011) face org-todo) 2 14 (org-category #5# tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #4# time #1# extra #1# dotime time org-heading t type #3# date #2# face org-agenda-diary) 14 31 (org-heading t org-category #5# tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #4# time #1# extra #1# dotime time type #3# date 
 #2# face org-agenda-diary))

re is the empty string so indeed it is not nil: ""

pl is 0

(match-end 3) is nil ==> boom

HTH,
Nick

Re: Re: Problem with agenda and diary

[Tassilo Horn]

Hi all,

I've just update my org checkout, and the issue seems to be already
fixed by

* 9216453..: Julien Danjou 2011-03-17 org-agenda: remove useless concat
  commit 9216453a3882eb45d0ba05e4e4fdeba9488205cc
  Author: Julien Danjou <julien@danjou.info>
  Date:   Thu Mar 17 17:07:10 2011 +0100

  org-agenda: remove useless concat

  * lisp/org-agenda.el (org-agenda-highlight-todo): Remove useless `concat'.

  Signed-off-by: Julien Danjou <julien@danjou.info>

Bye,
Tassilo

Re: Problem with agenda and diary

[Dan Griswold]

On 17 Mar 2011, tassilo@member.fsf.org wrote:

> I've just update my org checkout, and the issue seems to be already
> fixed by
>
> * 9216453..: Julien Danjou 2011-03-17 org-agenda: remove useless
>   concat
> commit 9216453a3882eb45d0ba05e4e4fdeba9488205cc
> Author: Julien Danjou <julien@danjou.info>
> Date:   Thu Mar 17 17:07:10 2011 +0100
>
> org-agenda: remove useless concat
>
> * lisp/org-agenda.el (org-agenda-highlight-todo): Remove useless
>   `concat'.
>

Mine is somewhat fixed. The first time I try org-agenda-list I get:

  org-format-agenda-item: Args out of range: -1, 0

but if I try it a second time, right away, it works.

However, this seems to be a different manifestation of another problem,
one I've had for a while. Before today, the first time in an emacs
session I tried to do org-agenda-list, it would bring future
appointments from my diary file into the agenda for the current
day. Running org-agenda-list a second time would correct it: today's
appointments would appear in the current day's agenda, tomorrow's
appointments in tomorrow's agenda. As I said, different problem. I would
like to know what is causing that, but the problem that is the focus for
this thread appears to be resolved.

Thanks to all, especially Julien.

Dan

-- 
Dan Griswold
dgriswol@rochester.rr.com

Re: Re: Problem with agenda and diary

[Nick Dokos]

Dan Griswold <dgriswol@rochester.rr.com> wrote:

> On 17 Mar 2011, tassilo@member.fsf.org wrote:
> 
> > I've just update my org checkout, and the issue seems to be already
> > fixed by
> >
> > * 9216453..: Julien Danjou 2011-03-17 org-agenda: remove useless
> >   concat
> > commit 9216453a3882eb45d0ba05e4e4fdeba9488205cc
> > Author: Julien Danjou <julien@danjou.info>
> > Date:   Thu Mar 17 17:07:10 2011 +0100
> >
> > org-agenda: remove useless concat
> >
> > * lisp/org-agenda.el (org-agenda-highlight-todo): Remove useless
> >   `concat'.
> >
> 
> Mine is somewhat fixed. The first time I try org-agenda-list I get:
> 
>   org-format-agenda-item: Args out of range: -1, 0
> 
> but if I try it a second time, right away, it works.
> 
> However, this seems to be a different manifestation of another problem,
> one I've had for a while. Before today, the first time in an emacs
> session I tried to do org-agenda-list, it would bring future
> appointments from my diary file into the agenda for the current
> day. Running org-agenda-list a second time would correct it: today's
> appointments would appear in the current day's agenda, tomorrow's
> appointments in tomorrow's agenda. As I said, different problem. I would
> like to know what is causing that, but the problem that is the focus for
> this thread appears to be resolved.
> 
> Thanks to all, especially Julien.
> 

Can you provide a backtrace? See section 1.4, "Feedback", of the Org manual
on how to produce a backtrace.

Thanks,
Nick

Re: Problem with agenda and diary

[Sébastien Vauban]

Hi Tassilo,

Tassilo Horn wrote:
>> It may has been introduced by one of my latest commit. Could you load
>> org-agenda.el (not compiled) and give me the full backtrace (in
>> private)?
>
> Sure, here it is.  There' nothing private in it, so we can stay on list.
>
> Debugger entered--Lisp error: (wrong-type-argument integerp nil)
>   substring(#("  Diary:      St. Patrick's Day" 0 2 (org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time fontified nil org-heading t type "diary" date (3 17 2011) face org-todo) 2 14 (org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time fontified nil org-heading t type "diary" date (3 17 2011) face org-agenda-diary) 14 31 (org-heading t fontified nil org-category "diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" extra "" dotime time type "diary" date (3 17 2011) face org-agenda-diary)) nil)
>   (concat (substring x 0 (match-end 1)) (format org-agenda-todo-keyword-format (match-string 2 x)) (org-add-props #(" " 0 1 (done-face org-agenda-done undone-face org-warning face org-todo date (3 17 2011) type "diary" todo-state #("STARTED" 0 7 (fontified nil org-category "uni")) priority 1002 org-hd-marker #<marker at 11277 in uni.org> org-marker #<marker at 11332 in uni.org> help-echo "mouse-2 or RET jump to org file ~/repos/org/uni.org" org-complex-heading-regexp "^\\(\\*+\\)[ 	]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ 	]*\\(\\[#.\\]\\)\\)?[ 	]*\\(.*?\\)\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" org-todo-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" mouse-face highlight dotime time extra "" time "" txt #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) effort-minutes nil effort nil duration nil time-of-day nil org-lowest-priority 67 org-highest-priority 65 tags nil ...)) (text-properties-at 0 x)) (substring x (match-end 3)))
>   [...]
>   org-agenda(nil)
>   call-interactively(org-agenda nil nil)

Side question: how do you do to see a really full backtrace?

My backtraces always are elided with ellipsis inside the lines...

Best regards,
  Seb

-- 
Sébastien Vauban

Re: Problem with agenda and diary

[Dan Griswold]

[-- Attachment #1: Type: text/plain, Size: 323 bytes --]

On 17 Mar 2011, nicholas.dokos@hp.com wrote:

> Can you provide a backtrace? See section 1.4, "Feedback", of the Org
> manual on how to produce a backtrace.

Sure. But I don't want to include absolutely everything, because of
personal calendar entries. Here it is, back to the point where it gets
too specific to my life:


[-- Attachment #2: backtrace_edited --]
[-- Type: text/plain, Size: 3394 bytes --]

Debugger entered--Lisp error: (args-out-of-range -1 0)
  add-text-properties(0 -1 (org-heading t) "")
  (let* ((category ...) (category-icon ...) (category-icon ...) (tag ...) time effort neffort (ts ...) (time-of-day ...) stamp plain s0 s1 s2 rtn srp l duration thecategory) (and (org-mode-p) buffer-file-name (add-to-list ... buffer-file-name)) (when (and dotime time-of-day) (when ... ... ...) (if s1 ...) (if s2 ...) (when ... ...) (when s2 ...)) (when (string-match ... txt) (if ... ... ...)) (when (org-mode-p) (setq effort ...) (when effort ...)) (when remove-re (while ... ...)) (add-text-properties 0 (1- ...) (quote ...) txt) (setq time (cond ... ... ...) extra (or ... "") category (if ... ... category) thecategory (copy-sequence category)) (if (string-match org-bracket-link-regexp category) (progn ... ...) (if ... ...)) (setq rtn (concat ... txt)) (remove-text-properties 0 (length rtn) (quote ...) rtn) (org-add-props rtn nil (quote org-category) (if thecategory ... category) (quote tags) (mapcar ... tags) (quote org-highest-priority) org-highest-priority (quote org-lowest-priority) org-lowest-priority (quote time-of-day) time-of-day (quote duration) duration (quote effort) effort (quote effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra (quote dotime) dotime))
  (progn (if (string-match "^ +" txt) (setq txt ...)) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* (... ... ... ... time effort neffort ... ... stamp plain s0 s1 s2 rtn srp l duration thecategory) (and ... buffer-file-name ...) (when ... ... ... ... ... ...) (when ... ...) (when ... ... ...) (when remove-re ...) (add-text-properties 0 ... ... txt) (setq time ... extra ... category ... thecategory ...) (if ... ... ...) (setq rtn ...) (remove-text-properties 0 ... ... rtn) (org-add-props rtn nil ... ... ... ... ... org-highest-priority ... org-lowest-priority ... time-of-day ... duration ... effort ... neffort ... txt ... time ... extra ... dotime)))
  (unwind-protect (progn (if ... ...) (setq txt ...) (let* ... ... ... ... ... ... ... ... ... ... ... ...)) (set-match-data save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ... ... ...) (set-match-data save-match-data-internal ...)))
  (save-match-data (if (string-match "^ +" txt) (setq txt ...)) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* (... ... ... ... time effort neffort ... ... stamp plain s0 s1 s2 rtn srp l duration thecategory) (and ... buffer-file-name ...) (when ... ... ... ... ... ...) (when ... ...) (when ... ... ...) (when remove-re ...) (add-text-properties 0 ... ... txt) (setq time ... extra ... category ... thecategory ...) (if ... ... ...) (setq rtn ...) (remove-text-properties 0 ... ... rtn) (org-add-props rtn nil ... ... ... ... ... org-highest-priority ... org-lowest-priority ... time-of-day ... duration ... effort ... neffort ... txt ... time ... extra ... dotime)))
  org-format-agenda-item("" "" "Diary" nil time)
  (setq x (org-format-agenda-item "" x "Diary" nil (quote time)))
  (lambda (x) (setq x (org-format-agenda-item "" x "Diary" nil ...)) (org-add-props x (text-properties-at ... x) (quote type) "diary" (quote date) date (quote face) (quote org-agenda-diary)))("")

Re: Re: Problem with agenda and diary

[Nick Dokos]

Dan Griswold <dgriswol@rochester.rr.com> wrote:


> Sure. But I don't want to include absolutely everything, because of
> personal calendar entries. Here it is, back to the point where it gets
> too specific to my life:
> 

That's of course as it should be.

> 
> Debugger entered--Lisp error: (args-out-of-range -1 0)
>   add-text-properties(0 -1 (org-heading t) "")
...
>   org-format-agenda-item("" "" "Diary" nil time)


The code in org-format-agenda-item is 

,----
|       ;; Set org-heading property on `txt' to mark the start of the
|       ;; heading.
|       (add-text-properties 0 (1- (length txt)) '(org-heading t) txt)
| 
`----

where txt is the second argument of org-format-agenda-item. As you can see
from your backtrace, that is the empty string, so the call to add-text-properties
ends up trying to give some property to an empty string: it does not like that.
So the problem is that that second argument is the empty string.

Now org-format-agenda-item is called from many places:

In org-agenda.el

- org-search-view
- org-get-entries-from-diary
- org-agenda-get-todos
- org-agenda-get-timestamps
- org-agenda-get-sexps
- org-agenda-get-progress
- org-agenda-get-deadlines
- org-agenda-get-scheduled
- org-agenda-get-blocks
- org-agenda-add-time-grid-maybe
- org-agenda-change-all-lines
- org-agenda-add-entry-to-org-agenda-diary-file

In org.el

- org-scan-tags

Of these, org-get-entries-from-diary and
org-agenda-add-entry-to-org-agenda-diary-file sound like the plausible
candidates, but since I don't have the rest of the backtrace, I cannot
tell for sure. Can you check whether one or the other (or both) occurs
further down in your backtrace and let us know? If neither appears, can
you check whether one of the others does?

Proceeding on the *assumption* that it is org-get-entries-from-diary,
the call chain is

    org-agenda-list --> org-get-entries-from-diary --> org-format-agenda-item --> boom

The code in org-get-entries-from-diary that calls org-format-agenda-item looks like this:
  ...
  (when entries
      (setq entries (org-split-string entries "\n"))
      (setq entries
	    (mapcar
	     (lambda (x)
	       (setq x (org-format-agenda-item "" x "Diary" nil 'time))
	       ;; Extend the text properties to the beginning of the line
	       (org-add-props x (text-properties-at (1- (length x)) x)
		 'type "diary" 'date date 'face 'org-agenda-diary))
	     entries)))

and the entries come from your diary, so that's the end of the road for us.

What I would suggest you do depends on a number of factors: whether you
use git to manage your org sources, how conversant you are with elisp
and the debugger and how much time you want to spend on it.

At the most basic level, I would first take a jaundiced look at the
diary file: see if there is anything that looks strange, like an empty
entry. Then I would bisect my way through it: copy the diary file to a
backup. Then start editing the original by whacking half of it away at
each stage, and seeing whether you still have the problem: if you do,
continue on this half; if you don't, continue on the other half - until
you are down to a single entry.  Then copy your backup back to the
original, delete the suspect entry and try again.

Alternatively, if you want to get your hands dirty with some debugging,
you can try changing the code above as follows:

  ...
  (when entries
      (setq entries (org-split-string entries "\n"))
      (debug)
      (setq entries
	    (mapcar
	     (lambda (x)
	       (setq x (org-format-agenda-item "" x "Diary" nil 'time))
	       ;; Extend the text properties to the beginning of the line
	       (org-add-props x (text-properties-at (1- (length x)) x)
		 'type "diary" 'date date 'face 'org-agenda-diary))
	     entries)))

adding a call to debug: when it reaches that point, emacs will drop you
into the debugger and you can examine the variable `entries' with

     e entries <RET>

The result will be shown in the minibuffer which may not be large enough
for everything, in which case switch to the *Messages* buffer which will
have everything. Look for an empty entry and check its neighbors. I haven't
looked at the code that reads the stuff from the diary, but chances are that
the empty entry's neighbors will be its neighbors in the diary file as well.
That should give you a good indication of what entry is at fault.

If you use git, you can create a temporary branch and make your changes there,
experiment and then switch back to master and delete the temporary branch.
If you don't use git, save org-agenda.el in a backup file, do the experiment
and restore it afterwards. In either case, it's probably best to restart your
emacs and possibly use a minimal .emacs file to get only the behavior you need
to test.

Good luck! And let us know how you fare.

Nick

Re: Re: Problem with agenda and diary

[Nick Dokos]

=?utf-8?Q?S=C3=A9bastien_Vauban?= <wxhgmqzgwmuf@spammotel.com> wrote:


> Side question: how do you do to see a really full backtrace?
> 
> My backtraces always are elided with ellipsis inside the lines...
> 

IIRC, these should do it:

,----
|  -- Variable: print-length
|      The value of this variable is the maximum number of elements to
|      print in any list, vector or bool-vector.  If an object being
|      printed has more than this many elements, it is abbreviated with
|      an ellipsis.
| 
|      If the value is `nil' (the default), then there is no limit.
| 
|           (setq print-length 2)
|                => 2
|           (print '(1 2 3 4 5))
|                -| (1 2 ...)
|                => (1 2 ...)
| 
|  -- Variable: print-level
|      The value of this variable is the maximum depth of nesting of
|      parentheses and brackets when printed.  Any list or vector at a
|      depth exceeding this limit is abbreviated with an ellipsis.  A
|      value of `nil' (which is the default) means no limit.
`----

Nick

Re: Re: Problem with agenda and diary

[Nick Dokos]

Dan Griswold <dgriswol@rochester.rr.com> wrote:


>   org-format-agenda-item("" "" "Diary" nil time)
>   (setq x (org-format-agenda-item "" x "Diary" nil (quote time)))
>   (lambda (x) (setq x (org-format-agenda-item "" x "Diary" nil ...)) (org-a=
> dd-props x (text-properties-at ... x) (quote type) "diary" (quote date) dat=
> e (quote face) (quote org-agenda-diary)))("")
> 

Actually, this pretty much confirms that the call came from org-get-diary-entries:
it matches the code exactly.

Nick

Re: Problem with agenda and diary

[Sébastien Vauban]

Hi Nick,

Nick Dokos wrote:
> =?utf-8?Q?S=C3=A9bastien_Vauban?= <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org> wrote:
>> Side question: how do you do to see a really full backtrace?
>> 
>> My backtraces always are elided with ellipsis inside the lines...
>> 
>
> IIRC, these should do it:
>
> ,----
> |  -- Variable: print-length
> |      The value of this variable is the maximum number of elements to
> |      print in any list, vector or bool-vector.  If an object being
> |      printed has more than this many elements, it is abbreviated with
> |      an ellipsis.
> | 
> |      If the value is `nil' (the default), then there is no limit.
> | 
> |           (setq print-length 2)
> |                => 2
> |           (print '(1 2 3 4 5))
> |                -| (1 2 ...)
> |                => (1 2 ...)
> | 
> |  -- Variable: print-level
> |      The value of this variable is the maximum depth of nesting of
> |      parentheses and brackets when printed.  Any list or vector at a
> |      depth exceeding this limit is abbreviated with an ellipsis.  A
> |      value of `nil' (which is the default) means no limit.
> `----

Weird, they already both are at nil in my current setup.

As I don't play with them (in my config), I don't understand how the traces
are still partial...

Best regards,
  Seb

-- 
Sébastien Vauban

Re: Re: Problem with agenda and diary

[Nick Dokos]

=?utf-8?Q?S=C3=A9bastien_Vauban?= <wxhgmqzgwmuf@spammotel.com> wrote:

> Hi Nick,
> 
> Nick Dokos wrote:
> > =3D?utf-8?Q?S=3DC3=3DA9bastien_Vauban?=3D <wxhgmqzgwmuf@spammotel.com> wr=
> ote:
> >> Side question: how do you do to see a really full backtrace?
> >>=20
> >> My backtraces always are elided with ellipsis inside the lines...
> >>=20
> >
> > IIRC, these should do it:
> >
> > ,----
> > |  -- Variable: print-length
> > |      The value of this variable is the maximum number of elements to
> > |      print in any list, vector or bool-vector.  If an object being
> > |      printed has more than this many elements, it is abbreviated with
> > |      an ellipsis.
> > |=20
> > |      If the value is `nil' (the default), then there is no limit.
> > |=20
> > |           (setq print-length 2)
> > |                =3D> 2
> > |           (print '(1 2 3 4 5))
> > |                -| (1 2 ...)
> > |                =3D> (1 2 ...)
> > |=20
> > |  -- Variable: print-level
> > |      The value of this variable is the maximum depth of nesting of
> > |      parentheses and brackets when printed.  Any list or vector at a
> > |      depth exceeding this limit is abbreviated with an ellipsis.  A
> > |      value of `nil' (which is the default) means no limit.
> > `----
> 
> Weird, they already both are at nil in my current setup.
> 
> As I don't play with them (in my config), I don't understand how the traces
> are still partial...
> 

There's also these two to worry about:

 -- User Option: eval-expression-print-length
 -- User Option: eval-expression-print-level
     These are the values for `print-length' and `print-level' used by
     `eval-expression', and thus, indirectly, by many interactive
     evaluation commands (*note Evaluating Emacs-Lisp Expressions:
     (emacs)Lisp Eval.).

by default, 12 and 4 resp.

In Tassilo's backtrace, I see ellipses at level 4, so I guess
eval-expression-print-level did that.

I also dug a bit deeper: if print_level is nil then backtrace sets the
maximum level to 8, so deeper calls will be elided. So try setting
print_level to some large number and see if that gets rid of the
ellipses. However, eight levels should be enough for just about
anything, no?

Nick

Re: Re: Problem with agenda and diary

[Bastien]

Hi Julien,

Julien Danjou <julien@danjou.info> writes:

> It may has been introduced by one of my latest commit. 

for such deep code rewriting, I would suggest to let it live on a public
branch first (in the official org-mode.git) so that other developers and
some power users can test it before you merge it.

I know all the effort you put in this (thanks again!) and this is really
an improvement -- can't wait to announce it.

I just ask everyone to be patient with the potential problems here, and
hopefully that will be fixed soon!

Thanks,

-- 
 Bastien

Re: Re: Problem with agenda and diary

[Julien Danjou]

[-- Attachment #1: Type: text/plain, Size: 1385 bytes --]

On Thu, Mar 17 2011, Nick Dokos wrote:

> I can reproduce it just by setting org-agenda-include-diary to t
> (Org-mode version 7.5 (release_7.5.60.g706a.dirty))

Well, I can't. :(

> x is the St.Patrick's Day entry: #(" Diary: St. Patrick's Day" 0 2
> (org-category #5="diary" tags nil org-highest-priority 65
> org-lowest-priority 67 time-of-day nil duration nil effort nil
> effort-minutes nil txt #4=#("St. Patrick's Day" 0 17 (org-heading t)) time
> #1="" extra #1# dotime time org-heading t type #3="diary" date #2=(3 17
> 2011) face org-todo) 2 14 (org-category #5# tags nil org-highest-priority 65
> org-lowest-priority 67 time-of-day nil duration nil effort nil
> effort-minutes nil txt #4# time #1# extra #1# dotime time org-heading t type
> #3# date #2# face org-agenda-diary) 14 31 (org-heading t org-category #5#
> tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil
> duration nil effort nil effort-minutes nil txt #4# time #1# extra #1# dotime
> time type #3# date #2# face org-agenda-diary))
>
> re is the empty string so indeed it is not nil: ""

Well, I do not see how re can be "" since:
	(setq re (get-text-property 0 'org-todo-regexp x))

And x has no 'org-todo-regexp property.

Since you seems familiar with the debugger, could you try to see what's
happening?

-- 
Julien Danjou
❱ http://julien.danjou.info

[-- Attachment #2: Type: application/pgp-signature, Size: 835 bytes --]

Re: Re: Problem with agenda and diary

[Julien Danjou]

[-- Attachment #1: Type: text/plain, Size: 363 bytes --]

On Thu, Mar 17 2011, Dan Griswold wrote:

> Mine is somewhat fixed. The first time I try org-agenda-list I get:
>
>   org-format-agenda-item: Args out of range: -1, 0
>
> but if I try it a second time, right away, it works.

This is a silly mistake I made yesterday, it's fixed, sorry for the
noice.

-- 
Julien Danjou
❱ http://julien.danjou.info

[-- Attachment #2: Type: application/pgp-signature, Size: 835 bytes --]

Re: Re: Problem with agenda and diary

[Nick Dokos]

Julien Danjou <julien@danjou.info> wrote:

> --=-=-=
> Content-Type: text/plain; charset=utf-8
> Content-Transfer-Encoding: quoted-printable
> 
> On Thu, Mar 17 2011, Nick Dokos wrote:
> 
> > I can reproduce it just by setting org-agenda-include-diary to t
> > (Org-mode version 7.5 (release_7.5.60.g706a.dirty))
> 
> Well, I can't. :(
> 
> > x is the St.Patrick's Day entry: #(" Diary: St. Patrick's Day" 0 2
> > (org-category #5=3D"diary" tags nil org-highest-priority 65
> > org-lowest-priority 67 time-of-day nil duration nil effort nil
> > effort-minutes nil txt #4=3D#("St. Patrick's Day" 0 17 (org-heading t)) t=
> ime
> > #1=3D"" extra #1# dotime time org-heading t type #3=3D"diary" date #2=3D(=
> 3 17
> > 2011) face org-todo) 2 14 (org-category #5# tags nil org-highest-priority=
>  65
> > org-lowest-priority 67 time-of-day nil duration nil effort nil
> > effort-minutes nil txt #4# time #1# extra #1# dotime time org-heading t t=
> ype
> > #3# date #2# face org-agenda-diary) 14 31 (org-heading t org-category #5#
> > tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil
> > duration nil effort nil effort-minutes nil txt #4# time #1# extra #1# dot=
> ime
> > time type #3# date #2# face org-agenda-diary))
> >
> > re is the empty string so indeed it is not nil: ""
> 
> Well, I do not see how re can be "" since:
> 	(setq re (get-text-property 0 'org-todo-regexp x))
> 
> And x has no 'org-todo-regexp property.
> 
> Since you seems familiar with the debugger, could you try to see what's
> happening?
> 

That was of course before you took out the concat in 9216453a388 - after
that change, there is no problem: it was doing (concat nil) ==> ""

Nick

Re: Re: Problem with agenda and diary

[Nick Dokos]

Not sure why my reply was addressed the way it was: left Julien out,
replied directly to Tassilo and the ML. There is something funky
going on with my mailer.

Apologies for the confusion,
Nick

Re: Re: Problem with agenda and diary

[Julien Danjou]

[-- Attachment #1: Type: text/plain, Size: 453 bytes --]

On Fri, Mar 18 2011, Nick Dokos wrote:

> That was of course before you took out the concat in 9216453a388 - after
> that change, there is no problem: it was doing (concat nil) ==> ""

What's weird is that that concat has not been introduced by my recent
patches. It clearly seems wrong, but I don't see why no bug was
triggered before.

Anyhow, if everything is ok now, that's perfect. :)

-- 
Julien Danjou
❱ http://julien.danjou.info

[-- Attachment #2: Type: application/pgp-signature, Size: 835 bytes --]

Re: Re: Problem with agenda and diary

[Julien Danjou, Nick Dokos]

Julien Danjou <julien@danjou.info> wrote:

> On Fri, Mar 18 2011, Nick Dokos wrote:
> 
> > That was of course before you took out the concat in 9216453a388 - after
> > that change, there is no problem: it was doing (concat nil) ==> ""
> 
> What's weird is that that concat has not been introduced by my recent
> patches. It clearly seems wrong, but I don't see why no bug was
> triggered before.
> 

Neither do I. I thought the concat was concatenating two things before
you took out the prefix-length property, but I took another look and it
was doing exactly the same thing before and after that change: what you
took out was the second part of the setq. By all accounts, it should have
triggered the error long ago. So it is a minor mystery.

> Anyhow, if everything is ok now, that's perfect. :)
> 

Yup :)

Nick

Re: Problem with agenda and diary

[Bernt Hansen]

Nick Dokos <nicholas.dokos@hp.com> writes:

> Not sure why my reply was addressed the way it was: left Julien out,
> replied directly to Tassilo and the ML. There is something funky
> going on with my mailer.

Hi Nick,

I think that is because Julien's mail has an explicit Mail-Followup-To
header that specifies replied should go somewhere else.

I don't think using M-F-T headers is a good idea on mailing lists.

Regards,
-- 
Bernt

Re: Re: Problem with agenda and diary

[Bastien]

Julien Danjou <julien@danjou.info>, Nick Dokos <nicholas.dokos@hp.com>
writes:

>> Anyhow, if everything is ok now, that's perfect. :)
>> 
>
> Yup :)

Yeah, thanks for fixing this!

-- 
 Bastien

Re: Re: Problem with agenda and diary

[Bastien]

Nick Dokos <nicholas.dokos@hp.com> writes:

> Not sure why my reply was addressed the way it was: left Julien out,
> replied directly to Tassilo and the ML. There is something funky
> going on with my mailer.

I have the same problem, and the funky part is that it happens only with
Julien's email address -- as Julien is also hacking Gnus, I suspect some
backdoor he introduced in gnus-summary-wide-reply ;)

-- 
 Bastien

Re: Re: Problem with agenda and diary

[Nick Dokos]

Bastien <bzg@altern.org> wrote:

> Nick Dokos <nicholas.dokos@hp.com> writes:
> 
> > Not sure why my reply was addressed the way it was: left Julien out,
> > replied directly to Tassilo and the ML. There is something funky
> > going on with my mailer.
> 
> I have the same problem, and the funky part is that it happens only with
> Julien's email address -- as Julien is also hacking Gnus, I suspect some
> backdoor he introduced in gnus-summary-wide-reply ;)
> 

I'm using mh-e so you have to expand your conspiracy theory to cover that
too ;)

Re: Re: Problem with agenda and diary

[Julien Danjou]

[-- Attachment #1: Type: text/plain, Size: 637 bytes --]

On Fri, Mar 18 2011, Bastien wrote:

> I have the same problem, and the funky part is that it happens only with
> Julien's email address -- as Julien is also hacking Gnus, I suspect some
> backdoor he introduced in gnus-summary-wide-reply ;)

Not at all, that's the direct effect of a header called
Mail-Followup-To, which I put in my e-mails and which indicates that
there's no need to Cc me since I'm subscribed to the list. This avoids
receiving the emails twice when people answer.

Kids, look at the `message-subscribed-*' variables to configure this at
home.

:)

-- 
Julien Danjou
❱ http://julien.danjou.info

[-- Attachment #2: Type: application/pgp-signature, Size: 835 bytes --]

Re: Re: Problem with agenda and diary

[Bastien]

Padawan,

Julien Danjou <julien@danjou.info> writes:

> Kids, look at the `message-subscribed-*' variables to configure this at
> home.

I use (setq nnmail-treat-duplicates 'delete) so I don't need to mess
around with `message-subscribed-*' variables manually to avoid receiving
duplicates.

It's confusing not to see your email address when doing a wide reply, 
as Nick and I found out.  It's okay now that we know it, but nobody can
guess what is the value of your `message-subscribed-*'.

:)

-- 
 Bastien

Re: Re: Problem with agenda and diary

[Bastien]

Padawan,

Julien Danjou <julien@danjou.info> writes:

> Kids, look at the `message-subscribed-*' variables to configure this at
> home.

I use (setq nnmail-treat-duplicates 'delete) so I don't need to mess
around with `message-subscribed-*' variables manually to avoid receiving
duplicates.

It's confusing not to see your email address when doing a wide reply, 
as Nick and I found out.  It's okay now that we know it, but nobody can
guess what is the value of your `message-subscribed-*'.

:)

-- 
 Bastien