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