emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] bulk rescheduling change?


From: Nick Dokos
Subject: Re: [O] bulk rescheduling change?
Date: Wed, 12 Sep 2012 12:25:06 -0400

Bastien <address@hidden> wrote:

> Nick Dokos <address@hidden> writes:
> 
> > ... and after going back to before Nicolas's last four commits, I get
> > the attached backtrace in org-agenda-list:
> >
> > Debugger entered--Lisp error: (wrong-type-argument wholenump -1)
> >   make-string(-1 32)
> 
> This is hopefully fixed now.
> 
> Thanks for testing,
> 
> -- 
>  Bastien
> 

Not quite: I now get the following backtrace.

Thanks,
Nick

Debugger entered--Lisp error: (wrong-type-argument buffer-or-string-p 48)
  get-text-property(0 inherited 48)
  (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq 
txt (concat txt " :" (mapconcat (lambda (x) (setq i (get-text-property 0 (quote 
inherited) x)) (if (and have-i (not i)) (progn (setq have-i nil) (concat ":" 
x)) x)) tags ":") (if have-i "::" ":"))))
  (progn (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) 
(setq txt (concat txt " :" (mapconcat (lambda (x) (setq i (get-text-property 0 
... x)) (if (and have-i ...) (progn ... ...) x)) tags ":") (if have-i "::" 
":")))))
  (if tags (progn (let ((have-i (get-text-property 0 (quote inherited) (car 
tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i ...) (if 
... ... x)) tags ":") (if have-i "::" ":"))))))
  (when tags (let ((have-i (get-text-property 0 (quote inherited) (car tags))) 
i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i (get-text-property 
0 ... x)) (if (and have-i ...) (progn ... ...) x)) tags ":") (if have-i "::" 
":")))))
  (progn (if (string-match (org-re "\\([        
]+\\)\\(:[[:alnum:address@hidden:]+:\\)[        ]*$") txt) (setq txt (substring 
txt 0 (match-beginning 0)))) (setq tags (delq nil (mapcar (lambda (tg) (if (or 
(and hide-re ...) (and ... ...)) nil tg)) tags))) (when tags (let ((have-i 
(get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " 
:" (mapconcat (lambda (x) (setq i ...) (if ... ... x)) tags ":") (if have-i 
"::" ":"))))))
  (if (or add-inherited hide-re) (progn (if (string-match (org-re "\\([         
]+\\)\\(:[[:alnum:address@hidden:]+:\\)[        ]*$") txt) (setq txt (substring 
txt 0 (match-beginning 0)))) (setq tags (delq nil (mapcar (lambda (tg) (if (or 
... ...) nil tg)) tags))) (when tags (let ((have-i (get-text-property 0 (quote 
inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda ... 
... ...) tags ":") (if have-i "::" ":")))))))
  (when (or add-inherited hide-re) (if (string-match (org-re "\\([      
]+\\)\\(:[[:alnum:address@hidden:]+:\\)[        ]*$") txt) (setq txt (substring 
txt 0 (match-beginning 0)))) (setq tags (delq nil (mapcar (lambda (tg) (if (or 
(and hide-re ...) (and ... ...)) nil tg)) tags))) (when tags (let ((have-i 
(get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " 
:" (mapconcat (lambda (x) (setq i ...) (if ... ... x)) tags ":") (if have-i 
"::" ":"))))))
  org-agenda-fix-displayed-tags("----------------" "08:00" t nil)
  (setq txt (org-agenda-fix-displayed-tags txt tags 
org-agenda-show-inherited-tags org-agenda-hide-tags-regexp))
  (progn (setq txt (org-trim txt)) (setq txt (org-agenda-fix-displayed-tags txt 
tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* 
((category (or category (if (stringp org-category) org-category (and 
org-category (symbol-name org-category))) (if buffer-file-name 
(file-name-sans-extension (file-name-nondirectory buffer-file-name)) ""))) 
(category-icon (org-agenda-get-category-icon category)) (category-icon (if 
category-icon (propertize " " (quote display) category-icon) "")) (tag (if tags 
(nth (1- (length tags)) tags) "")) time effort neffort (ts (if dotime (concat 
(if (stringp dotime) dotime "") (and org-agenda-search-headline-for-time 
txt)))) (time-of-day (and dotime (org-get-time-of-day ts))) stamp plain s0 s1 
s2 rtn srp l duration thecategory) (and (derived-mode-p (quote org-mode)) 
buffer-file-name (add-to-list (quote org-agenda-contributing-files) 
buffer-file-name)) (when (and dotime time-of-day) (when (or (setq stamp 
(string-match org-stamp-time-of-d
 ay-regexp ts)) (setq plain (string-match org-plain-time-of-day-regexp ts))) 
(setq s0 (match-string 0 ts) srp (and stamp (match-end 3)) s1 (match-string (if 
plain 1 2) ts) s2 (match-string (if plain 8 (if srp 4 6)) ts)) (if (and 
org-prefix-has-time org-agenda-remove-times-when-in-prefix (or stamp plain) 
(string-match (concat ... " *") txt) (not (equal 93 ...)) (if (eq 
org-agenda-remove-times-when-in-prefix ...) (= ... 0) t)) (setq txt 
(replace-match "" nil nil txt)))) (if s1 (setq s1 (org-get-time-of-day s1 
(quote string) t))) (if s2 (setq s2 (org-get-time-of-day s2 (quote string) t))) 
(when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 
(org-minutes-to-hh:mm-string (+ (org-hh:mm-string-to-minutes s1) 
org-agenda-default-appointment-duration)))) (when s2 (setq duration (- 
(org-hh:mm-string-to-minutes s2) (org-hh:mm-string-to-minutes s1))))) (when 
(string-match (org-re "\\([       ]+\\)\\(:[[:alnum:address@hidden:]+:\\)[      
  ]*$") txt) (if (or (eq org-agenda-remove-tags t) (
 and org-agenda-remove-tags org-prefix-has-tag)) (setq txt (replace-match "" t 
t txt)) (setq txt (replace-match (concat (make-string ... 32) (match-string 2 
txt)) t t txt)))) (when (derived-mode-p (quote org-mode)) (setq effort 
(condition-case nil (org-get-effort (or (get-text-property 0 ... txt) 
(get-text-property 0 ... txt))) (error nil))) (when effort (setq neffort 
(org-duration-string-to-minutes effort) effort (setq effort (concat "[" effort 
"]"))))) (or effort (setq effort "")) (when remove-re (while (string-match 
remove-re txt) (setq txt (replace-match "" t t txt)))) (add-text-properties 0 
(length txt) (quote (org-heading t)) txt) (setq time (cond (s2 (concat 
(org-agenda-time-of-day-to-ampm-maybe s1) "-" 
(org-agenda-time-of-day-to-ampm-maybe s2) (if org-agenda-timegrid-use-ampm " 
"))) (s1 (concat (org-agenda-time-of-day-to-ampm-maybe s1) (if 
org-agenda-timegrid-use-ampm "........ " "......"))) (t "")) extra (or (and 
(not habitp) extra) "") category (if (symbolp category
 ) (symbol-name category) category) thecategory (copy-sequence category)) (if 
(string-match org-bracket-link-regexp category) (progn (setq l (if (match-end 
3) (- (match-end 3) (match-beginning 3)) (- (match-end 1) (match-beginning 
1)))) (when (< l (or org-prefix-category-length 0)) (setq category 
(copy-sequence category)) (org-add-props category nil (quote extra-space) 
(make-string (- org-prefix-category-length l 1) 32)))) (if (and 
org-prefix-category-max-length (>= (length category) 
org-prefix-category-max-length)) (setq category (substring category 0 (1- 
org-prefix-category-max-length))))) (setq rtn (concat (eval formatter) txt)) 
(remove-text-properties 0 (length rtn) (quote (line-prefix t wrap-prefix t)) 
rtn) (org-add-props rtn nil (quote org-category) (if thecategory (downcase 
thecategory) category) (quote tags) (mapcar (quote org-downcase-keep-props) 
tags) (quote org-highest-priority) org-highest-priority (quote 
org-lowest-priority) org-lowest-priority (quote time-of-day
 ) time-of-day (quote duration) duration (quote effort) effort (quote 
effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra 
(quote format) org-prefix-format-compiled (quote dotime) dotime)))
  (unwind-protect (progn (setq txt (org-trim txt)) (setq txt 
(org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags 
org-agenda-hide-tags-regexp)) (let* ((category (or category (if (stringp 
org-category) org-category (and org-category ...)) (if buffer-file-name 
(file-name-sans-extension ...) ""))) (category-icon 
(org-agenda-get-category-icon category)) (category-icon (if category-icon 
(propertize " " (quote display) category-icon) "")) (tag (if tags (nth (1- ...) 
tags) "")) time effort neffort (ts (if dotime (concat (if ... dotime "") (and 
org-agenda-search-headline-for-time txt)))) (time-of-day (and dotime 
(org-get-time-of-day ts))) stamp plain s0 s1 s2 rtn srp l duration thecategory) 
(and (derived-mode-p (quote org-mode)) buffer-file-name (add-to-list (quote 
org-agenda-contributing-files) buffer-file-name)) (when (and dotime 
time-of-day) (when (or (setq stamp (string-match org-stamp-time-of-day-regexp 
ts)) (setq plain (string-match org-plain-time-of-day-regex
 p ts))) (setq s0 (match-string 0 ts) srp (and stamp (match-end 3)) s1 
(match-string (if plain 1 2) ts) s2 (match-string (if plain 8 ...) ts)) (if 
(and org-prefix-has-time org-agenda-remove-times-when-in-prefix (or stamp 
plain) (string-match ... txt) (not ...) (if ... ... t)) (setq txt 
(replace-match "" nil nil txt)))) (if s1 (setq s1 (org-get-time-of-day s1 
(quote string) t))) (if s2 (setq s2 (org-get-time-of-day s2 (quote string) t))) 
(when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 
(org-minutes-to-hh:mm-string (+ ... org-agenda-default-appointment-duration)))) 
(when s2 (setq duration (- (org-hh:mm-string-to-minutes s2) 
(org-hh:mm-string-to-minutes s1))))) (when (string-match (org-re "\\([    
]+\\)\\(:[[:alnum:address@hidden:]+:\\)[        ]*$") txt) (if (or (eq 
org-agenda-remove-tags t) (and org-agenda-remove-tags org-prefix-has-tag)) 
(setq txt (replace-match "" t t txt)) (setq txt (replace-match (concat ... ...) 
t t txt)))) (when (derived-mode-p (quote org-mode)) (
 setq effort (condition-case nil (org-get-effort (or ... ...)) (error nil))) 
(when effort (setq neffort (org-duration-string-to-minutes effort) effort (setq 
effort (concat "[" effort "]"))))) (or effort (setq effort "")) (when remove-re 
(while (string-match remove-re txt) (setq txt (replace-match "" t t txt)))) 
(add-text-properties 0 (length txt) (quote (org-heading t)) txt) (setq time 
(cond (s2 (concat (org-agenda-time-of-day-to-ampm-maybe s1) "-" 
(org-agenda-time-of-day-to-ampm-maybe s2) (if org-agenda-timegrid-use-ampm " 
"))) (s1 (concat (org-agenda-time-of-day-to-ampm-maybe s1) (if 
org-agenda-timegrid-use-ampm "........ " "......"))) (t "")) extra (or (and 
(not habitp) extra) "") category (if (symbolp category) (symbol-name category) 
category) thecategory (copy-sequence category)) (if (string-match 
org-bracket-link-regexp category) (progn (setq l (if (match-end 3) (- ... ...) 
(- ... ...))) (when (< l (or org-prefix-category-length 0)) (setq category 
(copy-sequence categor
 y)) (org-add-props category nil (quote extra-space) (make-string ... 32)))) 
(if (and org-prefix-category-max-length (>= (length category) 
org-prefix-category-max-length)) (setq category (substring category 0 (1- 
org-prefix-category-max-length))))) (setq rtn (concat (eval formatter) txt)) 
(remove-text-properties 0 (length rtn) (quote (line-prefix t wrap-prefix t)) 
rtn) (org-add-props rtn nil (quote org-category) (if thecategory (downcase 
thecategory) category) (quote tags) (mapcar (quote org-downcase-keep-props) 
tags) (quote org-highest-priority) org-highest-priority (quote 
org-lowest-priority) org-lowest-priority (quote time-of-day) time-of-day (quote 
duration) duration (quote effort) effort (quote effort-minutes) neffort (quote 
txt) txt (quote time) time (quote extra) extra (quote format) 
org-prefix-format-compiled (quote dotime) dotime))) (set-match-data 
save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal (match-data))) (unwind-protect (progn (setq 
txt (org-trim txt)) (setq txt (org-agenda-fix-displayed-tags txt tags 
org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* ((category 
(or category (if ... org-category ...) (if buffer-file-name ... ""))) 
(category-icon (org-agenda-get-category-icon category)) (category-icon (if 
category-icon (propertize " " ... category-icon) "")) (tag (if tags (nth ... 
tags) "")) time effort neffort (ts (if dotime (concat ... ...))) (time-of-day 
(and dotime (org-get-time-of-day ts))) stamp plain s0 s1 s2 rtn srp l duration 
thecategory) (and (derived-mode-p (quote org-mode)) buffer-file-name 
(add-to-list (quote org-agenda-contributing-files) buffer-file-name)) (when 
(and dotime time-of-day) (when (or (setq stamp ...) (setq plain ...)) (setq s0 
(match-string 0 ts) srp (and stamp ...) s1 (match-string ... ts) s2 
(match-string ... ts)) (if (and org-prefix-has-time 
org-agenda-remove-times-when-in-prefix ..
 . ... ... ...) (setq txt ...))) (if s1 (setq s1 (org-get-time-of-day s1 ... 
t))) (if s2 (setq s2 (org-get-time-of-day s2 ... t))) (when (and s1 (not s2) 
org-agenda-default-appointment-duration) (setq s2 (org-minutes-to-hh:mm-string 
...))) (when s2 (setq duration (- ... ...)))) (when (string-match (org-re "\\([ 
       ]+\\)\\(:[[:alnum:address@hidden:]+:\\)[        ]*$") txt) (if (or (eq 
org-agenda-remove-tags t) (and org-agenda-remove-tags org-prefix-has-tag)) 
(setq txt (replace-match "" t t txt)) (setq txt (replace-match ... t t txt)))) 
(when (derived-mode-p (quote org-mode)) (setq effort (condition-case nil 
(org-get-effort ...) (error nil))) (when effort (setq neffort 
(org-duration-string-to-minutes effort) effort (setq effort ...)))) (or effort 
(setq effort "")) (when remove-re (while (string-match remove-re txt) (setq txt 
(replace-match "" t t txt)))) (add-text-properties 0 (length txt) (quote 
(org-heading t)) txt) (setq time (cond (s2 (concat ... "-" ... ...)) (s1 
(concat ... ...)) (t "")) 
 extra (or (and (not habitp) extra) "") category (if (symbolp category) 
(symbol-name category) category) thecategory (copy-sequence category)) (if 
(string-match org-bracket-link-regexp category) (progn (setq l (if ... ... 
...)) (when (< l ...) (setq category ...) (org-add-props category nil ... 
...))) (if (and org-prefix-category-max-length (>= ... 
org-prefix-category-max-length)) (setq category (substring category 0 ...)))) 
(setq rtn (concat (eval formatter) txt)) (remove-text-properties 0 (length rtn) 
(quote (line-prefix t wrap-prefix t)) rtn) (org-add-props rtn nil (quote 
org-category) (if thecategory (downcase thecategory) category) (quote tags) 
(mapcar (quote org-downcase-keep-props) tags) (quote org-highest-priority) 
org-highest-priority (quote org-lowest-priority) org-lowest-priority (quote 
time-of-day) time-of-day (quote duration) duration (quote effort) effort (quote 
effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra 
(quote format) org-pref
 ix-format-compiled (quote dotime) dotime))) (set-match-data 
save-match-data-internal (quote evaporate))))
  (save-match-data (setq txt (org-trim txt)) (setq txt 
(org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags 
org-agenda-hide-tags-regexp)) (let* ((category (or category (if (stringp 
org-category) org-category (and org-category (symbol-name org-category))) (if 
buffer-file-name (file-name-sans-extension (file-name-nondirectory 
buffer-file-name)) ""))) (category-icon (org-agenda-get-category-icon 
category)) (category-icon (if category-icon (propertize " " (quote display) 
category-icon) "")) (tag (if tags (nth (1- (length tags)) tags) "")) time 
effort neffort (ts (if dotime (concat (if (stringp dotime) dotime "") (and 
org-agenda-search-headline-for-time txt)))) (time-of-day (and dotime 
(org-get-time-of-day ts))) stamp plain s0 s1 s2 rtn srp l duration thecategory) 
(and (derived-mode-p (quote org-mode)) buffer-file-name (add-to-list (quote 
org-agenda-contributing-files) buffer-file-name)) (when (and dotime 
time-of-day) (when (or (setq stamp (string-match org-stamp
 -time-of-day-regexp ts)) (setq plain (string-match 
org-plain-time-of-day-regexp ts))) (setq s0 (match-string 0 ts) srp (and stamp 
(match-end 3)) s1 (match-string (if plain 1 2) ts) s2 (match-string (if plain 8 
(if srp 4 6)) ts)) (if (and org-prefix-has-time 
org-agenda-remove-times-when-in-prefix (or stamp plain) (string-match (concat 
... " *") txt) (not (equal 93 ...)) (if (eq 
org-agenda-remove-times-when-in-prefix ...) (= ... 0) t)) (setq txt 
(replace-match "" nil nil txt)))) (if s1 (setq s1 (org-get-time-of-day s1 
(quote string) t))) (if s2 (setq s2 (org-get-time-of-day s2 (quote string) t))) 
(when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 
(org-minutes-to-hh:mm-string (+ (org-hh:mm-string-to-minutes s1) 
org-agenda-default-appointment-duration)))) (when s2 (setq duration (- 
(org-hh:mm-string-to-minutes s2) (org-hh:mm-string-to-minutes s1))))) (when 
(string-match (org-re "\\([     ]+\\)\\(:[[:alnum:address@hidden:]+:\\)[        
]*$") txt) (if (or (eq org-agenda-remove
 -tags t) (and org-agenda-remove-tags org-prefix-has-tag)) (setq txt 
(replace-match "" t t txt)) (setq txt (replace-match (concat (make-string ... 
32) (match-string 2 txt)) t t txt)))) (when (derived-mode-p (quote org-mode)) 
(setq effort (condition-case nil (org-get-effort (or (get-text-property 0 ... 
txt) (get-text-property 0 ... txt))) (error nil))) (when effort (setq neffort 
(org-duration-string-to-minutes effort) effort (setq effort (concat "[" effort 
"]"))))) (or effort (setq effort "")) (when remove-re (while (string-match 
remove-re txt) (setq txt (replace-match "" t t txt)))) (add-text-properties 0 
(length txt) (quote (org-heading t)) txt) (setq time (cond (s2 (concat 
(org-agenda-time-of-day-to-ampm-maybe s1) "-" 
(org-agenda-time-of-day-to-ampm-maybe s2) (if org-agenda-timegrid-use-ampm " 
"))) (s1 (concat (org-agenda-time-of-day-to-ampm-maybe s1) (if 
org-agenda-timegrid-use-ampm "........ " "......"))) (t "")) extra (or (and 
(not habitp) extra) "") category (if (symbol
 p category) (symbol-name category) category) thecategory (copy-sequence 
category)) (if (string-match org-bracket-link-regexp category) (progn (setq l 
(if (match-end 3) (- (match-end 3) (match-beginning 3)) (- (match-end 1) 
(match-beginning 1)))) (when (< l (or org-prefix-category-length 0)) (setq 
category (copy-sequence category)) (org-add-props category nil (quote 
extra-space) (make-string (- org-prefix-category-length l 1) 32)))) (if (and 
org-prefix-category-max-length (>= (length category) 
org-prefix-category-max-length)) (setq category (substring category 0 (1- 
org-prefix-category-max-length))))) (setq rtn (concat (eval formatter) txt)) 
(remove-text-properties 0 (length rtn) (quote (line-prefix t wrap-prefix t)) 
rtn) (org-add-props rtn nil (quote org-category) (if thecategory (downcase 
thecategory) category) (quote tags) (mapcar (quote org-downcase-keep-props) 
tags) (quote org-highest-priority) org-highest-priority (quote 
org-lowest-priority) org-lowest-priority (quote t
 ime-of-day) time-of-day (quote duration) duration (quote effort) effort (quote 
effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra 
(quote format) org-prefix-format-compiled (quote dotime) dotime)))
  (let* ((bindings (car org-prefix-format-compiled)) (formatter (cadr 
org-prefix-format-compiled))) (loop for (var value) in bindings do (set var 
value)) (save-match-data (setq txt (org-trim txt)) (setq txt 
(org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags 
org-agenda-hide-tags-regexp)) (let* ((category (or category (if (stringp 
org-category) org-category (and org-category ...)) (if buffer-file-name 
(file-name-sans-extension ...) ""))) (category-icon 
(org-agenda-get-category-icon category)) (category-icon (if category-icon 
(propertize " " (quote display) category-icon) "")) (tag (if tags (nth (1- ...) 
tags) "")) time effort neffort (ts (if dotime (concat (if ... dotime "") (and 
org-agenda-search-headline-for-time txt)))) (time-of-day (and dotime 
(org-get-time-of-day ts))) stamp plain s0 s1 s2 rtn srp l duration thecategory) 
(and (derived-mode-p (quote org-mode)) buffer-file-name (add-to-list (quote 
org-agenda-contributing-files) buffer-file-name)) (when (a
 nd dotime time-of-day) (when (or (setq stamp (string-match 
org-stamp-time-of-day-regexp ts)) (setq plain (string-match 
org-plain-time-of-day-regexp ts))) (setq s0 (match-string 0 ts) srp (and stamp 
(match-end 3)) s1 (match-string (if plain 1 2) ts) s2 (match-string (if plain 8 
...) ts)) (if (and org-prefix-has-time org-agenda-remove-times-when-in-prefix 
(or stamp plain) (string-match ... txt) (not ...) (if ... ... t)) (setq txt 
(replace-match "" nil nil txt)))) (if s1 (setq s1 (org-get-time-of-day s1 
(quote string) t))) (if s2 (setq s2 (org-get-time-of-day s2 (quote string) t))) 
(when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 
(org-minutes-to-hh:mm-string (+ ... org-agenda-default-appointment-duration)))) 
(when s2 (setq duration (- (org-hh:mm-string-to-minutes s2) 
(org-hh:mm-string-to-minutes s1))))) (when (string-match (org-re "\\([  
]+\\)\\(:[[:alnum:address@hidden:]+:\\)[        ]*$") txt) (if (or (eq 
org-agenda-remove-tags t) (and org-agenda-remove-tags org-pref
 ix-has-tag)) (setq txt (replace-match "" t t txt)) (setq txt (replace-match 
(concat ... ...) t t txt)))) (when (derived-mode-p (quote org-mode)) (setq 
effort (condition-case nil (org-get-effort (or ... ...)) (error nil))) (when 
effort (setq neffort (org-duration-string-to-minutes effort) effort (setq 
effort (concat "[" effort "]"))))) (or effort (setq effort "")) (when remove-re 
(while (string-match remove-re txt) (setq txt (replace-match "" t t txt)))) 
(add-text-properties 0 (length txt) (quote (org-heading t)) txt) (setq time 
(cond (s2 (concat (org-agenda-time-of-day-to-ampm-maybe s1) "-" 
(org-agenda-time-of-day-to-ampm-maybe s2) (if org-agenda-timegrid-use-ampm " 
"))) (s1 (concat (org-agenda-time-of-day-to-ampm-maybe s1) (if 
org-agenda-timegrid-use-ampm "........ " "......"))) (t "")) extra (or (and 
(not habitp) extra) "") category (if (symbolp category) (symbol-name category) 
category) thecategory (copy-sequence category)) (if (string-match 
org-bracket-link-regexp catego
 ry) (progn (setq l (if (match-end 3) (- ... ...) (- ... ...))) (when (< l (or 
org-prefix-category-length 0)) (setq category (copy-sequence category)) 
(org-add-props category nil (quote extra-space) (make-string ... 32)))) (if 
(and org-prefix-category-max-length (>= (length category) 
org-prefix-category-max-length)) (setq category (substring category 0 (1- 
org-prefix-category-max-length))))) (setq rtn (concat (eval formatter) txt)) 
(remove-text-properties 0 (length rtn) (quote (line-prefix t wrap-prefix t)) 
rtn) (org-add-props rtn nil (quote org-category) (if thecategory (downcase 
thecategory) category) (quote tags) (mapcar (quote org-downcase-keep-props) 
tags) (quote org-highest-priority) org-highest-priority (quote 
org-lowest-priority) org-lowest-priority (quote time-of-day) time-of-day (quote 
duration) duration (quote effort) effort (quote effort-minutes) neffort (quote 
txt) txt (quote time) time (quote extra) extra (quote format) 
org-prefix-format-compiled (quote dotime) 
 dotime))))
  org-agenda-format-item(nil "----------------" "" nil "08:00")
  (cons (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) 
":" (substring time -2))) new)
  (setq new (cons (org-agenda-format-item nil string "" nil (concat (substring 
time 0 -2) ":" (substring time -2))) new))
  (push (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) 
":" (substring time -2))) new)
  (if (and remove (member time have)) nil (setq time (replace-regexp-in-string 
" " "0" (format "%04s" time))) (push (org-agenda-format-item nil string "" nil 
(concat (substring time 0 -2) ":" (substring time -2))) new) (put-text-property 
2 (length (car new)) (quote face) (quote org-time-grid) (car new)))
  (unless (and remove (member time have)) (setq time (replace-regexp-in-string 
" " "0" (format "%04s" time))) (push (org-agenda-format-item nil string "" nil 
(concat (substring time 0 -2) ":" (substring time -2))) new) (put-text-property 
2 (length (car new)) (quote face) (quote org-time-grid) (car new)))
  (while (setq time (pop gridtimes)) (unless (and remove (member time have)) 
(setq time (replace-regexp-in-string " " "0" (format "%04s" time))) (push 
(org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" 
(substring time -2))) new) (put-text-property 2 (length (car new)) (quote face) 
(quote org-time-grid) (car new))))
  (let* ((have (delq nil (mapcar (lambda (x) (get-text-property 1 (quote 
time-of-day) x)) list))) (string (nth 1 org-agenda-time-grid)) (gridtimes (nth 
2 org-agenda-time-grid)) (req (car org-agenda-time-grid)) (remove (member 
(quote remove-match) req)) new time) (if (and (member (quote require-timed) 
req) (not have)) (throw (quote exit) list)) (while (setq time (pop gridtimes)) 
(unless (and remove (member time have)) (setq time (replace-regexp-in-string " 
" "0" (format "%04s" time))) (push (org-agenda-format-item nil string "" nil 
(concat (substring time 0 -2) ":" (substring time -2))) new) (put-text-property 
2 (length (car new)) (quote face) (quote org-time-grid) (car new)))) (when (and 
todayp org-agenda-show-current-time-in-grid) (push (org-agenda-format-item nil 
org-agenda-current-time-string "" nil (format-time-string "%H:%M ")) new) 
(put-text-property 2 (length (car new)) (quote face) (quote 
org-agenda-current-time) (car new))) (if (member (quote time-up) org-agenda-sort
 ing-strategy-selected) (append new list) (append list new)))
  (catch (quote exit) (cond ((not org-agenda-use-time-grid) (throw (quote exit) 
list)) ((and todayp (member (quote today) (car org-agenda-time-grid)))) ((and 
(= ndays 1) (member (quote daily) (car org-agenda-time-grid)))) ((member (quote 
weekly) (car org-agenda-time-grid))) (t (throw (quote exit) list))) (let* 
((have (delq nil (mapcar (lambda (x) (get-text-property 1 ... x)) list))) 
(string (nth 1 org-agenda-time-grid)) (gridtimes (nth 2 org-agenda-time-grid)) 
(req (car org-agenda-time-grid)) (remove (member (quote remove-match) req)) new 
time) (if (and (member (quote require-timed) req) (not have)) (throw (quote 
exit) list)) (while (setq time (pop gridtimes)) (unless (and remove (member 
time have)) (setq time (replace-regexp-in-string " " "0" (format "%04s" time))) 
(push (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) 
":" (substring time -2))) new) (put-text-property 2 (length (car new)) (quote 
face) (quote org-time-grid) (car new)))) (when (and today
 p org-agenda-show-current-time-in-grid) (push (org-agenda-format-item nil 
org-agenda-current-time-string "" nil (format-time-string "%H:%M ")) new) 
(put-text-property 2 (length (car new)) (quote face) (quote 
org-agenda-current-time) (car new))) (if (member (quote time-up) 
org-agenda-sorting-strategy-selected) (append new list) (append list new))))
  org-agenda-add-time-grid-maybe((#("  Appt:       19:00...... APPT Daily 
status " 0 2 (org-category #("Appt" 0 4 (fontified nil org-category "Weather")) 
tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1900 
duration nil effort "" effort-minutes nil txt #("APPT Daily status " 0 18 
(fontified nil org-category #("Appt" 0 4 (fontified nil org-category 
"Weather")) org-category-position 80 org-heading t)) time "19:00......" extra 
"" format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-05 Wed 19:00 
+1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil 
org-category "Weathe
 r")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp 
"\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" 
org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: 
+\\(.*?\\)\\)??\\(?:[       ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       
]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/appts.org" priority 1000 org-marker #<marker at 436 in appts.org> 
org-hd-marker #<marker at 415 in appts.org> date (9 12 2012) level "  " 
org-category-position 80 ...) 2 6 (fontified nil org-category #("Appt" 0 4 
(fontified nil org-category "Weather")) tags nil org-highest-priority 65 
org-lowest-priority 67 time-of-day 1900 duration nil effort "" effort-minutes 
nil txt #("APPT Daily status " 0 18 (fontified nil org-category #("Appt" 0 4 
(fontified nil org-category "Weather")) org-category-position 80 org-heading 
t)) time "19:00......" extra "" format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (o
 rg-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-05 Wed 19:00 
+1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil 
org-category "Weather")) fontified nil)) face org-agenda-calendar-event 
org-not-done-regexp "\\(APPT\\)" org-todo-regexp 
"\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: 
+\\(.*?\\)\\)??\\(?:[        ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       
]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/appts.org" priority 1000 org-marker #<marker at 436 in appts.org> 
org-hd-marker #<marker at 415 in appts.org> date (9 12 2012) leve
 l "  " ...) 6 26 (org-category #("Appt" 0 4 (fontified nil org-category 
"Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 
1900 duration nil effort "" effort-minutes nil txt #("APPT Daily status " 0 18 
(fontified nil org-category #("Appt" 0 4 (fontified nil org-category 
"Weather")) org-category-position 80 org-heading t)) time "19:00......" extra 
"" format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-05 Wed 19:00 
+1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil 
org-category "Weather")) fontified nil)) face org-agenda-calendar-event 
org-not-done-rege
 xp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" 
org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: 
+\\(.*?\\)\\)??\\(?:[    ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/appts.org" priority 1000 org-marker #<marker at 436 in appts.org> 
org-hd-marker #<marker at 415 in appts.org> date (9 12 2012) level "  " 
org-category-position 80 ...) 26 44 (org-heading t org-category-position 80 
org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil 
tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1900 
duration nil effort "" effort-minutes nil txt #("APPT Daily status " 0 18 
(fontified nil org-category #("Appt" 0 4 (fontified nil org-category 
"Weather")) org-category-position 80 org-heading t)) time "19:00......" extra 
"" format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12
 ) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) (if (equal "" time) "" (format 
"%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " 
" ...))))) dotime #("<2012-09-05 Wed 19:00 +1d>" 0 26 (org-category-position 80 
org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified 
nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" 
org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp 
"^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: 
+\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[    
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" mouse-face highlight 
help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 
org-marker #<marker at 436 in appts.org> org-hd-marker #<marker at 415 in 
appts.org> ...)) #("  Appt:        9:00...... APPT Thyroid m
 ed " 0 2 (org-category #("Appt" 0 4 (fontified nil org-category "Weather")) 
tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 900 
duration nil effort "" effort-minutes nil txt #("APPT Thyroid med " 0 17 
(fontified nil org-category #("Appt" 0 4 (fontified nil org-category 
"Weather")) org-category-position 80 org-heading t)) time " 9:00......" extra 
"" format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-11 Tue 09:00 
+1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil 
org-category "Weather")) fontified nil)) face org-agenda-calendar-event 
org-not-done-regexp "\\(APP
 T\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" 
org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: 
+\\(.*?\\)\\)??\\(?:[      ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/appts.org" priority 1000 org-marker #<marker at 13706 in appts.org> 
org-hd-marker #<marker at 13686 in appts.org> date (9 12 2012) level "  " 
org-category-position 80 ...) 2 6 (fontified nil org-category #("Appt" 0 4 
(fontified nil org-category "Weather")) tags nil org-highest-priority 65 
org-lowest-priority 67 time-of-day 900 duration nil effort "" effort-minutes 
nil txt #("APPT Thyroid med " 0 17 (fontified nil org-category #("Appt" 0 4 
(fontified nil org-category "Weather")) org-category-position 80 org-heading 
t)) time " 9:00......" extra "" format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%
 s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-11 Tue 09:00 
+1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil 
org-category "Weather")) fontified nil)) face org-agenda-calendar-event 
org-not-done-regexp "\\(APPT\\)" org-todo-regexp 
"\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: 
+\\(.*?\\)\\)??\\(?:[     ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/appts.org" priority 1000 org-marker #<marker at 13706 in appts.org> 
org-hd-marker #<marker at 13686 in appts.org> date (9 12 2012) level "  " ...) 
6 26 (org-category #("Appt" 0 4 (fontified nil org-category "
 Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 
900 duration nil effort "" effort-minutes nil txt #("APPT Thyroid med " 0 17 
(fontified nil org-category #("Appt" 0 4 (fontified nil org-category 
"Weather")) org-category-position 80 org-heading t)) time " 9:00......" extra 
"" format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-11 Tue 09:00 
+1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil 
org-category "Weather")) fontified nil)) face org-agenda-calendar-event 
org-not-done-regexp "\\(APPT\\)" org-todo-regexp 
"\\(APPT\\|DONE\\|CANCELLED\\)" org-complex
 -heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: 
+\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[       
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" mouse-face highlight 
help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 
org-marker #<marker at 13706 in appts.org> org-hd-marker #<marker at 13686 in 
appts.org> date (9 12 2012) level "  " org-category-position 80 ...) 26 43 
(org-heading t org-category-position 80 org-category #("Appt" 0 4 (fontified 
nil org-category "Weather")) fontified nil tags nil org-highest-priority 65 
org-lowest-priority 67 time-of-day 900 duration nil effort "" effort-minutes 
nil txt #("APPT Thyroid med " 0 17 (fontified nil org-category #("Appt" 0 4 
(fontified nil org-category "Weather")) org-category-position 80 org-heading 
t)) time " 9:00......" extra "" format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equ
 al category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if 
(equal category "") "" (concat category ":" ...))) (if (equal "" time) "" 
(format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat 
extra " " ...))))) dotime #("<2012-09-11 Tue 09:00 +1d>" 0 26 
(org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category 
"Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp 
"\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" 
org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: 
+\\(.*?\\)\\)??\\(?:[     ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/appts.org" priority 1000 org-marker #<marker at 13706 in appts.org> 
org-hd-marker #<marker at 13686 in appts.org> ...)) #("  Appt:       
16:00...... APPT Register laptops " 0 2 (org-category #("Appt" 0 4 (fontified 
nil org-category 
 "Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 
time-of-day 1600 duration nil effort "" effort-minutes nil txt #("APPT Register 
laptops " 0 22 (fontified nil org-category #("Appt" 0 4 (fontified nil 
org-category "Weather")) org-category-position 80 org-heading t)) time 
"16:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag 
nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime #("<2012-07-16 Mon 16:00 
+29d>" 0 27 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil 
org-category "Weather")) fontified nil)) face org-agenda-calendar-event 
org-not-done-regexp "\\(APPT\\)" org-todo-regexp 
"\\(APPT\\|DONE\\|CANCELLED\\)" org
 -complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: 
+\\(.*?\\)\\)??\\(?:[       ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       
]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/appts.org" priority 1000 org-marker #<marker at 30485 in appts.org> 
org-hd-marker #<marker at 30460 in appts.org> date (9 12 2012) level "  " 
org-category-position 80 ...) 2 6 (fontified nil org-category #("Appt" 0 4 
(fontified nil org-category "Weather")) tags nil org-highest-priority 65 
org-lowest-priority 67 time-of-day 1600 duration nil effort "" effort-minutes 
nil txt #("APPT Register laptops " 0 22 (fontified nil org-category #("Appt" 0 
4 (fontified nil org-category "Weather")) org-category-position 80 org-heading 
t)) time "16:00......" extra "" format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (co
 ncat category-icon "" ...))) (format "%-12s" (if (equal category "") "" 
(concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" 
...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime 
#("<2012-07-16 Mon 16:00 +29d>" 0 27 (org-category-position 80 org-category 
#("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face 
org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp 
"\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: 
+\\(.*?\\)\\)??\\(?:[       ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       
]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/appts.org" priority 1000 org-marker #<marker at 30485 in appts.org> 
org-hd-marker #<marker at 30460 in appts.org> date (9 12 2012) level "  " ...) 
6 26 (org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags 
nil org-highest-priority 65 org-lo
 west-priority 67 time-of-day 1600 duration nil effort "" effort-minutes nil 
txt #("APPT Register laptops " 0 22 (fontified nil org-category #("Appt" 0 4 
(fontified nil org-category "Weather")) org-category-position 80 org-heading 
t)) time "16:00......" extra "" format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat 
category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat 
category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) 
(format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime 
#("<2012-07-16 Mon 16:00 +29d>" 0 27 (org-category-position 80 org-category 
#("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face 
org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp 
"\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(APPT\
 \|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[  
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" mouse-face highlight 
help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 
org-marker #<marker at 30485 in appts.org> org-hd-marker #<marker at 30460 in 
appts.org> date (9 12 2012) level "  " org-category-position 80 ...) 26 48 
(org-heading t org-category-position 80 org-category #("Appt" 0 4 (fontified 
nil org-category "Weather")) fontified nil tags nil org-highest-priority 65 
org-lowest-priority 67 time-of-day 1600 duration nil effort "" effort-minutes 
nil txt #("APPT Register laptops " 0 22 (fontified nil org-category #("Appt" 0 
4 (fontified nil org-category "Weather")) org-category-position 80 org-heading 
t)) time "16:00......" extra "" format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat 
categ
 ory-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category 
":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format 
"%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-07-16 
Mon 16:00 +29d>" 0 27 (org-category-position 80 org-category #("Appt" 0 4 
(fontified nil org-category "Weather")) fontified nil)) face 
org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp 
"\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: 
+\\(.*?\\)\\)??\\(?:[         ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       
]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/appts.org" priority 1000 org-marker #<marker at 30485 in appts.org> 
org-hd-marker #<marker at 30460 in appts.org> ...)) #("  Weather:     
6:24...... Sunrise " 0 2 (org-category #("Weather" 0 7 (fontified nil 
org-category #("Anniv" 0 5 (fontified nil org-category #("Ho
 liday" 0 7 ...) org-category-position 36765)) org-category-position 36810)) 
tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 624 
duration nil effort "" effort-minutes nil txt #("Sunrise " 0 8 (org-heading t)) 
time " 6:24......" extra "" format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat 
category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat 
category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) 
(format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time 
face org-agenda-calendar-sexp mouse-face highlight help-echo "mouse-2 or RET 
jump to org file ~/lib/org/appts.org" org-marker #<marker at 37316 in 
appts.org> date (9 12 2012) todo-state #("DONE" 0 4 (fontified nil org-category 
#("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80)) 
org-c
 ategory-position 36855 level " " type "sexp" warntime nil) 2 9 (fontified nil 
org-category #("Weather" 0 7 (fontified nil org-category #("Anniv" 0 5 
(fontified nil org-category #("Holiday" 0 7 ...) org-category-position 36765)) 
org-category-position 36810)) org-category-position 36855 tags nil 
org-highest-priority 65 org-lowest-priority 67 time-of-day 624 duration nil 
effort "" effort-minutes nil txt #("Sunrise " 0 8 (org-heading t)) time " 
6:24......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime time face 
org-agenda-calendar-sexp mouse-face highlight help-echo "mouse-2 or RET jump to 
org file ~/lib/or
 g/appts.org" org-marker #<marker at 37316 in appts.org> date (9 12 2012) 
todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 (fontified nil 
org-category "Weather")) org-category-position 80)) level " " type "sexp" 
warntime nil) 9 26 (org-category #("Weather" 0 7 (fontified nil org-category 
#("Anniv" 0 5 (fontified nil org-category #("Holiday" 0 7 ...) 
org-category-position 36765)) org-category-position 36810)) tags nil 
org-highest-priority 65 org-lowest-priority 67 time-of-day 624 duration nil 
effort "" effort-minutes nil txt #("Sunrise " 0 8 (org-heading t)) time " 
6:24......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" 
 (concat extra " " ...))))) dotime time face org-agenda-calendar-sexp 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/appts.org" org-marker #<marker at 37316 in appts.org> date (9 12 
2012) todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 
(fontified nil org-category "Weather")) org-category-position 80)) 
org-category-position 36855 level " " type "sexp" warntime nil) 26 34 
(org-heading t org-category #("Weather" 0 7 (fontified nil org-category 
#("Anniv" 0 5 (fontified nil org-category #("Holiday" 0 7 ...) 
org-category-position 36765)) org-category-position 36810)) tags nil 
org-highest-priority 65 org-lowest-priority 67 time-of-day 624 duration nil 
effort "" effort-minutes nil txt #("Sunrise " 0 8 (org-heading t)) time " 
6:24......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat categ
 ory-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category 
":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format 
"%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time face 
org-agenda-calendar-sexp mouse-face highlight help-echo "mouse-2 or RET jump to 
org file ~/lib/org/appts.org" org-marker #<marker at 37316 in appts.org> date 
(9 12 2012) todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 
(fontified nil org-category "Weather")) org-category-position 80)) 
org-category-position 36855 level " " type "sexp" warntime nil)) #("  Weather:  
  18:56...... Sunset " 0 2 (org-category #("Weather" 0 7 (fontified nil 
org-category #("Anniv" 0 5 (fontified nil org-category #("Holiday" 0 7 ...) 
org-category-position 36765)) org-category-position 36810)) tags nil 
org-highest-priority 65 org-lowest-priority 67 time-of-day 1856 duration nil 
effort "" effort-minutes nil txt #("Sunset " 0 7 (org-heading t)) time 
"18:56......" 
 extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime time face 
org-agenda-calendar-sexp mouse-face highlight help-echo "mouse-2 or RET jump to 
org file ~/lib/org/appts.org" org-marker #<marker at 37378 in appts.org> date 
(9 12 2012) todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 
(fontified nil org-category "Weather")) org-category-position 80)) 
org-category-position 36855 level " " type "sexp" warntime nil) 2 9 (fontified 
nil org-category #("Weather" 0 7 (fontified nil org-category #("Anniv" 0 5 
(fontified nil org-category #("Holiday" 0 7 ...) org-category-position 36765)) 
org-category-positi
 on 36810)) org-category-position 36855 tags nil org-highest-priority 65 
org-lowest-priority 67 time-of-day 1856 duration nil effort "" effort-minutes 
nil txt #("Sunset " 0 7 (org-heading t)) time "18:56......" extra "" format 
(((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 
12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) (if (equal "" time) "" (format 
"%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " 
" ...))))) dotime time face org-agenda-calendar-sexp mouse-face highlight 
help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" org-marker 
#<marker at 37378 in appts.org> date (9 12 2012) todo-state #("DONE" 0 4 
(fontified nil org-category #("Appt" 0 4 (fontified nil org-category 
"Weather")) org-category-position 80)) level " " type "sexp" warntime nil) 9 26 
(
 org-category #("Weather" 0 7 (fontified nil org-category #("Anniv" 0 5 
(fontified nil org-category #("Holiday" 0 7 ...) org-category-position 36765)) 
org-category-position 36810)) tags nil org-highest-priority 65 
org-lowest-priority 67 time-of-day 1856 duration nil effort "" effort-minutes 
nil txt #("Sunset " 0 7 (org-heading t)) time "18:56......" extra "" format 
(((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 
12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) (if (equal "" time) "" (format 
"%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " 
" ...))))) dotime time face org-agenda-calendar-sexp mouse-face highlight 
help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" org-marker 
#<marker at 37378 in appts.org> date (9 12 2012) todo-state #("DONE" 0 4 
(fontifie
 d nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) 
org-category-position 80)) org-category-position 36855 level " " type "sexp" 
warntime nil) 26 33 (org-heading t org-category #("Weather" 0 7 (fontified nil 
org-category #("Anniv" 0 5 (fontified nil org-category #("Holiday" 0 7 ...) 
org-category-position 36765)) org-category-position 36810)) tags nil 
org-highest-priority 65 org-lowest-priority 67 time-of-day 1856 duration nil 
effort "" effort-minutes nil txt #("Sunset " 0 7 (org-heading t)) time 
"18:56......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag 
nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime time face 
org-agenda-calendar
 -sexp mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/appts.org" org-marker #<marker at 37378 in appts.org> date (9 12 
2012) todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 
(fontified nil org-category "Weather")) org-category-position 80)) 
org-category-position 36855 level " " type "sexp" warntime nil)) #("  Home:     
  Sched. 3x:  TODO epoxy sony part - again" 0 2 (org-category #("Home" 0 4 
(fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 
org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes 
nil txt #("TODO epoxy sony part - again" 0 28 (org-heading t)) time "" extra 
"Sched. 3x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" tim
 e) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" 
(concat extra " " ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[       
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 181 in home.org> org-hd-marker 
#<marker at 135 in home.org> type "past-scheduled" date 734756 ...) 2 6 
(fontified nil org-category #("Home" 0 4 (fontified nil org-category 
"Acquisitions")) tags nil org-highest-priority 6
 5 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes 
nil txt #("TODO epoxy sony part - again" 0 28 (org-heading t)) time "" extra 
"Sched. 3x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?
 \\)\\)??\\(?:[         ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" 
done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump 
to org file ~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 181 in home.org> org-hd-marker 
#<marker at 135 in home.org> type "past-scheduled" ...) 6 26 (org-category 
#("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil 
org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil 
effort "" effort-minutes nil txt #("TODO epoxy sony part - again" 0 28 
(org-heading t)) time "" extra "Sched. 3x: " format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat 
category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat 
category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) 
(format "%s" (if (equal 
 extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[       
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 181 in home.org> org-hd-marker 
#<marker at 135 in home.org> type "past-scheduled" date 734756 ...) 26 54 
(org-heading t org-category #("Home" 0 4 (fontified nil org-category 
"Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 
time-of-day nil duration nil effort "
 " effort-minutes nil txt #("TODO epoxy sony part - again" 0 28 (org-heading 
t)) time "" extra "Sched. 3x: " format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat 
category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat 
category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) 
(format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil 
org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" 
org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[  
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-fa
 ce org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org 
file ~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 181 in home.org> org-hd-marker 
#<marker at 135 in home.org> type "past-scheduled" ...)) #("  Home:       
Sched.12x:  TODO Backup src/music/choir/tape-transcriptions/2011-*" 0 2 
(org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags 
nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil 
effort "" effort-minutes nil txt #("TODO Backup 
src/music/choir/tape-transcriptions/2011-*" 0 54 (org-heading t)) time "" extra 
"Sched.12x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "
 %-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " 
" ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[      
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 297 in home.org> org-hd-marker 
#<marker at 225 in home.org> type "past-scheduled" date 734747 ...) 2 6 
(fontified nil org-category #("Home" 0 4 (fontified nil org-category 
"Acquisitions")) tags nil org-highest-priority 65 org-lowest-pr
 iority 67 time-of-day nil duration nil effort "" effort-minutes nil txt 
#("TODO Backup src/music/choir/tape-transcriptions/2011-*" 0 54 (org-heading 
t)) time "" extra "Sched.12x: " format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat 
category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat 
category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) 
(format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil 
org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" 
org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\
 (?: +\\(.*?\\)\\)??\\(?:[      ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       
]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET 
jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 297 in home.org> org-hd-marker 
#<marker at 225 in home.org> type "past-scheduled" ...) 6 26 (org-category 
#("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil 
org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil 
effort "" effort-minutes nil txt #("TODO Backup 
src/music/choir/tape-transcriptions/2011-*" 0 54 (org-heading t)) time "" extra 
"Sched.12x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if .
 .. "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) 
dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[  
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 297 in home.org> org-hd-marker 
#<marker at 225 in home.org> type "past-scheduled" date 734747 ...) 26 80 
(org-heading t org-category #("Home" 0 4 (fontified nil org-category 
"Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 
 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Backup 
src/music/choir/tape-transcriptions/2011-*" 0 54 (org-heading t)) time "" extra 
"Sched.12x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*
 ?\\)\\)??\\(?:[        ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" 
done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump 
to org file ~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 297 in home.org> org-hd-marker 
#<marker at 225 in home.org> type "past-scheduled" ...)) #("  Home:       
Sched.13x:  TODO update GPG key" 0 2 (org-category #("Home" 0 4 (fontified nil 
org-category "Acquisitions")) tags nil org-highest-priority 65 
org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes 
nil txt #("TODO update GPG key" 0 19 (org-heading t)) time "" extra "Sched.13x: 
" format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" 
 (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " 
...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[     
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 377 in home.org> org-hd-marker 
#<marker at 340 in home.org> type "past-scheduled" date 734746 ...) 2 6 
(fontified nil org-category #("Home" 0 4 (fontified nil org-category 
"Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 
 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO 
update GPG key" 0 19 (org-heading t)) time "" extra "Sched.13x: " format 
(((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 
12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) (if (equal "" time) "" (format 
"%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " 
" ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[   ]+\\(:[[:alnum:
 address@hidden:]+:\\)\\)?[     ]*$" done-face org-agenda-done mouse-face 
highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" 
undone-face org-scheduled-previously face org-scheduled-previously org-marker 
#<marker at 377 in home.org> org-hd-marker #<marker at 340 in home.org> type 
"past-scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil 
org-category "Acquisitions")) tags nil org-highest-priority 65 
org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes 
nil txt #("TODO update GPG key" 0 19 (org-heading t)) time "" extra "Sched.13x: 
" format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) 
 dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[       
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 377 in home.org> org-hd-marker 
#<marker at 340 in home.org> type "past-scheduled" date 734746 ...) 26 45 
(org-heading t org-category #("Home" 0 4 (fontified nil org-category 
"Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 
time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO update 
 GPG key" 0 19 (org-heading t)) time "" extra "Sched.13x: " format 
(((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 
12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) (if (equal "" time) "" (format 
"%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " 
" ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[   
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo
  "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face 
org-scheduled-previously face org-scheduled-previously org-marker #<marker at 
377 in home.org> org-hd-marker #<marker at 340 in home.org> type 
"past-scheduled" ...)) #("  Home:       Sched.72x:  STARTED Router" 0 2 
(org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags 
nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil 
effort "" effort-minutes nil txt #("STARTED Router" 0 14 (org-heading t)) time 
"" extra "Sched.72x: " format (((org-prefix-has-time t) (org-prefix-has-tag 
nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp 
"\\(TODO\
 \|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[       
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 1789 in home.org> org-hd-marker 
#<marker at 1757 in home.org> type "past-scheduled" date 734687 ...) 2 6 
(fontified nil org-category #("Home" 0 4 (fontified nil org-category 
"Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 
time-of-day nil duration nil effort "" effort-minutes nil txt #("STARTED 
Router" 0 14 (org-heading t)) time "" extra 
 "Sched.72x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[        
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/h
 ome.org" undone-face org-scheduled-previously face org-scheduled-previously 
org-marker #<marker at 1789 in home.org> org-hd-marker #<marker at 1757 in 
home.org> type "past-scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified 
nil org-category "Acquisitions")) tags nil org-highest-priority 65 
org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes 
nil txt #("STARTED Router" 0 14 (org-heading t)) time "" extra "Sched.72x: " 
format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|
 
WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[       
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 1789 in home.org> org-hd-marker 
#<marker at 1757 in home.org> type "past-scheduled" date 734687 ...) 26 40 
(org-heading t org-category #("Home" 0 4 (fontified nil org-category 
"Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 
time-of-day nil duration nil effort "" effort-minutes nil txt #("STARTED 
Router" 0 14 (org-heading t)) time "" extra "Sched.72x: " format 
(((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-ca
 tegory-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format 
"%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format 
"%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" 
time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" 
(concat extra " " ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[      
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker
  #<marker at 1789 in home.org> org-hd-marker #<marker at 1757 in home.org> 
type "past-scheduled" ...)) #("  Home:       Sched.123x:  TODO Work on music DB 
[[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music DB (external 
link)]]" 0 2 (org-category #("Home" 0 4 (fontified nil org-category 
"Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 
time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Work on 
music DB [[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music DB 
(external link)]]" 0 101 (org-heading t)) time "" extra "Sched.123x: " format 
(((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 
12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) (if (equal "" time) "" (format 
"%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " 
" .
 ..))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[       
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 2320 in home.org> org-hd-marker 
#<marker at 2109 in home.org> type "past-scheduled" date 734636 ...) 2 6 
(fontified nil org-category #("Home" 0 4 (fontified nil org-category 
"Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 
time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO
  Work on music DB [[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music 
DB (external link)]]" 0 101 (org-heading t)) time "" extra "Sched.123x: " 
format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[       ]+\
 \(:[[:alnum:address@hidden:]+:\\)\\)?[         ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 2320 in home.org> org-hd-marker 
#<marker at 2109 in home.org> type "past-scheduled" ...) 6 27 (org-category 
#("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil 
org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil 
effort "" effort-minutes nil txt #("TODO Work on music DB 
[[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music DB (external 
link)]]" 0 101 (org-heading t)) time "" extra "Sched.123x: " format 
(((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 
12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) (if (equal "" time) "" 
 (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat 
extra " " ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[     
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 2320 in home.org> org-hd-marker 
#<marker at 2109 in home.org> type "past-scheduled" date 734636 ...) 27 128 
(org-heading t org-category #("Home" 0 4 (fontified nil org-category 
"Acquisitions")) tags nil org-highest-priority 65
  org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes 
nil txt #("TODO Work on music DB 
[[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music DB (external 
link)]]" 0 101 (org-heading t)) time "" extra "Sched.123x: " format 
(((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 
12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) (if (equal "" time) "" (format 
"%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " 
" ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED
 \\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: 
+\\(.*?\\)\\)??\\(?:[       ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       
]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET 
jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 2320 in home.org> org-hd-marker 
#<marker at 2109 in home.org> type "past-scheduled" ...)) #("  Home:       
Scheduled:  TODO Choir piece" 0 2 (org-category #("Home" 0 4 (fontified nil 
org-category "Acquisitions")) tags nil org-highest-priority 65 
org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes 
nil txt #("TODO Choir piece" 0 16 (org-heading t)) time "" extra "Scheduled: " 
format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "
 " (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... 
"" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) 
dotime time org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[       
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today 
org-marker #<marker at 3138 in home.org> org-hd-marker #<marker at 3104 in 
home.org> type "scheduled" date (9 12 2012) ...) 2 6 (fontified nil 
org-category #("Home" 0 4 (fontified nil org-category "Acquisi
 tions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 
nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece" 0 16 
(org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat 
category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat 
category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) 
(format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time 
org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" 
org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\
 (\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[    
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today 
org-marker #<marker at 3138 in home.org> org-hd-marker #<marker at 3104 in 
home.org> type "scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil 
org-category "Acquisitions")) tags nil org-highest-priority 65 
org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes 
nil txt #("TODO Choir piece" 0 16 (org-heading t)) time "" extra "Scheduled: " 
format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (eq
 ual extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[  
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today 
org-marker #<marker at 3138 in home.org> org-hd-marker #<marker at 3104 in 
home.org> type "scheduled" date (9 12 2012) ...) 26 42 (org-heading t 
org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil 
org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil 
effort "" e
 ffort-minutes nil txt #("TODO Choir piece" 0 16 (org-heading t)) time "" extra 
"Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[        
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-
 done mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today 
org-marker #<marker at 3138 in home.org> org-hd-marker #<marker at 3104 in 
home.org> type "scheduled" ...)) #("  Home:       Scheduled:  TODO Choir piece 
- upload to ftp site, print, braille for March 31, 2013" 0 2 (org-category 
#("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil 
org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil 
effort "" effort-minutes nil txt #("TODO Choir piece - upload to ftp site, 
print, braille for March 31, 2013" 0 72 (org-heading t)) time "" extra 
"Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" 
 (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat 
extra " " ...))))) dotime time org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[    
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today 
org-marker #<marker at 3471 in home.org> org-hd-marker #<marker at 3381 in 
home.org> type "scheduled" date (9 12 2012) ...) 2 6 (fontified nil 
org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil 
org-highest-priority 65 org-lowest-
 priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt 
#("TODO Choir piece - upload to ftp site, print, braille for March 31, 2013" 0 
72 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time 
t) (org-prefix-has-tag nil) (org-prefix-category-length 12) 
(org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) (if (equal "" time) "" (format 
"%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " 
" ...))))) dotime time org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[         
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today 
org-marker #<marker at 3471 in home.org> org-hd-marker #<marker at 3381 in 
home.org> type "scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil 
org-category "Acquisitions")) tags nil org-highest-priority 65 
org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes 
nil txt #("TODO Choir piece - upload to ftp site, print, braille for March 31, 
2013" 0 72 (org-heading t)) time "" extra "Scheduled: " format 
(((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 
12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) (if (equal "" time
 ) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" 
(concat extra " " ...))))) dotime time org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[       
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today 
org-marker #<marker at 3471 in home.org> org-hd-marker #<marker at 3381 in 
home.org> type "scheduled" date (9 12 2012) ...) 26 98 (org-heading t 
org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil 
org-highest-priority 65 org-
 lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil 
txt #("TODO Choir piece - upload to ftp site, print, braille for March 31, 
2013" 0 72 (org-heading t)) time "" extra "Scheduled: " format 
(((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 
12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) (if (equal "" time) "" (format 
"%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " 
" ...))))) dotime time org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)
 ?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[  
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today 
org-marker #<marker at 3471 in home.org> org-hd-marker #<marker at 3381 in 
home.org> type "scheduled" ...)) #("  Home:       Scheduled:  TODO Fix \"If ye 
love me\"" 0 2 (org-category #("Home" 0 4 (fontified nil org-category 
"Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 
time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Fix \"If 
ye love me\"" 0 24 (org-heading t)) time "" extra "Scheduled: " format 
(((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 
12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) 
 (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[     
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today 
org-marker #<marker at 4030 in home.org> org-hd-marker #<marker at 3988 in 
home.org> type "scheduled" date (9 12 2012) ...) 2 6 (fontified nil 
org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil 
org-highest-
 priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" 
effort-minutes nil txt #("TODO Fix \"If ye love me\"" 0 24 (org-heading t)) 
time "" extra "Scheduled: " format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat 
category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat 
category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) 
(format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time 
org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" 
org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?
 : +\\(.*?\\)\\)??\\(?:[        ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       
]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET 
jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face 
org-scheduled-today org-marker #<marker at 4030 in home.org> org-hd-marker 
#<marker at 3988 in home.org> type "scheduled" ...) 6 26 (org-category #("Home" 
0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 
65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes 
nil txt #("TODO Fix \"If ye love me\"" 0 24 (org-heading t)) time "" extra 
"Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra 
 "") "" (concat extra " " ...))))) dotime time org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[    
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today 
org-marker #<marker at 4030 in home.org> org-hd-marker #<marker at 3988 in 
home.org> type "scheduled" date (9 12 2012) ...) 26 50 (org-heading t 
org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil 
org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil 
effort "" effort-minu
 tes nil txt #("TODO Fix \"If ye love me\"" 0 24 (org-heading t)) time "" extra 
"Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) 
(org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s 
%s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" 
...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) 
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if 
(equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[        
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-
 done mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today 
org-marker #<marker at 4030 in home.org> org-hd-marker #<marker at 3988 in 
home.org> type "scheduled" ...)) #("  Home:       Scheduled:  TODO Gesu Bambino 
fixup" 0 2 (org-category #("Home" 0 4 (fontified nil org-category 
"Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 
time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Gesu 
Bambino fixup" 0 23 (org-heading t)) time "" extra "Scheduled: " format 
(((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 
12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) (if (equal "" time) "" (format 
"%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " 
" ...))))) 
 dotime time org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[      
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today 
org-marker #<marker at 4299 in home.org> org-hd-marker #<marker at 4258 in 
home.org> type "scheduled" date (9 12 2012) ...) 2 6 (fontified nil 
org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil 
org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil 
effort "" effort-minutes nil txt #("TODO Gesu Bambino fix
 up" 0 23 (org-heading t)) time "" extra "Scheduled: " format 
(((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 
12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) (if (equal "" time) "" (format 
"%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " 
" ...))))) dotime time org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[       
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mo
 use-2 or RET jump to org file ~/lib/org/home.org" undone-face 
org-scheduled-today face org-scheduled-today org-marker #<marker at 4299 in 
home.org> org-hd-marker #<marker at 4258 in home.org> type "scheduled" ...) 6 
26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags 
nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil 
effort "" effort-minutes nil txt #("TODO Gesu Bambino fixup" 0 23 (org-heading 
t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat 
category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat 
category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) 
(format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time 
org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" 
o
 rg-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[   
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today 
org-marker #<marker at 4299 in home.org> org-hd-marker #<marker at 4258 in 
home.org> type "scheduled" date (9 12 2012) ...) 26 49 (org-heading t 
org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil 
org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil 
effort "" effort-minutes nil txt #("TODO Gesu Bambino fixup" 0 23 (org-heading 
t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org
 -prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat 
category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat 
category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) 
(format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time 
org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" 
org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[  
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-today face org-
 scheduled-today org-marker #<marker at 4299 in home.org> org-hd-marker 
#<marker at 4258 in home.org> type "scheduled" ...)) #("  Finance:    
Sched.10x:  TODO 1st                                    :foo:" 0 2 
(org-category #("Finance" 0 7 (fontified nil org-category #("Home" 0 4 
(fontified nil org-category #("Home" 0 4 ...) org-category-position 118)) 
org-category-position 15281)) tags ("foo") org-highest-priority 65 
org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes 
nil txt #("TODO 1st                                    :foo:" 0 49 (org-heading 
t)) time "" extra "Sched.10x: " format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat 
category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat 
category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) 
(format "%s" (if (equal extra "") "
 " (concat extra " " ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[  
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 21618 in home.org> 
org-hd-marker #<marker at 21571 in home.org> type "past-scheduled" date 734749 
...) 2 9 (fontified nil org-category #("Finance" 0 7 (fontified nil 
org-category #("Home" 0 4 (fontified nil org-category #("Home" 0 4 ...) 
org-category-position 118)) org-category-position 15281))
  org-category-position 15281 tags ("foo") org-highest-priority 65 
org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes 
nil txt #("TODO 1st                                    :foo:" 0 49 (org-heading 
t)) time "" extra "Sched.10x: " format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat 
category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat 
category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) 
(format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil 
org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" 
org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TOD
 O\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: 
+\\(.*?\\)\\)??\\(?:[    ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" 
done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump 
to org file ~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 21618 in home.org> 
org-hd-marker #<marker at 21571 in home.org> ...) 9 26 (org-category 
#("Finance" 0 7 (fontified nil org-category #("Home" 0 4 (fontified nil 
org-category #("Home" 0 4 ...) org-category-position 118)) 
org-category-position 15281)) tags ("foo") org-highest-priority 65 
org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes 
nil txt #("TODO 1st                                    :foo:" 0 49 (org-heading 
t)) time "" extra "Sched.10x: " format (((org-prefix-has-time t) 
(org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort 
nil)) (format " %s %s%s%s" (format "%s" (if (equal category-i
 con "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category 
"") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if 
... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) 
dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)"
 org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[    
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 21618 in home.org> 
org-hd-marker #<marker at 21571 in home.org> type "past-scheduled" dat
 e 734749 ...) 26 75 (org-heading t org-category #("Finance" 0 7 (fontified nil 
org-category #("Home" 0 4 (fontified nil org-category #("Home" 0 4 ...) 
org-category-position 118)) org-category-position 15281)) tags ("foo") 
org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil 
effort "" effort-minutes nil txt #("TODO 1st                                    
:foo:" 0 49 (org-heading t)) time "" extra "Sched.10x: " format 
(((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 
12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal 
category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal 
category "") "" (concat category ":" ...))) (if (equal "" time) "" (format 
"%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " 
" ...))))) dotime nil org-not-done-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp 
"\\(TODO\\|STARTED\\|WAITING\\|DONE\\|
 CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" 
org-complex-heading-regexp "^\\(\\*+\\)\\(?: 
+\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[        
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?[       ]*$" done-face org-agenda-done 
mouse-face highlight help-echo "mouse-2 or RET jump to org file 
~/lib/org/home.org" undone-face org-scheduled-previously face 
org-scheduled-previously org-marker #<marker at 21618 in home.org> 
org-hd-marker #<marker at 21571 in home.org> type "past-scheduled" ...))) 30 t)
  (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp))
  (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)) (setq rtnall (org-agenda-add-time-grid-maybe 
rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) 
"\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)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays 
todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\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 ((memq 
org-agenda-show-log-scoped (quote ...)) (setq rtn (org-agenda-get-day-entries 
file date :closed))) (org-agenda-show-log-scoped (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)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays 
todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\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)) 
(org-agenda-show-log-scoped org-agenda-show-log) 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) arg) 
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-number
 s) clocktable-end (1+ (or (org-last day-numbers) 0))) (org-set-local (quote 
org-starting-day) (car day-numbers)) (org-set-local (quote org-arg-loc) arg) 
(org-set-local (quote org-agenda-current-span) (org-agenda-ndays-to-span span)) 
(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 ((memq org-agenda-show-log-scoped ...) (setq 
rtn ...)) (org-agenda-show-log-scoped (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-prop
 erty 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)) (setq rtnall (org-agenda-add-time-grid-maybe 
rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) 
"\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-tag-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-agenda-fit-window-to-buffer)) 
(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) (\` (org-agenda-type agenda org-last-args ((\, arg) (\, start-day) 
(\, span)) org-redo-cmd (\, org-agenda-redo-command) org-serie-cmd (\, 
org-cmd)))) (if (eq org-agenda-show-log-scoped (quote clockcheck)) 
(org-agenda-show-clocking-issues)) (org-agenda-finalize) (setq buffer-read-only 
t) (message ""))
  (catch (quote exit) (setq org-agenda-buffer-name (or 
org-agenda-buffer-tmp-name (if org-agenda-sticky (cond ((and org-keys (stringp 
org-match)) (format "*Org Agenda(%s:%s)*" org-keys org-match)) (org-keys 
(format "*Org Agenda(%s)*" org-keys)) (t "*Org Agenda(a)*"))) 
org-agenda-buffer-name)) (org-agenda-prepare "Day/Week") (setq start-day (or 
start-day org-agenda-start-day)) (if (stringp start-day) (setq start-day 
(time-to-days (org-read-date nil t start-day)))) (org-compile-prefix-format 
(quote agenda)) (org-set-sorting-strategy (quote agenda)) (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 ...) (n1 org-agenda-start-on-weekday) (d ...)
 ) (- sd (+ ... d))))) (day-numbers (list start)) (day-cnt 0) 
(inhibit-redisplay (not debug-on-error)) (org-agenda-show-log-scoped 
org-agenda-show-log) 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) arg) 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-set-local 
(quote org-starting-day) (car day-numbers)) (org-set-local (quote org-arg-loc) 
arg) (org-set-local (quote org-agenda-current-span) (org-agenda-ndays-to-span 
span)) (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 (< ... 350) (if ... ... 
...) "") ":\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 ...)) (cond (... ...) (org-agenda-show-log-scoped ...) 
(t ...))) (setq rtnall (append rtnall rtn)))) (if org-agenda-include-diary (let 
((org-agenda-search-headline-for-time t)) (require (quo
 te 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 ...) (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- ...) (quote 
org-today) t)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays 
todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\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-tag-filter-while-redo ...))) (setq p (plist-put p :tags (mapconcat 
... filter "")))) (setq tbl (apply (quote org-get-clocktable) p)) (insert 
tbl))) (goto-char (point-min)) (or org-agenda-multi 
(org-agenda-fit-window-to-buffer)) (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) (\` (org-agenda-type 
agenda org-last-args ((\, arg) (\, start-day) (\, span)) org-redo-cmd (\, org
 -agenda-redo-command) org-serie-cmd (\, org-cmd)))) (if (eq 
org-agenda-show-log-scoped (quote clockcheck)) 
(org-agenda-show-clocking-issues)) (org-agenda-finalize) (setq buffer-read-only 
t) (message "")))
  org-agenda-list()
  (let ((org-agenda-window-setup (quote current-window))) (org-agenda-list))
  eval-buffer(#<buffer  *load*> nil "/home/nick/.emacs" nil t)  ; Reading at 
buffer position 13176
  load-with-code-conversion("/home/nick/.emacs" "/home/nick/.emacs" t t)
  load("~/.emacs" t t)
  #[0 "\205\262



reply via email to

[Prev in Thread] Current Thread [Next in Thread]