Re: bulk rescheduling change?

[Nick Dokos <nicholas.dokos@hp.com>]

Bastien <bzg@altern.org> wrote:

> Nick Dokos <nicholas.dokos@hp.com> 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:]_@#%:]+:\\)[ 	]*$") 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:]_@#%:]+:\\)[ 	]*$") 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:]_@#%:]+:\\)[ 	]*$") 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:]_@#%:]+:\\)[ 	]*$") 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 thecateg
 ory) 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-con
 tributing-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:]_@#%:]+:\\)[ 	]*$") 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:]_@#%:]+:\\)[ 	]*$") 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-priorit
 y (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 (derive
 d-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:]_@#%:]+:\\)[ 	]*$") 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 (downcas
 e 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:]_@#%:]+:\\)[ 	]*$") 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-forma
 t-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 ... "" ...))) (for
 mat "%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:]_@#%:]+:\\)\\)?[ 	]*$" 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-c
 ategory #("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:]_@#%:]+:\\)\\)?[ 	]*$" mouse-face high
 light 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:]_@#%:]+:\\)\\)?[ 	]*$" 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 (fontif
 ied 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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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-pos
 ition 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:]_@#%:]+:\\)\\)?[ 	]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priorit
 y 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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker #<mark
 er 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-cat
 egory #("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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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 "Wea
 ther")) 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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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-mar
 ker #<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-mar
 ker #<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-categor
 y-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> d
 ate (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-ca
 lendar-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 ni
 l)) (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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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 22
 5 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\\|CANCELL
 ED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\
 (?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" 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" (f
 ormat "%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:]_@#%:]+:\\)\\)?[ 	]*$" 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.or
 g> 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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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 ho
 me.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:
 ]_@#%:]+:\\)\\)?[ 	]*$" 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 "" ...))) (f
 ormat "%-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:]_@#%:]+:\\)\\)?[ 	]*$" 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\\|ST
 ARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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 ... "" ...))) (f
 ormat "%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:]_@#%:]+:\\)\\)?[ 	]*$" 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 n
 il 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:]_@#%:]+:\\)\\)?[ 	]*
 $" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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-ca
 tegory #("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-reg
 exp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\
 \(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" 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)) (f
 ormat " %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:]_@#%:]+:\\)\\)?[ 	]*$" 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 #<ma
 rker 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\\|C
 ANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED
 \\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" 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-prefi
 x-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:]_@#%:]+:\\)\\)?[ 	]*$" 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 #<ma
 rker 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\\|WAITIN
 G\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\
 (\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" 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-ic
 on "") "" (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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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)) (f
 ormat " %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:]_@#%:]+:\\)\\)?[ 	]*$" 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 3
 381 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\\|WAI
 TING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: 
 +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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\\|STARTE
 D\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)
 ?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" 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-pre
 fix-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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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 (o
 rg-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:]_@#%:]+:\\)\\)?[ 	]*$" 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 "" ...))) (f
 ormat "%-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:]_@#%:]+:\\)\\)?[ 	]*$" 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\\|STARTE
 D\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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 "") "" (conc
 at 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:]_@#%:]+:\\)\\)?[ 	]*$" 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:]_@#%:]+:\\)\\)?[ 	]*$" 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 "" extr
 a "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:]_@#%:]+:\\)\\)?[ 	]*$" 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 (e
 qual 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:]_@#%:]+:\\)\\)?[ 	]*$" 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) (quot
 e 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 clo
 ckcheck)) (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 "\b\205\262