From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nick Dokos Subject: Re: bulk rescheduling change? Date: Wed, 12 Sep 2012 12:25:06 -0400 Message-ID: <9459.1347467106@alphaville> References: <87mx0vi81a.fsf@altern.org> <8103.1347464053@alphaville> <8419.1347464859@alphaville> <87ligfxlk1.fsf@altern.org> Reply-To: nicholas.dokos@hp.com Return-path: Received: from eggs.gnu.org ([208.118.235.92]:53750) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TBpko-00085D-E3 for emacs-orgmode@gnu.org; Wed, 12 Sep 2012 12:25:46 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TBpkV-0004kS-F4 for emacs-orgmode@gnu.org; Wed, 12 Sep 2012 12:25:30 -0400 Received: from g6t0184.atlanta.hp.com ([15.193.32.61]:20935) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TBpkV-0004jM-2V for emacs-orgmode@gnu.org; Wed, 12 Sep 2012 12:25:11 -0400 In-Reply-To: Message from Bastien of "Wed, 12 Sep 2012 18:17:34 +0200." <87ligfxlk1.fsf@altern.org> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Bastien Cc: emacs-orgmode@gnu.org, Greg Troxel Bastien wrote: > Nick Dokos writes: > > > ... and after going back to before Nicolas's last four commits, I get > > the attached backtrace in org-agenda-list: > > > > Debugger entered--Lisp error: (wrong-type-argument wholenump -1) > > make-string(-1 32) > > This is hopefully fixed now. > > Thanks for testing, > > -- > Bastien > Not quite: I now get the following backtrace. Thanks, Nick Debugger entered--Lisp error: (wrong-type-argument buffer-or-string-p 48) get-text-property(0 inherited 48) (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i (get-text-property 0 (quote inherited) x)) (if (and have-i (not i)) (progn (setq have-i nil) (concat ":" x)) x)) tags ":") (if have-i "::" ":")))) (progn (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i (get-text-property 0 ... x)) (if (and have-i ...) (progn ... ...) x)) tags ":") (if have-i "::" ":"))))) (if tags (progn (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i ...) (if ... ... x)) tags ":") (if have-i "::" ":")))))) (when tags (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i (get-text-property 0 ... x)) (if (and have-i ...) (progn ... ...) x)) tags ":") (if have-i "::" ":"))))) (progn (if (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (setq txt (substring txt 0 (match-beginning 0)))) (setq tags (delq nil (mapcar (lambda (tg) (if (or (and hide-re ...) (and ... ...)) nil tg)) tags))) (when tags (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i ...) (if ... ... x)) tags ":") (if have-i "::" ":")))))) (if (or add-inherited hide-re) (progn (if (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (setq txt (substring txt 0 (match-beginning 0)))) (setq tags (delq nil (mapcar (lambda (tg) (if (or ... ...) nil tg)) tags))) (when tags (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda ... ... ...) tags ":") (if have-i "::" ":"))))))) (when (or add-inherited hide-re) (if (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (setq txt (substring txt 0 (match-beginning 0)))) (setq tags (delq nil (mapcar (lambda (tg) (if (or (and hide-re ...) (and ... ...)) nil tg)) tags))) (when tags (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i ...) (if ... ... x)) tags ":") (if have-i "::" ":")))))) org-agenda-fix-displayed-tags("----------------" "08:00" t nil) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (progn (setq txt (org-trim txt)) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* ((category (or category (if (stringp org-category) org-category (and org-category (symbol-name org-category))) (if buffer-file-name (file-name-sans-extension (file-name-nondirectory buffer-file-name)) ""))) (category-icon (org-agenda-get-category-icon category)) (category-icon (if category-icon (propertize " " (quote display) category-icon) "")) (tag (if tags (nth (1- (length tags)) tags) "")) time effort neffort (ts (if dotime (concat (if (stringp dotime) dotime "") (and org-agenda-search-headline-for-time txt)))) (time-of-day (and dotime (org-get-time-of-day ts))) stamp plain s0 s1 s2 rtn srp l duration thecategory) (and (derived-mode-p ( quote org-mode)) buffer-file-name (add-to-list (quote org-agenda-contributing-files) buffer-file-name)) (when (and dotime time-of-day) (when (or (setq stamp (string-match org-stamp-time-of-d ay-regexp ts)) (setq plain (string-match org-plain-time-of-day-regexp ts))) (setq s0 (match-string 0 ts) srp (and stamp (match-end 3)) s1 (match-string (if plain 1 2) ts) s2 (match-string (if plain 8 (if srp 4 6)) ts)) (if (and org-prefix-has-time org-agenda-remove-times-when-in-prefix (or stamp plain) (string-match (concat ... " *") txt) (not (equal 93 ...)) (if (eq org-agenda-remove-times-when-in-prefix ...) (= ... 0) t)) (setq txt (replace-match "" nil nil txt)))) (if s1 (setq s1 (org-get-time-of-day s1 (quote string) t))) (if s2 (setq s2 (org-get-time-of-day s2 (quote string) t))) (when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 (org-minutes-to-hh:mm-string (+ (org-hh:mm-string-to-minutes s1) org-agenda-default-appointment-duration)))) (when s2 (setq duration ( - (org-hh:mm-string-to-minutes s2) (org-hh:mm-string-to-minutes s1))))) (when (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (if (or (eq org-agenda-remove-tags t) ( and org-agenda-remove-tags org-prefix-has-tag)) (setq txt (replace-match "" t t txt)) (setq txt (replace-match (concat (make-string ... 32) (match-string 2 txt)) t t txt)))) (when (derived-mode-p (quote org-mode)) (setq effort (condition-case nil (org-get-effort (or (get-text-property 0 ... txt) (get-text-property 0 ... txt))) (error nil))) (when effort (setq neffort (org-duration-string-to-minutes effort) effort (setq effort (concat "[" effort "]"))))) (or effort (setq effort "")) (when remove-re (while (string-match remove-re txt) (setq txt (replace-match "" t t txt)))) (add-text-properties 0 (length txt) (quote (org-heading t)) txt) (setq time (cond (s2 (concat (org-agenda-time-of-day-to-ampm-maybe s1) "-" (org-agenda-time-of-day-to-ampm-maybe s2) (if org-agenda-timegrid-use-ampm " ")) ) (s1 (concat (org-agenda-time-of-day-to-ampm-maybe s1) (if org-agenda-timegrid-use-ampm "........ " "......"))) (t "")) extra (or (and (not habitp) extra) "") category (if (symbolp category ) (symbol-name category) category) thecategory (copy-sequence category)) (if (string-match org-bracket-link-regexp category) (progn (setq l (if (match-end 3) (- (match-end 3) (match-beginning 3)) (- (match-end 1) (match-beginning 1)))) (when (< l (or org-prefix-category-length 0)) (setq category (copy-sequence category)) (org-add-props category nil (quote extra-space) (make-string (- org-prefix-category-length l 1) 32)))) (if (and org-prefix-category-max-length (>= (length category) org-prefix-category-max-length)) (setq category (substring category 0 (1- org-prefix-category-max-length))))) (setq rtn (concat (eval formatter) txt)) (remove-text-properties 0 (length rtn) (quote (line-prefix t wrap-prefix t)) rtn) (org-add-props rtn nil (quote org-category) (if thecategory (downcase thecateg ory) category) (quote tags) (mapcar (quote org-downcase-keep-props) tags) (quote org-highest-priority) org-highest-priority (quote org-lowest-priority) org-lowest-priority (quote time-of-day ) time-of-day (quote duration) duration (quote effort) effort (quote effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra (quote format) org-prefix-format-compiled (quote dotime) dotime))) (unwind-protect (progn (setq txt (org-trim txt)) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* ((category (or category (if (stringp org-category) org-category (and org-category ...)) (if buffer-file-name (file-name-sans-extension ...) ""))) (category-icon (org-agenda-get-category-icon category)) (category-icon (if category-icon (propertize " " (quote display) category-icon) "")) (tag (if tags (nth (1- ...) tags) "")) time effort neffort (ts (if dotime (concat (if ... dotime "") (and org-agenda-search-headline-for-time txt)))) (time-of-day (and dotime (org-get-time-of-day ts))) stamp plain s0 s1 s2 rtn srp l duration thecategory) (and (derived-mode-p (quote org-mode)) buffer-file-name (add-to-list (quote org-agenda-con tributing-files) buffer-file-name)) (when (and dotime time-of-day) (when (or (setq stamp (string-match org-stamp-time-of-day-regexp ts)) (setq plain (string-match org-plain-time-of-day-regex p ts))) (setq s0 (match-string 0 ts) srp (and stamp (match-end 3)) s1 (match-string (if plain 1 2) ts) s2 (match-string (if plain 8 ...) ts)) (if (and org-prefix-has-time org-agenda-remove-times-when-in-prefix (or stamp plain) (string-match ... txt) (not ...) (if ... ... t)) (setq txt (replace-match "" nil nil txt)))) (if s1 (setq s1 (org-get-time-of-day s1 (quote string) t))) (if s2 (setq s2 (org-get-time-of-day s2 (quote string) t))) (when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 (org-minutes-to-hh:mm-string (+ ... org-agenda-default-appointment-duration)))) (when s2 (setq duration (- (org-hh:mm-string-to-minutes s2) (org-hh:mm-string-to-minutes s1))))) (when (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (if (or (eq org-agenda-remove- tags t) (and org-agenda-remove-tags org-prefix-has-tag)) (setq txt (replace-match "" t t txt)) (setq txt (replace-match (concat ... ...) t t txt)))) (when (derived-mode-p (quote org-mode)) ( setq effort (condition-case nil (org-get-effort (or ... ...)) (error nil))) (when effort (setq neffort (org-duration-string-to-minutes effort) effort (setq effort (concat "[" effort "]"))))) (or effort (setq effort "")) (when remove-re (while (string-match remove-re txt) (setq txt (replace-match "" t t txt)))) (add-text-properties 0 (length txt) (quote (org-heading t)) txt) (setq time (cond (s2 (concat (org-agenda-time-of-day-to-ampm-maybe s1) "-" (org-agenda-time-of-day-to-ampm-maybe s2) (if org-agenda-timegrid-use-ampm " "))) (s1 (concat (org-agenda-time-of-day-to-ampm-maybe s1) (if org-agenda-timegrid-use-ampm "........ " "......"))) (t "")) extra (or (and (not habitp) extra) "") category (if (symbolp category) (symbol-name category) category) thecategory (copy-sequence category)) (if (string-match org-bracket-link-regexp category) (progn (setq l (if (match-end 3) (- ... ...) (- ... ...))) (when (< l (or org-prefix-category-length 0)) (setq category (copy-sequence categor y)) (org-add-props category nil (quote extra-space) (make-string ... 32)))) (if (and org-prefix-category-max-length (>= (length category) org-prefix-category-max-length)) (setq category (substring category 0 (1- org-prefix-category-max-length))))) (setq rtn (concat (eval formatter) txt)) (remove-text-properties 0 (length rtn) (quote (line-prefix t wrap-prefix t)) rtn) (org-add-props rtn nil (quote org-category) (if thecategory (downcase thecategory) category) (quote tags) (mapcar (quote org-downcase-keep-props) tags) (quote org-highest-priority) org-highest-priority (quote org-lowest-priority) org-lowest-priority (quote time-of-day) time-of-day (quote duration) duration (quote effort) effort (quote effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra (quote format ) org-prefix-format-compiled (quote dotime) dotime))) (set-match-data save-match-data-internal (quote evaporate))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (setq txt (org-trim txt)) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* ((category (or category (if ... org-category ...) (if buffer-file-name ... ""))) (category-icon (org-agenda-get-category-icon category)) (category-icon (if category-icon (propertize " " ... category-icon) "")) (tag (if tags (nth ... tags) "")) time effort neffort (ts (if dotime (concat ... ...))) (time-of-day (and dotime (org-get-time-of-day ts))) stamp plain s0 s1 s2 rtn srp l duration thecategory) (and (derived-mode-p (quote org-mode)) buffer-file-name (add-to-list (quote org-agenda-contributing-files) buffer-file-name)) (when (and dotime time-of-day) (when (or (setq stamp ... ) (setq plain ...)) (setq s0 (match-string 0 ts) srp (and stamp ...) s1 (match-string ... ts) s2 (match-string ... ts)) (if (and org-prefix-has-time org-agenda-remove-times-when-in-prefix .. . ... ... ...) (setq txt ...))) (if s1 (setq s1 (org-get-time-of-day s1 ... t))) (if s2 (setq s2 (org-get-time-of-day s2 ... t))) (when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 (org-minutes-to-hh:mm-string ...))) (when s2 (setq duration (- ... ...)))) (when (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (if (or (eq org-agenda-remove-tags t) (and org-agenda-remove-tags org-prefix-has-tag)) (setq txt (replace-match "" t t txt)) (setq txt (replace-match ... t t txt)))) (when (derived-mode-p (quote org-mode)) (setq effort (condition-case nil (org-get-effort ...) (error nil))) (when effort (setq neffort (org-duration-string-to-minutes effort) effort (setq effort ...)))) (or effort (setq effort "")) (when remove-re (while (string-match remove- re txt) (setq txt (replace-match "" t t txt)))) (add-text-properties 0 (length txt) (quote (org-heading t)) txt) (setq time (cond (s2 (concat ... "-" ... ...)) (s1 (concat ... ...)) (t "")) extra (or (and (not habitp) extra) "") category (if (symbolp category) (symbol-name category) category) thecategory (copy-sequence category)) (if (string-match org-bracket-link-regexp category) (progn (setq l (if ... ... ...)) (when (< l ...) (setq category ...) (org-add-props category nil ... ...))) (if (and org-prefix-category-max-length (>= ... org-prefix-category-max-length)) (setq category (substring category 0 ...)))) (setq rtn (concat (eval formatter) txt)) (remove-text-properties 0 (length rtn) (quote (line-prefix t wrap-prefix t)) rtn) (org-add-props rtn nil (quote org-category) (if thecategory (downcase thecategory) category) (quote tags) (mapcar (quote org-downcase-keep-props) tags) (quote org-highest-priority) org-highest-priority (quote org-lowest-priority) org-lowest-priorit y (quote time-of-day) time-of-day (quote duration) duration (quote effort) effort (quote effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra (quote format) org-pref ix-format-compiled (quote dotime) dotime))) (set-match-data save-match-data-internal (quote evaporate)))) (save-match-data (setq txt (org-trim txt)) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* ((category (or category (if (stringp org-category) org-category (and org-category (symbol-name org-category))) (if buffer-file-name (file-name-sans-extension (file-name-nondirectory buffer-file-name)) ""))) (category-icon (org-agenda-get-category-icon category)) (category-icon (if category-icon (propertize " " (quote display) category-icon) "")) (tag (if tags (nth (1- (length tags)) tags) "")) time effort neffort (ts (if dotime (concat (if (stringp dotime) dotime "") (and org-agenda-search-headline-for-time txt)))) (time-of-day (and dotime (org-get-time-of-day ts))) stamp plain s0 s1 s2 rtn srp l duration thecategory) (and (derive d-mode-p (quote org-mode)) buffer-file-name (add-to-list (quote org-agenda-contributing-files) buffer-file-name)) (when (and dotime time-of-day) (when (or (setq stamp (string-match org-stamp -time-of-day-regexp ts)) (setq plain (string-match org-plain-time-of-day-regexp ts))) (setq s0 (match-string 0 ts) srp (and stamp (match-end 3)) s1 (match-string (if plain 1 2) ts) s2 (match-string (if plain 8 (if srp 4 6)) ts)) (if (and org-prefix-has-time org-agenda-remove-times-when-in-prefix (or stamp plain) (string-match (concat ... " *") txt) (not (equal 93 ...)) (if (eq org-agenda-remove-times-when-in-prefix ...) (= ... 0) t)) (setq txt (replace-match "" nil nil txt)))) (if s1 (setq s1 (org-get-time-of-day s1 (quote string) t))) (if s2 (setq s2 (org-get-time-of-day s2 (quote string) t))) (when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 (org-minutes-to-hh:mm-string (+ (org-hh:mm-string-to-minutes s1) org-agenda-default-appointment-duration)))) (when s2 (setq duration (- (org-hh:mm-string-to-minutes s2) (org-hh:mm-string-to-minutes s1))))) (when (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (if (or (eq org-agenda-remove -tags t) (and org-agenda-remove-tags org-prefix-has-tag)) (setq txt (replace-match "" t t txt)) (setq txt (replace-match (concat (make-string ... 32) (match-string 2 txt)) t t txt)))) (when (derived-mode-p (quote org-mode)) (setq effort (condition-case nil (org-get-effort (or (get-text-property 0 ... txt) (get-text-property 0 ... txt))) (error nil))) (when effort (setq neffort (org-duration-string-to-minutes effort) effort (setq effort (concat "[" effort "]"))))) (or effort (setq effort "")) (when remove-re (while (string-match remove-re txt) (setq txt (replace-match "" t t txt)))) (add-text-properties 0 (length txt) (quote (org-heading t)) txt) (setq time (cond (s2 (concat (org-agenda-time-of-day-to-ampm-maybe s1) "-" (org-agenda-time-of-day-to-ampm-maybe s2) (if org-agenda-timegrid-use- ampm " "))) (s1 (concat (org-agenda-time-of-day-to-ampm-maybe s1) (if org-agenda-timegrid-use-ampm "........ " "......"))) (t "")) extra (or (and (not habitp) extra) "") category (if (symbol p category) (symbol-name category) category) thecategory (copy-sequence category)) (if (string-match org-bracket-link-regexp category) (progn (setq l (if (match-end 3) (- (match-end 3) (match-beginning 3)) (- (match-end 1) (match-beginning 1)))) (when (< l (or org-prefix-category-length 0)) (setq category (copy-sequence category)) (org-add-props category nil (quote extra-space) (make-string (- org-prefix-category-length l 1) 32)))) (if (and org-prefix-category-max-length (>= (length category) org-prefix-category-max-length)) (setq category (substring category 0 (1- org-prefix-category-max-length))))) (setq rtn (concat (eval formatter) txt)) (remove-text-properties 0 (length rtn) (quote (line-prefix t wrap-prefix t)) rtn) (org-add-props rtn nil (quote org-category) (if thecategory (downcas e thecategory) category) (quote tags) (mapcar (quote org-downcase-keep-props) tags) (quote org-highest-priority) org-highest-priority (quote org-lowest-priority) org-lowest-priority (quote t ime-of-day) time-of-day (quote duration) duration (quote effort) effort (quote effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra (quote format) org-prefix-format-compiled (quote dotime) dotime))) (let* ((bindings (car org-prefix-format-compiled)) (formatter (cadr org-prefix-format-compiled))) (loop for (var value) in bindings do (set var value)) (save-match-data (setq txt (org-trim txt)) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* ((category (or category (if (stringp org-category) org-category (and org-category ...)) (if buffer-file-name (file-name-sans-extension ...) ""))) (category-icon (org-agenda-get-category-icon category)) (category-icon (if category-icon (propertize " " (quote display) category-icon) "")) (tag (if tags (nth (1- ...) tags) "")) time effort neffort (ts (if dotime (concat (if ... dotime "") (and org-agenda-search-headline-for-time txt)))) (time-of-day (and dotime (org-get-time-of-day ts) )) stamp plain s0 s1 s2 rtn srp l duration thecategory) (and (derived-mode-p (quote org-mode)) buffer-file-name (add-to-list (quote org-agenda-contributing-files) buffer-file-name)) (when (a nd dotime time-of-day) (when (or (setq stamp (string-match org-stamp-time-of-day-regexp ts)) (setq plain (string-match org-plain-time-of-day-regexp ts))) (setq s0 (match-string 0 ts) srp (and stamp (match-end 3)) s1 (match-string (if plain 1 2) ts) s2 (match-string (if plain 8 ...) ts)) (if (and org-prefix-has-time org-agenda-remove-times-when-in-prefix (or stamp plain) (string-match ... txt) (not ...) (if ... ... t)) (setq txt (replace-match "" nil nil txt)))) (if s1 (setq s1 (org-get-time-of-day s1 (quote string) t))) (if s2 (setq s2 (org-get-time-of-day s2 (quote string) t))) (when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 (org-minutes-to-hh:mm-string (+ ... org-agenda-default-appointment-duration)))) (when s2 (setq duration (- (org-hh:mm-string-to-minutes s2) (org-hh:mm-string-to-minutes s1))))) (when (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (if (or (eq org-agenda-remove-tags t) (and org-agenda-remove-tags org-pref ix-has-tag)) (setq txt (replace-match "" t t txt)) (setq txt (replace-match (concat ... ...) t t txt)))) (when (derived-mode-p (quote org-mode)) (setq effort (condition-case nil (org-get-effort (or ... ...)) (error nil))) (when effort (setq neffort (org-duration-string-to-minutes effort) effort (setq effort (concat "[" effort "]"))))) (or effort (setq effort "")) (when remove-re (while (string-match remove-re txt) (setq txt (replace-match "" t t txt)))) (add-text-properties 0 (length txt) (quote (org-heading t)) txt) (setq time (cond (s2 (concat (org-agenda-time-of-day-to-ampm-maybe s1) "-" (org-agenda-time-of-day-to-ampm-maybe s2) (if org-agenda-timegrid-use-ampm " "))) (s1 (concat (org-agenda-time-of-day-to-ampm-maybe s1) (if org-agenda-timegrid-use-ampm "........ " "......"))) (t "")) extra (or (and (not habitp) extra) "") category (if (symbolp category) (symbol-name category) category) thecategory (copy-sequence category)) (if (string-match org-bracket-link-regexp catego ry) (progn (setq l (if (match-end 3) (- ... ...) (- ... ...))) (when (< l (or org-prefix-category-length 0)) (setq category (copy-sequence category)) (org-add-props category nil (quote extra-space) (make-string ... 32)))) (if (and org-prefix-category-max-length (>= (length category) org-prefix-category-max-length)) (setq category (substring category 0 (1- org-prefix-category-max-length))))) (setq rtn (concat (eval formatter) txt)) (remove-text-properties 0 (length rtn) (quote (line-prefix t wrap-prefix t)) rtn) (org-add-props rtn nil (quote org-category) (if thecategory (downcase thecategory) category) (quote tags) (mapcar (quote org-downcase-keep-props) tags) (quote org-highest-priority) org-highest-priority (quote org-lowest-priority) org-lowest-priority (quote time-of-day) time-of-day (quote duration) duration (quote effort) effort (quote effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra (quote format) org-prefix-format-compiled (quote dotime) dotime)))) org-agenda-format-item(nil "----------------" "" nil "08:00") (cons (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new) (setq new (cons (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new)) (push (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new) (if (and remove (member time have)) nil (setq time (replace-regexp-in-string " " "0" (format "%04s" time))) (push (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new) (put-text-property 2 (length (car new)) (quote face) (quote org-time-grid) (car new))) (unless (and remove (member time have)) (setq time (replace-regexp-in-string " " "0" (format "%04s" time))) (push (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new) (put-text-property 2 (length (car new)) (quote face) (quote org-time-grid) (car new))) (while (setq time (pop gridtimes)) (unless (and remove (member time have)) (setq time (replace-regexp-in-string " " "0" (format "%04s" time))) (push (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new) (put-text-property 2 (length (car new)) (quote face) (quote org-time-grid) (car new)))) (let* ((have (delq nil (mapcar (lambda (x) (get-text-property 1 (quote time-of-day) x)) list))) (string (nth 1 org-agenda-time-grid)) (gridtimes (nth 2 org-agenda-time-grid)) (req (car org-agenda-time-grid)) (remove (member (quote remove-match) req)) new time) (if (and (member (quote require-timed) req) (not have)) (throw (quote exit) list)) (while (setq time (pop gridtimes)) (unless (and remove (member time have)) (setq time (replace-regexp-in-string " " "0" (format "%04s" time))) (push (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new) (put-text-property 2 (length (car new)) (quote face) (quote org-time-grid) (car new)))) (when (and todayp org-agenda-show-current-time-in-grid) (push (org-agenda-format-item nil org-agenda-current-time- string "" nil (format-time-string "%H:%M ")) new) (put-text-property 2 (length (car new)) (quote face) (quote org-agenda-current-time) (car new))) (if (member (quote time-up) org-agenda-sort ing-strategy-selected) (append new list) (append list new))) (catch (quote exit) (cond ((not org-agenda-use-time-grid) (throw (quote exit) list)) ((and todayp (member (quote today) (car org-agenda-time-grid)))) ((and (= ndays 1) (member (quote daily) (car org-agenda-time-grid)))) ((member (quote weekly) (car org-agenda-time-grid))) (t (throw (quote exit) list))) (let* ((have (delq nil (mapcar (lambda (x) (get-text-property 1 ... x)) list))) (string (nth 1 org-agenda-time-grid)) (gridtimes (nth 2 org-agenda-time-grid)) (req (car org-agenda-time-grid)) (remove (member (quote remove-match) req)) new time) (if (and (member (quote require-timed) req) (not have)) (throw (quote exit) list)) (while (setq time (pop gridtimes)) (unless (and remove (member time have)) (setq time (replace-regexp-in-string " " "0" (format "%04s" time))) (push (org-agenda-forma t-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new) (put-text-property 2 (length (car new)) (quote face) (quote org-time-grid) (car new)))) (when (and today p org-agenda-show-current-time-in-grid) (push (org-agenda-format-item nil org-agenda-current-time-string "" nil (format-time-string "%H:%M ")) new) (put-text-property 2 (length (car new)) (quote face) (quote org-agenda-current-time) (car new))) (if (member (quote time-up) org-agenda-sorting-strategy-selected) (append new list) (append list new)))) org-agenda-add-time-grid-maybe((#(" Appt: 19:00...... APPT Daily status " 0 2 (org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1900 duration nil effort "" effort-minutes nil txt #("APPT Daily status " 0 18 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time "19:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (for mat "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-05 Wed 19:00 +1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weathe r")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker # org-hd-marker # date (9 12 2012) level " " org-category-position 80 ...) 2 6 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1900 duration nil effort "" effort-minutes nil txt #("APPT Daily status " 0 18 (fontified nil org-c ategory #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time "19:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (o rg-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-05 Wed 19:00 +1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face high light help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker # org-hd-marker # date (9 12 2012) leve l " " ...) 6 26 (org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1900 duration nil effort "" effort-minutes nil txt #("APPT Daily status " 0 18 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time "19:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #( "<2012-09-05 Wed 19:00 +1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-rege xp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker # org-hd-marker # date (9 12 2012) level " " org-category-position 80 ...) 26 44 (org-heading t org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1900 duration nil effort "" effort-minutes nil txt #("APPT Daily status " 0 18 (fontified nil org-category #("Appt" 0 4 (fontif ied nil org-category "Weather")) org-category-position 80 org-heading t)) time "19:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12 ) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-05 Wed 19:00 +1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker # org-hd-marker # ...)) #(" Appt: 9:00...... APPT Thyroid m ed " 0 2 (org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 900 duration nil effort "" effort-minutes nil txt #("APPT Thyroid med " 0 17 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time " 9:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09- 11 Tue 09:00 +1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APP T\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker # org-hd-marker # date (9 12 2012) level " " org-category-position 80 ...) 2 6 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 900 duration nil effort "" effort-minutes nil txt #("APPT Thyroid med " 0 17 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-pos ition 80 org-heading t)) time " 9:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s% s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-11 Tue 09:00 +1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priorit y 1000 org-marker # org-hd-marker # date (9 12 2012) level " " ...) 6 26 (org-category #("Appt" 0 4 (fontified nil org-category " Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 900 duration nil effort "" effort-minutes nil txt #("APPT Thyroid med " 0 17 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time " 9:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-11 Tue 09:00 +1d>" 0 26 (org-category-position 80 org-category #( "Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex -heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker # org-hd-marker # date (9 12 2012) level " " org-category-position 80 ...) 26 43 (org-heading t org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 900 duration nil effort "" effort-minutes nil txt #("APPT Thyroid med " 0 17 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time " 9:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equ al category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-11 Tue 09:00 +1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker # org-hd-marker # ...)) #(" Appt: 16:00...... APPT Register laptops " 0 2 (org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1600 duration nil effort "" effort-minutes nil txt #("APPT Register laptops " 0 22 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time "16:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-07-16 Mon 16:00 +29d>" 0 27 (org-category-position 80 org-cat egory #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org -complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker # org-hd-marker # date (9 12 2012) level " " org-category-position 80 ...) 2 6 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1600 duration nil effort "" effort-minutes nil txt #("APPT Register laptops " 0 22 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time "16:00......" extra " " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (co ncat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-07-16 Mon 16:00 +29d>" 0 27 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker # org-hd-marker # date (9 12 2012) level " " ...) 6 26 (org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lo west-priority 67 time-of-day 1600 duration nil effort "" effort-minutes nil txt #("APPT Register laptops " 0 22 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time "16:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-07-16 Mon 16:00 +29d>" 0 27 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Wea ther")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\ \|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker # org-hd-marker # date (9 12 2012) level " " org-category-position 80 ...) 26 48 (org-heading t org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1600 duration nil effort "" effort-minutes nil txt #("APPT Register laptops " 0 22 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time "16:00......" extra "" format ( ((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat categ ory-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-07-16 Mon 16:00 +29d>" 0 27 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker # org-hd-mar ker # ...)) #(" Weather: 6:24...... Sunrise " 0 2 (org-category #("Weather" 0 7 (fontified nil org-category #("Anniv" 0 5 (fontified nil org-category #("Ho liday" 0 7 ...) org-category-position 36765)) org-category-position 36810)) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 624 duration nil effort "" effort-minutes nil txt #("Sunrise " 0 8 (org-heading t)) time " 6:24......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time face org-agenda-calendar-sexp mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" org-mar ker # 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 # 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 # 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 # date (9 12 2012) todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80)) org-category-position 36855 level " " type "sexp" warntime nil)) #(" Weather: 18:56...... Sunset " 0 2 (org-category #("Weather" 0 7 (fontified nil org-category #("Anniv" 0 5 (fontified nil org-category #("Holiday" 0 7 ...) org-category-position 36765)) org-categor y-position 36810)) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1856 duration nil effort "" effort-minutes nil txt #("Sunset " 0 7 (org-heading t)) time "18:56......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time face org-agenda-calendar-sexp mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" org-marker # 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 # d ate (9 12 2012) todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80)) level " " type "sexp" warntime nil) 9 26 ( org-category #("Weather" 0 7 (fontified nil org-category #("Anniv" 0 5 (fontified nil org-category #("Holiday" 0 7 ...) org-category-position 36765)) org-category-position 36810)) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1856 duration nil effort "" effort-minutes nil txt #("Sunset " 0 7 (org-heading t)) time "18:56......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time face org-agenda-ca lendar-sexp mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" org-marker # 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 # date (9 12 2012) todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80)) org-category-position 36855 level " " type "sexp" warntime nil)) #(" Home: Sched. 3x: TODO epoxy sony part - again" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO epoxy sony part - again" 0 28 (org-heading t)) time "" extra "Sched. 3x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort ni l)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" tim e) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" date 734756 ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 6 5 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO epoxy sony part - again" 0 28 (org-heading t)) time "" extra "Sched. 3x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org- complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*? \\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO epoxy sony part - again" 0 28 (org-heading t)) time "" extra "Sched. 3x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon " ") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" date 734756 ...) 26 54 (org-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort " " effort-minutes nil txt #("TODO epoxy sony part - again" 0 28 (org-heading t)) time "" extra "Sched. 3x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\| WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-fa ce org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" ...)) #(" Home: Sched.12x: TODO Backup src/music/choir/tape-transcriptions/2011-*" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Backup src/music/choir/tape-transcriptions/2011-*" 0 54 (org-heading t)) time "" extra "Sched.12x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " % s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format " %-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" date 734747 ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-pr iority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Backup src/music/choir/tape-transcriptions/2011-*" 0 54 (org-heading t)) time "" extra "Sched.12x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELL ED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\ (?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Backup src/music/choir/tape-transcriptions/2011-*" 0 54 (org-heading t)) time "" extra "Sched.12x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (f ormat "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if . .. "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" date 734747 ...) 26 80 (org-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Backup src/music/choir/tape-transcriptions/2011-*" 0 54 (org-heading t)) time "" extra "Sched.12x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org -complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.* ?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" ...)) #(" Home: Sched.13x: TODO update GPG key" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO update GPG key" 0 19 (org-heading t)) time "" extra "Sched.13x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s% s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" date 734746 ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO update GPG key" 0 19 (org-heading t)) time "" extra "Sched.13x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\* +\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum: ]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO update GPG key" 0 19 (org-heading t)) time "" extra "Sched.13x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (f ormat "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" date 734746 ...) 26 45 (org-heading t org-category # ("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO update GPG key" 0 19 (org-heading t)) time "" extra "Sched.13x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|ST ARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" ...)) #(" Home: Sched.72x: STARTED Router" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("STARTED Router" 0 14 (org-heading t)) time "" extra "Sched.72x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\ \|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" date 734687 ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("STARTED Router" 0 14 (org-heading t)) time "" extra "Sched.72x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(? : +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/h ome.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("STARTED Router" 0 14 (org-heading t)) time "" extra "Sched.72x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (f ormat "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\| WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" date 734687 ...) 26 40 (org-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day n il duration nil effort "" effort-minutes nil txt #("STARTED Router" 0 14 (org-heading t)) time "" extra "Sched.72x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-ca tegory-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]* $" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" ...)) #(" Home: Sched.123x: TODO Work on music DB [[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music DB (external link)]]" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Work on music DB [[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music DB (external link)]]" 0 101 (org-heading t)) time "" extra "Sched.123x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" . ..))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " . ..))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" date 734636 ...) 2 6 (fontified nil org-ca tegory #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Work on music DB [[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music DB (external link)]]" 0 101 (org-heading t)) time "" extra "Sched.123x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-reg exp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\ \(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" ...) 6 27 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Work on music DB [[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music DB (external link)]]" 0 101 (org-heading t)) time "" extra "Sched.123x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (f ormat " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" date 734636 ...) 27 128 (org-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Work on music DB [[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music DB (external link)]]" 0 101 (org-heading t)) time "" extra "Sched.123x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|C ANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED \\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" ...)) #(" Home: Scheduled: TODO Choir piece" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece" 0 16 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefi x-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") " " (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org-hd-marker # type "scheduled" date (9 12 2012) ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category "Acquisi tions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece" 0 16 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITIN G\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\ (\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org-hd-marker # type "scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece" 0 16 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-ic on "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (eq ual extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org-hd-marker # type "scheduled" date (9 12 2012) ... ) 26 42 (org-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" e ffort-minutes nil txt #("TODO Choir piece" 0 16 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE \\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda- done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org-hd-marker # type "scheduled" ...)) #(" Home: Scheduled: TODO Choir piece - upload to ftp site, print, braille for March 31, 2013" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece - upload to ftp site, print, braille for March 31, 2013" 0 72 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (f ormat " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org-hd-marker # type "scheduled" date (9 12 2012) ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest- priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece - upload to ftp site, print, braille for March 31, 2013" 0 72 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAI TING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org-hd-marker # type "scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece - upload to ftp site, print, braille for March 31, 2013" 0 72 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil )) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time ) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org-hd-marker # type "scheduled" date (9 12 2012) ...) 26 98 (org-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org- lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece - upload to ftp site, print, braille for March 31, 2013" 0 72 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTE D\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\) ?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org-hd-marker # type "scheduled" ...)) #(" Home: Scheduled: TODO Fix \"If ye love me\"" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Fix \"If ye love me\"" 0 24 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-pre fix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org- hd-marker # type "scheduled" date (9 12 2012) ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest- priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Fix \"If ye love me\"" 0 24 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED \\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(? : +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org-hd-marker # type "scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Fix \"If ye love me\"" 0 24 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org-hd-marker # type "scheduled" date (9 12 2012) ...) 26 50 (o rg-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minu tes nil txt #("TODO Fix \"If ye love me\"" 0 24 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE \\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda- done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org-hd-marker # type "scheduled" ...)) #(" Home: Scheduled: TODO Gesu Bambino fixup" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Gesu Bambino fixup" 0 23 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (f ormat "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org-hd-marker # type "scheduled" date (9 12 2012) ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Gesu Bambino fix up" 0 23 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTE D\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mo use-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org-hd-marker # type "scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Gesu Bambino fixup" 0 23 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" ( format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" o rg-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker # org-hd-marker # type "scheduled" date (9 12 2012) ...) 26 49 (org-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest -priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Gesu Bambino fixup" 0 23 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org -prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org- scheduled-today org-marker # org-hd-marker # type "scheduled" ...)) #(" Finance: Sched.10x: TODO 1st :foo:" 0 2 (org-category #("Finance" 0 7 (fontified nil org-category #("Home" 0 4 (fontified nil org-category #("Home" 0 4 ...) org-category-position 118)) org-category-position 15281)) tags ("foo") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO 1st :foo:" 0 49 (org-heading t)) time "" extra "Sched.10x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (conc at category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") " " (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" date 734749 ...) 2 9 (fontified nil org-category #("Finance" 0 7 (fontified nil org-category #("Home" 0 4 (fontified nil org-category #("Home" 0 4 ...) org-category-position 118)) org-category-position 15281)) org-category-position 15281 tags ("foo") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO 1st :foo:" 0 49 (org-heading t)) time "" extra "Sched.10x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING \\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TOD O\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # ...) 9 26 (org-category #("Finance" 0 7 (fontified nil org-category #("Home" 0 4 (fontified nil org-category #("Home" 0 4 ...) org-category-position 118)) org-category-position 15281)) tags ("foo") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO 1st :foo:" 0 49 (org-heading t)) time "" extr a "Sched.10x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-i con "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org /home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" dat e 734749 ...) 26 75 (org-heading t org-category #("Finance" 0 7 (fontified nil org-category #("Home" 0 4 (fontified nil org-category #("Home" 0 4 ...) org-category-position 118)) org-category-position 15281)) tags ("foo") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO 1st :foo:" 0 49 (org-heading t)) time "" extra "Sched.10x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (e qual extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\| CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker # org-hd-marker # type "past-scheduled" ...))) 30 t) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date (org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") (put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- (point)) (quote org-today) t)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt)) (if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date (org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") (put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- (point)) (quote org-today) t)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt))) (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos (point)))) (setq files thefiles rtnall nil) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (let ((org-agenda-entry-types org-agenda-entry-types)) (unless org-agenda-include-deadlines (setq org-agenda-entry-types (delq :deadline org-agenda-entry-types))) (cond ((memq org-agenda-show-log-scoped (quote ...)) (setq rtn (org-agenda-get-day-entries file date :closed))) (org-agenda-show-log-scoped (setq rtn (apply ... file date ...))) (t (setq rtn (apply ... file date org-agenda-entry-types))))) (setq rtnall (append rtnall rtn)))) (if org-agenda-include-diary (let ((org-agenda-search-headline-for-time t)) (require (quote diary-lib)) (setq rtn (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) (if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date (org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") (put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- (point)) (quote org-today) t)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote org- day-cnt) day-cnt)))) (let* ((span (org-agenda-ndays-to-span (or span org-agenda-ndays org-agenda-span))) (today (org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-ndays span sd)) (org-agenda-start-on-weekday (if (eq ndays 7) org-agenda-start-on-weekday)) (thefiles (org-agenda-files nil (quote ifmode))) (files thefiles) (start (if (or (null org-agenda-start-on-weekday) (< ndays 7)) sd (let* ((nt (calendar-day-of-week ...)) (n1 org-agenda-start-on-weekday) (d (- nt n1))) (- sd (+ (if ... 7 0) d))))) (day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (not debug-on-error)) (org-agenda-show-log-scoped org-agenda-show-log) s e rtn rtnall file date d start-pos end-pos todayp clocktable-start clocktable-end filter) (setq org-agenda-redo-command (list (quote org-agenda-list) (list (quote quote) arg) start-day (list (quote quote) span))) (dotimes (n (1- ndays)) (push (1+ (car day-numbers)) day-numbers)) (setq day-numbers (nreverse day-numbers)) (setq clocktable-start (car day-number s) clocktable-end (1+ (or (org-last day-numbers) 0))) (org-set-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote org-arg-loc) arg) (org-set-local (quote org-agenda-current-span) (org-agenda-ndays-to-span span)) (unless org-agenda-compact-blocks (let* ((d1 (car day-numbers)) (d2 (org-last day-numbers)) (w1 (org-days-to-iso-week d1)) (w2 (org-days-to-iso-week d2))) (setq s (point)) (if org-agenda-overriding-header (insert (org-add-props (copy-sequence org-agenda-overriding-header) nil (quote face) (quote org-agenda-structure)) "\n") (insert (org-agenda-span-name span) "-agenda" (if (< (- d2 d1) 350) (if (= w1 w2) (format " (W%02d)" w1) (format " (W%02d-W%02d)" w1 w2)) "") ":\n"))) (add-text-properties s (1- (point)) (list (quote face) (quote org-agenda-structure) (quot e org-date-line) t)) (org-agenda-mark-header-line s)) (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos (point)))) (setq files thefiles rtnall nil) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (let ((org-agenda-entry-types org-agenda-entry-types)) (unless org-agenda-include-deadlines (setq org-agenda-entry-types (delq :deadline org-agenda-entry-types))) (cond ((memq org-agenda-show-log-scoped ...) (setq rtn ...)) (org-agenda-show-log-scoped (setq rtn ...)) (t (setq rtn ...)))) (setq rtnall (append rtnall rtn)))) (if org-agenda-include-diary (let ((org-agenda-search-headline-for-time t)) (require (quote diary-lib)) (setq rtn (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) (if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1 + day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date (org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") (put-text-prop erty s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- (point)) (quote org-today) t)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt)))) (when (and org-agenda-clockreport-mode clocktable-start) (let ((org-agenda-files (org-agenda-files nil (quote ifmode))) (p (copy-sequence org-agenda-clockreport-parameter-plist)) tbl) (setq p (org-plist-delete p :block)) (setq p ( plist-put p :tstart clocktable-start)) (setq p (plist-put p :tend clocktable-end)) (setq p (plist-put p :scope (quote agenda))) (when (and (eq org-agenda-clockreport-mode (quote with-filter) ) (setq filter (or org-agenda-tag-filter-while-redo (get ... :preset-filter)))) (setq p (plist-put p :tags (mapconcat (lambda ... ...) filter "")))) (setq tbl (apply (quote org-get-clocktable) p)) (insert tbl))) (goto-char (point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) (unless (and (pos-visible-in-window-p (point-min)) (pos-visible-in-window-p (point-max))) (goto-char (1- (point-max))) (recenter -1) (if (not (pos-visible-in-window-p (or start-pos 1))) (progn (goto-char (or start-pos 1)) (recenter 1)))) (goto-char (or start-pos 1)) (add-text-properties (point-min) (point-max) (\` (org-agenda-type agenda org-last-args ((\, arg) (\, start-day) (\, span)) org-redo-cmd (\, org-agenda-redo-command) org-serie-cmd (\, org-cmd)))) (if (eq org-agenda-show-log-scoped (quote clo ckcheck)) (org-agenda-show-clocking-issues)) (org-agenda-finalize) (setq buffer-read-only t) (message "")) (catch (quote exit) (setq org-agenda-buffer-name (or org-agenda-buffer-tmp-name (if org-agenda-sticky (cond ((and org-keys (stringp org-match)) (format "*Org Agenda(%s:%s)*" org-keys org-match)) (org-keys (format "*Org Agenda(%s)*" org-keys)) (t "*Org Agenda(a)*"))) org-agenda-buffer-name)) (org-agenda-prepare "Day/Week") (setq start-day (or start-day org-agenda-start-day)) (if (stringp start-day) (setq start-day (time-to-days (org-read-date nil t start-day)))) (org-compile-prefix-format (quote agenda)) (org-set-sorting-strategy (quote agenda)) (let* ((span (org-agenda-ndays-to-span (or span org-agenda-ndays org-agenda-span))) (today (org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-ndays span sd)) (org-agenda-start-on-weekday (if (eq ndays 7) org-agenda-start-on-weekday) ) (thefiles (org-agenda-files nil (quote ifmode))) (files thefiles) (start (if (or (null org-agenda-start-on-weekday) (< ndays 7)) sd (let* ((nt ...) (n1 org-agenda-start-on-weekday) (d ...) ) (- sd (+ ... d))))) (day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (not debug-on-error)) (org-agenda-show-log-scoped org-agenda-show-log) s e rtn rtnall file date d start-pos end-pos todayp clocktable-start clocktable-end filter) (setq org-agenda-redo-command (list (quote org-agenda-list) (list (quote quote) arg) start-day (list (quote quote) span))) (dotimes (n (1- ndays)) (push (1+ (car day-numbers)) day-numbers)) (setq day-numbers (nreverse day-numbers)) (setq clocktable-start (car day-numbers) clocktable-end (1+ (or (org-last day-numbers) 0))) (org-set-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote org-arg-loc) arg) (org-set-local (quote org-agenda-current-span) (org-agenda-ndays-to-span span)) (unless org-agenda-compact-blocks (let* ((d1 (car day -numbers)) (d2 (org-last day-numbers)) (w1 (org-days-to-iso-week d1)) (w2 (org-days-to-iso-week d2))) (setq s (point)) (if org-agenda-overriding-header (insert (org-add-props (copy-sequence org-agenda-overriding-header) nil (quote face) (quote org-agenda-structure)) "\n") (insert (org-agenda-span-name span) "-agenda" (if (< ... 350) (if ... ... ...) "") ":\n"))) (add-text-properties s (1- (point)) (list (quote face) (quote org-agenda-structure) (quote org-date-line) t)) (org-agenda-mark-header-line s)) (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos (point)))) (setq files thefiles rtnall nil) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (let ((org-agenda-entry-types org-agenda-entry-types)) (unless org-agenda-include-deadlines (setq org-agenda-entry-types ...)) (cond (... ...) (org-agenda-show-log-scoped ...) (t ...))) (setq rtnall (append rtnall rtn)))) (if org-agenda-include-diary (let ((org-agenda-search-headline-for-time t)) (require (quo te diary-lib)) (setq rtn (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) (if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date ...) (funcall org-agenda-format-date date)) "\n") (put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- ...) (quote org-today) t)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt)))) (when (and org-agenda-clockreport-mode clocktable-start) (let ((org-agenda-files (org-agenda-files nil (quote ifmode))) (p (copy-sequence org-agenda-clockreport-parameter-plist)) tbl) (setq p (org-plist-delete p :block)) (setq p (plist-put p :tstart clocktable-start)) (setq p (plist-put p :tend clocktable-end)) (setq p (plist-put p :scope (quote agenda))) (when (and (eq org-agenda-clockreport-mode (quote with-filter)) (setq filter (or org-agenda-tag-filter-while-redo ...))) (setq p (plist-put p :tags (mapconcat ... filter "")))) (setq tbl (apply (quote org-get-clocktable) p)) (insert tbl))) (goto-char (point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) (unless (and (pos-visible-in-window-p (point-min)) (pos-visible-in-window-p (point-max))) (goto-char (1- (point-max))) (recenter -1) (if (not (pos-visible-in-window-p (or start-pos 1))) (progn (goto-char (or start-pos 1) ) (recenter 1)))) (goto-char (or start-pos 1)) (add-text-properties (point-min) (point-max) (\` (org-agenda-type agenda org-last-args ((\, arg) (\, start-day) (\, span)) org-redo-cmd (\, org -agenda-redo-command) org-serie-cmd (\, org-cmd)))) (if (eq org-agenda-show-log-scoped (quote clockcheck)) (org-agenda-show-clocking-issues)) (org-agenda-finalize) (setq buffer-read-only t) (message ""))) org-agenda-list() (let ((org-agenda-window-setup (quote current-window))) (org-agenda-list)) eval-buffer(# 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