Re: Re: Problem with agenda and diary

emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed

From: Tassilo Horn <tassilo@member.fsf.org>
To: emacs-orgmode@gnu.org
Subject: Re: Re: Problem with agenda and diary
Date: Thu, 17 Mar 2011 16:34:07 +0100	[thread overview]
Message-ID: <87vczhep74.fsf@member.fsf.org> (raw)
In-Reply-To: <sa3d3lp7qlr.fsf@cigue.easter-eggs.fr> (Julien Danjou's message of "Thu, 17 Mar 2011 15:45:36 +0100")

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

next prev parent reply	other threads:[~2011-03-17 15:35 UTC|newest]

Thread overview: 44+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2011-03-17 13:30 Problem with agenda and diary Dan Griswold
2011-03-17 13:39 ` Erik Iverson
2011-03-17 13:48 ` Tassilo Horn
2011-03-17 14:45   ` Julien Danjou
2011-03-17 15:34     ` Tassilo Horn [this message]
2011-03-17 16:46       ` Julien Danjou
2011-03-17 20:28       ` Sébastien Vauban
2011-03-17 22:06         ` Nick Dokos
2011-03-17 23:43           ` Sébastien Vauban
2011-03-18  0:20             ` Nick Dokos
2011-03-18 10:07     ` Bastien
2011-03-17 14:48   ` Dan Griswold
  -- strict thread matches above, loose matches on Subject: below --
2010-12-13 17:29 [PATCH] org: rework property set Julien Danjou
2010-12-13 21:21 ` Bernt Hansen
2010-12-14  9:01   ` Julien Danjou
2010-12-14 10:15     ` Giovanni Ridolfi
2010-12-14 10:30       ` Julien Danjou
2010-12-14 12:28         ` Bernt Hansen
2010-12-16 13:34         ` Carsten Dominik
2010-12-16 13:45           ` Julien Danjou
2010-12-16 13:55             ` Carsten Dominik
2010-12-16 17:12               ` Julien Danjou
2010-12-17 17:39                 ` Carsten Dominik
     [not found]         ` <julien@danjou.info>
2010-12-14 14:50           ` Nick Dokos
2011-03-17 17:27           ` Re: Problem with agenda and diary Nick Dokos
2011-03-17 18:18             ` Tassilo Horn
2011-03-17 19:06               ` Dan Griswold
2011-03-17 19:45                 ` Nick Dokos
2011-03-17 20:37                   ` Dan Griswold
2011-03-17 22:01                     ` Nick Dokos
2011-03-17 22:11                     ` Nick Dokos
2011-03-18 10:36                 ` Julien Danjou
2011-03-18 10:36             ` Julien Danjou
2011-03-18 14:04           ` Nick Dokos
2011-03-18 14:14             ` Nick Dokos
2011-03-18 14:56               ` Bernt Hansen
2011-03-18 15:20               ` Bastien
2011-03-18 15:33                 ` Nick Dokos
2011-03-18 16:27                 ` Julien Danjou
2011-03-19 10:20                   ` Bastien
2011-03-19 10:20                   ` Bastien
2011-03-18 14:22             ` Julien Danjou
2011-03-18 14:51               ` Julien Danjou, Nick Dokos
2011-03-18 15:05                 ` Bastien

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87vczhep74.fsf@member.fsf.org \
    --to=tassilo@member.fsf.org \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link

Be sure your reply has a Subject: header at the top and a blank line before the message body.

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).