* bulk rescheduling change?
@ 2012-09-12 14:19 Greg Troxel
2012-09-12 15:18 ` Bastien
2012-09-12 15:23 ` Nick Dokos
0 siblings, 2 replies; 29+ messages in thread
From: Greg Troxel @ 2012-09-12 14:19 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 963 bytes --]
I'm running from git, updating every few weeks, currently on
commit c276eeebeecba23913547f62cf4b8122f0e8efa9
Author: Jambunathan K <kjambunathan@gmail.com>
Date: Wed Sep 5 03:33:16 2012 +0530
(that commit is surely not relevant to my question...).
I often hope to get more done than I do, so I'm often faced with pushing
scheduled items forward. I typically do this from the agenda view, with
'C-c C-s' for individual items, and markings and 'B s' for groups of
items (typically, saturday-type items to a week later). I find that
with individual rescheduling, I get a prompt that has no prefilled text,
and can easily type '+1<cr>', or 'sat<cr>'. 'B s' used to behave this
way, but now the prompt is prefilled with '<2012-09-12 Wed>', and I have
to delete that. This seems like a misfeature, because at least for me
bulk-reschedulign to today is not the dominant case, and if it were . is
easy to type anwyay. The info file doesn't explain this.
[-- Attachment #2: Type: application/pgp-signature, Size: 194 bytes --]
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 14:19 bulk rescheduling change? Greg Troxel
@ 2012-09-12 15:18 ` Bastien
2012-09-12 15:34 ` Nick Dokos
2012-09-12 15:23 ` Nick Dokos
1 sibling, 1 reply; 29+ messages in thread
From: Bastien @ 2012-09-12 15:18 UTC (permalink / raw)
To: Greg Troxel; +Cc: emacs-orgmode
Hi Greg,
Greg Troxel <gdt@ir.bbn.com> writes:
> I often hope to get more done than I do, so I'm often faced with pushing
> scheduled items forward. I typically do this from the agenda view, with
> 'C-c C-s' for individual items, and markings and 'B s' for groups of
> items (typically, saturday-type items to a week later). I find that
> with individual rescheduling, I get a prompt that has no prefilled text,
> and can easily type '+1<cr>', or 'sat<cr>'. 'B s' used to behave this
> way, but now the prompt is prefilled with '<2012-09-12 Wed>', and I have
> to delete that. This seems like a misfeature, because at least for me
> bulk-reschedulign to today is not the dominant case, and if it were . is
> easy to type anwyay. The info file doesn't explain this.
This has been fixed earlier today -- please update.
Thanks,
--
Bastien
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 14:19 bulk rescheduling change? Greg Troxel
2012-09-12 15:18 ` Bastien
@ 2012-09-12 15:23 ` Nick Dokos
2012-09-12 15:49 ` Greg Troxel
1 sibling, 1 reply; 29+ messages in thread
From: Nick Dokos @ 2012-09-12 15:23 UTC (permalink / raw)
To: Greg Troxel; +Cc: emacs-orgmode
Greg Troxel <gdt@ir.bbn.com> wrote:
>
> I'm running from git, updating every few weeks, currently on
>
> commit c276eeebeecba23913547f62cf4b8122f0e8efa9
> Author: Jambunathan K <kjambunathan@gmail.com>
> Date: Wed Sep 5 03:33:16 2012 +0530
>
> (that commit is surely not relevant to my question...).
>
> I often hope to get more done than I do, so I'm often faced with pushing
> scheduled items forward. I typically do this from the agenda view, with
> 'C-c C-s' for individual items, and markings and 'B s' for groups of
> items (typically, saturday-type items to a week later). I find that
> with individual rescheduling, I get a prompt that has no prefilled text,
> and can easily type '+1<cr>', or 'sat<cr>'. 'B s' used to behave this
> way, but now the prompt is prefilled with '<2012-09-12 Wed>', and I have
> to delete that. This seems like a misfeature, because at least for me
> bulk-reschedulign to today is not the dominant case, and if it were . is
> easy to type anwyay. The info file doesn't explain this.
It *should* be the case that you shouldn't have to delete the default: just
select a date from the calendar or type +2 or type a date and it should take
that. But in my (rather hastily done) experiment, it seemed to ignore any
such and in fact, when I tried to reschedule again the bunch of things that it
rescheduled for today, it would not even stop and let me enter anything.
Seems like a bug to me.
Nick
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 15:18 ` Bastien
@ 2012-09-12 15:34 ` Nick Dokos
2012-09-12 15:46 ` Bastien
2012-09-12 15:47 ` Nick Dokos
0 siblings, 2 replies; 29+ messages in thread
From: Nick Dokos @ 2012-09-12 15:34 UTC (permalink / raw)
To: Bastien; +Cc: emacs-orgmode, Greg Troxel
Bastien <bzg@altern.org> wrote:
> Hi Greg,
>
> Greg Troxel <gdt@ir.bbn.com> writes:
>
> > I often hope to get more done than I do, so I'm often faced with pushing
> > scheduled items forward. I typically do this from the agenda view, with
> > 'C-c C-s' for individual items, and markings and 'B s' for groups of
> > items (typically, saturday-type items to a week later). I find that
> > with individual rescheduling, I get a prompt that has no prefilled text,
> > and can easily type '+1<cr>', or 'sat<cr>'. 'B s' used to behave this
> > way, but now the prompt is prefilled with '<2012-09-12 Wed>', and I have
> > to delete that. This seems like a misfeature, because at least for me
> > bulk-reschedulign to today is not the dominant case, and if it were . is
> > easy to type anwyay. The info file doesn't explain this.
>
> This has been fixed earlier today -- please update.
>
OK I just updated and I'm running into trouble:
org-exp-blocks.el seems to have been deleted but org-exp.el still requires it.
What's going on?
Nick
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 15:46 ` Bastien
@ 2012-09-12 15:44 ` Nicolas Goaziou
2012-09-12 15:52 ` Nick Dokos
0 siblings, 1 reply; 29+ messages in thread
From: Nicolas Goaziou @ 2012-09-12 15:44 UTC (permalink / raw)
To: Bastien; +Cc: nicholas.dokos, emacs-orgmode, Greg Troxel
Hello,
Bastien <bzg@altern.org> writes:
> Nick Dokos <nicholas.dokos@hp.com> writes:
>
>> org-exp-blocks.el seems to have been deleted but org-exp.el still requires it.
>> What's going on?
>
> (This is not related to the bug mentioned in this thread.)
>
> I guess Nicolas is on this, I'll not interfere here, but yes,
> this is a problem.
It should be fixed now.
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 15:34 ` Nick Dokos
@ 2012-09-12 15:46 ` Bastien
2012-09-12 15:44 ` Nicolas Goaziou
2012-09-12 15:47 ` Nick Dokos
1 sibling, 1 reply; 29+ messages in thread
From: Bastien @ 2012-09-12 15:46 UTC (permalink / raw)
To: nicholas.dokos; +Cc: n. goaziou, emacs-orgmode, Greg Troxel
Nick Dokos <nicholas.dokos@hp.com> writes:
> org-exp-blocks.el seems to have been deleted but org-exp.el still requires it.
> What's going on?
(This is not related to the bug mentioned in this thread.)
I guess Nicolas is on this, I'll not interfere here, but yes,
this is a problem.
--
Bastien
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 15:34 ` Nick Dokos
2012-09-12 15:46 ` Bastien
@ 2012-09-12 15:47 ` Nick Dokos
2012-09-12 16:17 ` Bastien
1 sibling, 1 reply; 29+ messages in thread
From: Nick Dokos @ 2012-09-12 15:47 UTC (permalink / raw)
To: Bastien, emacs-orgmode, Greg Troxel
Nick Dokos <nicholas.dokos@hp.com> wrote:
> Bastien <bzg@altern.org> wrote:
>
> > Hi Greg,
> >
> > Greg Troxel <gdt@ir.bbn.com> writes:
> >
> > > I often hope to get more done than I do, so I'm often faced with pushing
> > > scheduled items forward. I typically do this from the agenda view, with
> > > 'C-c C-s' for individual items, and markings and 'B s' for groups of
> > > items (typically, saturday-type items to a week later). I find that
> > > with individual rescheduling, I get a prompt that has no prefilled text,
> > > and can easily type '+1<cr>', or 'sat<cr>'. 'B s' used to behave this
> > > way, but now the prompt is prefilled with '<2012-09-12 Wed>', and I have
> > > to delete that. This seems like a misfeature, because at least for me
> > > bulk-reschedulign to today is not the dominant case, and if it were . is
> > > easy to type anwyay. The info file doesn't explain this.
> >
> > This has been fixed earlier today -- please update.
> >
>
> OK I just updated and I'm running into trouble:
>
> org-exp-blocks.el seems to have been deleted but org-exp.el still requires it.
> What's going on?
>
... 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)
(setq marker (org-agenda-new-marker beg) level (make-string (1- (org-outline-level)) 32) category (org-get-category beg) category-pos (get-text-property beg (quote org-category-position)) tags (save-excursion (org-backward-heading-same-level 0) (org-get-tags-at)) todo-state (org-get-todo-state) warntime (org-entry-get (point) "APPT_WARNTIME"))
(progn (setq marker (org-agenda-new-marker beg) level (make-string (1- (org-outline-level)) 32) category (org-get-category beg) category-pos (get-text-property beg (quote org-category-position)) tags (save-excursion (org-backward-heading-same-level 0) (org-get-tags-at)) todo-state (org-get-todo-state) warntime (org-entry-get (point) "APPT_WARNTIME")) (dolist (r (if (stringp result) (list result) result)) (when (and org-agenda-diary-sexp-prefix (string-match org-agenda-diary-sexp-prefix r)) (setq extra (match-string 0 r) r (replace-match "" nil nil r))) (if (string-match "\\S-" r) (setq txt r) (setq txt "SEXP entry returned empty string")) (setq txt (org-agenda-format-item extra txt level category tags (quote time))) (org-add-props txt props (quote org-marker) marker (quote org-category)
category (quote date) date (quote todo-state) todo-state (quote org-category-position) category-pos (quote tags) tags (quote level) level (quote type) "sexp" (quote warntime) warntime) (push
txt ee)))
(if result (progn (setq marker (org-agenda-new-marker beg) level (make-string (1- (org-outline-level)) 32) category (org-get-category beg) category-pos (get-text-property beg (quote org-category-position)) tags (save-excursion (org-backward-heading-same-level 0) (org-get-tags-at)) todo-state (org-get-todo-state) warntime (org-entry-get (point) "APPT_WARNTIME")) (dolist (r (if (stringp result) (list result) result)) (when (and org-agenda-diary-sexp-prefix (string-match org-agenda-diary-sexp-prefix r)) (setq extra (match-string 0 r) r (replace-match "" nil nil r))) (if (string-match "\\S-" r) (setq txt r) (setq txt "SEXP entry returned empty string")) (setq txt (org-agenda-format-item extra txt level category tags (quote time))) (org-add-props txt props (quote org-marker) marker (quote org
-category) category (quote date) date (quote todo-state) todo-state (quote org-category-position) category-pos (quote tags) tags (quote level) level (quote type) "sexp" (quote warntime) warn
time) (push txt ee))))
(when result (setq marker (org-agenda-new-marker beg) level (make-string (1- (org-outline-level)) 32) category (org-get-category beg) category-pos (get-text-property beg (quote org-category-position)) tags (save-excursion (org-backward-heading-same-level 0) (org-get-tags-at)) todo-state (org-get-todo-state) warntime (org-entry-get (point) "APPT_WARNTIME")) (dolist (r (if (stringp result) (list result) result)) (when (and org-agenda-diary-sexp-prefix (string-match org-agenda-diary-sexp-prefix r)) (setq extra (match-string 0 r) r (replace-match "" nil nil r))) (if (string-match "\\S-" r) (setq txt r) (setq txt "SEXP entry returned empty string")) (setq txt (org-agenda-format-item extra txt level category tags (quote time))) (org-add-props txt props (quote org-marker) marker (quote org-cate
gory) category (quote date) date (quote todo-state) todo-state (quote org-category-position) category-pos (quote tags) tags (quote level) level (quote type) "sexp" (quote warntime) warntime)
(push txt ee)))
(catch :skip (org-agenda-skip) (setq beg (match-beginning 0)) (goto-char (1- (match-end 0))) (setq b (point)) (forward-sexp 1) (setq sexp (buffer-substring b (point))) (setq sexp-entry (if (looking-at "[ ]*\\(\\S-.*\\)") (org-trim (match-string 1)) "")) (setq result (org-diary-sexp-entry sexp sexp-entry date)) (when result (setq marker (org-agenda-new-marker beg) level (make-string (1- (org-outline-level)) 32) category (org-get-category beg) category-pos (get-text-property beg (quote org-category-position)) tags (save-excursion (org-backward-heading-same-level 0) (org-get-tags-at)) todo-state (org-get-todo-state) warntime (org-entry-get (point) "APPT_WARNTIME")) (dolist (r (if (stringp result) (list result) result)) (when (and org-agenda-diary-sexp-prefix (string-match org-agenda-diary-
sexp-prefix r)) (setq extra (match-string 0 r) r (replace-match "" nil nil r))) (if (string-match "\\S-" r) (setq txt r) (setq txt "SEXP entry returned empty string")) (setq txt (org-agenda-
format-item extra txt level category tags (quote time))) (org-add-props txt props (quote org-marker) marker (quote org-category) category (quote date) date (quote todo-state) todo-state (quote org-category-position) category-pos (quote tags) tags (quote level) level (quote type) "sexp" (quote warntime) warntime) (push txt ee))))
(while (re-search-forward regexp nil t) (catch :skip (org-agenda-skip) (setq beg (match-beginning 0)) (goto-char (1- (match-end 0))) (setq b (point)) (forward-sexp 1) (setq sexp (buffer-substring b (point))) (setq sexp-entry (if (looking-at "[ ]*\\(\\S-.*\\)") (org-trim (match-string 1)) "")) (setq result (org-diary-sexp-entry sexp sexp-entry date)) (when result (setq marker (org-agenda-new-marker beg) level (make-string (1- (org-outline-level)) 32) category (org-get-category beg) category-pos (get-text-property beg (quote org-category-position)) tags (save-excursion (org-backward-heading-same-level 0) (org-get-tags-at)) todo-state (org-get-todo-state) warntime (org-entry-get (point) "APPT_WARNTIME")) (dolist (r (if (stringp result) (list result) result)) (when (and org-agenda-diary-sex
p-prefix (string-match org-agenda-diary-sexp-prefix r)) (setq extra (match-string 0 r) r (replace-match "" nil nil r))) (if (string-match "\\S-" r) (setq txt r) (setq txt "SEXP entry returne
d empty string")) (setq txt (org-agenda-format-item extra txt level category tags (quote time))) (org-add-props txt props (quote org-marker) marker (quote org-category) category (quote date) date (quote todo-state) todo-state (quote org-category-position) category-pos (quote tags) tags (quote level) level (quote type) "sexp" (quote warntime) warntime) (push txt ee)))))
(let* ((props (list (quote face) (quote org-agenda-calendar-sexp) (quote mouse-face) (quote highlight) (quote help-echo) (format "mouse-2 or RET jump to org file %s" (abbreviate-file-name buffer-file-name)))) (regexp "^&?%%(") marker category extra category-pos level ee txt tags entry result beg b sexp sexp-entry todo-state warntime) (goto-char (point-min)) (while (re-search-forward regexp nil t) (catch :skip (org-agenda-skip) (setq beg (match-beginning 0)) (goto-char (1- (match-end 0))) (setq b (point)) (forward-sexp 1) (setq sexp (buffer-substring b (point))) (setq sexp-entry (if (looking-at "[ ]*\\(\\S-.*\\)") (org-trim (match-string 1)) "")) (setq result (org-diary-sexp-entry sexp sexp-entry date)) (when result (setq marker (org-agenda-new-marker beg) level (make-string (1- (org-out
line-level)) 32) category (org-get-category beg) category-pos (get-text-property beg (quote org-category-position)) tags (save-excursion (org-backward-heading-same-level 0) (org-get-tags-at)
) todo-state (org-get-todo-state) warntime (org-entry-get (point) "APPT_WARNTIME")) (dolist (r (if (stringp result) (list result) result)) (when (and org-agenda-diary-sexp-prefix (string-match org-agenda-diary-sexp-prefix r)) (setq extra (match-string 0 r) r (replace-match "" nil nil r))) (if (string-match "\\S-" r) (setq txt r) (setq txt "SEXP entry returned empty string")) (setq txt (org-agenda-format-item extra txt level category tags (quote time))) (org-add-props txt props (quote org-marker) marker (quote org-category) category (quote date) date (quote todo-state) todo-state (quote org-category-position) category-pos (quote tags) tags (quote level) level (quote type) "sexp" (quote warntime) warntime) (push txt ee))))) (nreverse ee))
org-agenda-get-sexps()
(setq rtn (org-agenda-get-sexps))
(cond ((and (eq arg :todo) (equal date (calendar-gregorian-from-absolute (org-today)))) (setq rtn (org-agenda-get-todos)) (setq results (append results rtn))) ((eq arg :timestamp) (setq rtn (org-agenda-get-blocks)) (setq results (append results rtn)) (setq rtn (org-agenda-get-timestamps deadline-results)) (setq results (append results rtn))) ((eq arg :sexp) (setq rtn (org-agenda-get-sexps)) (setq results (append results rtn))) ((eq arg :scheduled) (setq rtn (org-agenda-get-scheduled deadline-results)) (setq results (append results rtn))) ((eq arg :closed) (setq rtn (org-agenda-get-progress)) (setq results (append results rtn))) ((eq arg :deadline) (setq rtn (org-agenda-get-deadlines)) (setq deadline-results (copy-sequence rtn)) (setq results (append results rtn))))
(while (setq arg (pop args)) (cond ((and (eq arg :todo) (equal date (calendar-gregorian-from-absolute (org-today)))) (setq rtn (org-agenda-get-todos)) (setq results (append results rtn))) ((eq arg :timestamp) (setq rtn (org-agenda-get-blocks)) (setq results (append results rtn)) (setq rtn (org-agenda-get-timestamps deadline-results)) (setq results (append results rtn))) ((eq arg :sexp) (setq rtn (org-agenda-get-sexps)) (setq results (append results rtn))) ((eq arg :scheduled) (setq rtn (org-agenda-get-scheduled deadline-results)) (setq results (append results rtn))) ((eq arg :closed) (setq rtn (org-agenda-get-progress)) (setq results (append results rtn))) ((eq arg :deadline) (setq rtn (org-agenda-get-deadlines)) (setq deadline-results (copy-sequence rtn)) (setq results (append results r
tn)))))
(save-restriction (if org-agenda-restrict (narrow-to-region org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq arg (pop args)) (cond ((and (eq arg :todo) (equal date (calendar-gregorian-from-absolute (org-today)))) (setq rtn (org-agenda-get-todos)) (setq results (append results rtn))) ((eq arg :timestamp) (setq rtn (org-agenda-get-blocks)) (setq results (append results rtn)) (setq rtn (org-agenda-get-timestamps deadline-results)) (setq results (append results rtn))) ((eq arg :sexp) (setq rtn (org-agenda-get-sexps)) (setq results (append results rtn))) ((eq arg :scheduled) (setq rtn (org-agenda-get-scheduled deadline-results)) (setq results (append results rtn))) ((eq arg :closed) (setq rtn (org-agenda-get-progress)) (setq results (append results rtn))) ((eq arg :dea
dline) (setq rtn (org-agenda-get-deadlines)) (setq deadline-results (copy-sequence rtn)) (setq results (append results rtn))))))
(save-excursion (save-restriction (if org-agenda-restrict (narrow-to-region org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq arg (pop args)) (cond ((and (eq arg :todo) (equal date (calendar-gregorian-from-absolute ...))) (setq rtn (org-agenda-get-todos)) (setq results (append results rtn))) ((eq arg :timestamp) (setq rtn (org-agenda-get-blocks)) (setq results (append results rtn)) (setq rtn (org-agenda-get-timestamps deadline-results)) (setq results (append results rtn))) ((eq arg :sexp) (setq rtn (org-agenda-get-sexps)) (setq results (append results rtn))) ((eq arg :scheduled) (setq rtn (org-agenda-get-scheduled deadline-results)) (setq results (append results rtn))) ((eq arg :closed) (setq rtn (org-agenda-get-progress)) (setq results (append results rtn))) ((eq
arg :deadline) (setq rtn (org-agenda-get-deadlines)) (setq deadline-results (copy-sequence rtn)) (setq results (append results rtn)))))))
(let ((case-fold-search nil)) (save-excursion (save-restriction (if org-agenda-restrict (narrow-to-region org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq arg (pop args)) (cond ((and (eq arg :todo) (equal date ...)) (setq rtn (org-agenda-get-todos)) (setq results (append results rtn))) ((eq arg :timestamp) (setq rtn (org-agenda-get-blocks)) (setq results (append results rtn)) (setq rtn (org-agenda-get-timestamps deadline-results)) (setq results (append results rtn))) ((eq arg :sexp) (setq rtn (org-agenda-get-sexps)) (setq results (append results rtn))) ((eq arg :scheduled) (setq rtn (org-agenda-get-scheduled deadline-results)) (setq results (append results rtn))) ((eq arg :closed) (setq rtn (org-agenda-get-progress)) (setq results (append results rtn))) ((eq arg :
deadline) (setq rtn (org-agenda-get-deadlines)) (setq deadline-results (copy-sequence rtn)) (setq results (append results rtn))))))))
(save-current-buffer (set-buffer buffer) (unless (derived-mode-p (quote org-mode)) (error "Agenda file %s is not in `org-mode'" file)) (setq org-agenda-buffer (or org-agenda-buffer buffer)) (let ((case-fold-search nil)) (save-excursion (save-restriction (if org-agenda-restrict (narrow-to-region org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq arg (pop args)) (cond ((and ... ...) (setq rtn ...) (setq results ...)) ((eq arg :timestamp) (setq rtn ...) (setq results ...) (setq rtn ...) (setq results ...)) ((eq arg :sexp) (setq rtn ...) (setq results ...)) ((eq arg :scheduled) (setq rtn ...) (setq results ...)) ((eq arg :closed) (setq rtn ...) (setq results ...)) ((eq arg :deadline) (setq rtn ...) (setq deadline-results ...) (setq results ...))))))) results)
(with-current-buffer buffer (unless (derived-mode-p (quote org-mode)) (error "Agenda file %s is not in `org-mode'" file)) (setq org-agenda-buffer (or org-agenda-buffer buffer)) (let ((case-fold-search nil)) (save-excursion (save-restriction (if org-agenda-restrict (narrow-to-region org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq arg (pop args)) (cond ((and ... ...) (setq rtn ...) (setq results ...)) ((eq arg :timestamp) (setq rtn ...) (setq results ...) (setq rtn ...) (setq results ...)) ((eq arg :sexp) (setq rtn ...) (setq results ...)) ((eq arg :scheduled) (setq rtn ...) (setq results ...)) ((eq arg :closed) (setq rtn ...) (setq results ...)) ((eq arg :deadline) (setq rtn ...) (setq deadline-results ...) (setq results ...))))))) results)
(if (not buffer) (list (format "ORG-AGENDA-ERROR: No such org-file %s" file)) (with-current-buffer buffer (unless (derived-mode-p (quote org-mode)) (error "Agenda file %s is not in `org-mode'" file)) (setq org-agenda-buffer (or org-agenda-buffer buffer)) (let ((case-fold-search nil)) (save-excursion (save-restriction (if org-agenda-restrict (narrow-to-region org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq arg (pop args)) (cond (... ... ...) (... ... ... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ... ...)))))) results))
(let* ((org-startup-folded nil) (org-startup-align-all-tables nil) (buffer (if (file-exists-p file) (org-get-agenda-file-buffer file) (error "No such file %s" file))) arg results rtn deadline-results) (if (not buffer) (list (format "ORG-AGENDA-ERROR: No such org-file %s" file)) (with-current-buffer buffer (unless (derived-mode-p (quote org-mode)) (error "Agenda file %s is not in `org-mode'" file)) (setq org-agenda-buffer (or org-agenda-buffer buffer)) (let ((case-fold-search nil)) (save-excursion (save-restriction (if org-agenda-restrict (narrow-to-region org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq arg ...) (cond ... ... ... ... ... ...))))) results)))
org-agenda-get-day-entries("/home/nick/lib/org/appts.org" (9 12 2012) :deadline :scheduled :timestamp :sexp)
apply(org-agenda-get-day-entries "/home/nick/lib/org/appts.org" (9 12 2012) (:deadline :scheduled :timestamp :sexp))
(setq rtn (apply (quote org-agenda-get-day-entries) file date org-agenda-entry-types))
(cond ((memq org-agenda-show-log-scoped (quote (only clockcheck))) (setq rtn (org-agenda-get-day-entries file date :closed))) (org-agenda-show-log-scoped (setq rtn (apply (quote org-agenda-get-day-entries) file date (append (quote (:closed)) org-agenda-entry-types)))) (t (setq rtn (apply (quote org-agenda-get-day-entries) file date org-agenda-entry-types))))
(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 (only clockcheck))) (setq rtn (org-agenda-get-day-entries file date :closed))) (org-agenda-show-log-scoped (setq rtn (apply (quote org-agenda-get-day-entries) file date (append (quote (:closed)) org-agenda-entry-types)))) (t (setq rtn (apply (quote org-agenda-get-day-entries) file date org-agenda-entry-types)))))
(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 (only clockcheck))) (setq rtn (org-agenda-get-day-entries file date :closed))) (org-agenda-show-log-scoped (setq rtn (apply (quote org-agenda-get-day-entries) file date (append (quote ...) org-agenda-entry-types)))) (t (setq rtn (apply (quote org-agenda-get-day-entries) file date org-agenda-entry-types))))) (setq rtnall (append rtnall rtn)))
(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 (only clockcheck))) (setq rtn (org-agenda-get-day-entries file date :closed))) (org-agenda-show-log-scoped (setq rtn (apply (quote org-agenda-get-day-entries) file date (append ... org-agenda-entry-types)))) (t (setq rtn (apply (quote org-agenda-get-day-entries) file date org-agenda-entry-types))))) (setq rtnall (append rtnall rtn))))
(while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos (point)))) (setq files thefiles rtnall nil) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (let ((org-agenda-entry-types org-agenda-entry-types)) (unless org-agenda-include-deadlines (setq org-agenda-entry-types (delq :deadline org-agenda-entry-types))) (cond ((memq org-agenda-show-log-scoped (quote ...)) (setq rtn (org-agenda-get-day-entries file date :closed))) (org-agenda-show-log-scoped (setq rtn (apply ... file date ...))) (t (setq rtn (apply ... file date org-agenda-entry-types))))) (setq rtnall (append rtnall rtn))))
(if org-agenda-include-diary (let ((org-agenda-search-headline-for-time t)) (require (quote diary-lib)) (setq rtn (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) (if
(or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date (org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") (put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- (point)) (quote org-today) t)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote org-
day-cnt) day-cnt))))
(let* ((span (org-agenda-ndays-to-span (or span org-agenda-ndays org-agenda-span))) (today (org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-ndays span sd)) (org-agenda-start-on-weekday (if (eq ndays 7) org-agenda-start-on-weekday)) (thefiles (org-agenda-files nil (quote ifmode))) (files thefiles) (start (if (or (null org-agenda-start-on-weekday) (< ndays 7)) sd (let* ((nt (calendar-day-of-week ...)) (n1 org-agenda-start-on-weekday) (d (- nt n1))) (- sd (+ (if ... 7 0) d))))) (day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (not debug-on-error)) (org-agenda-show-log-scoped org-agenda-show-log) s e rtn rtnall file date d start-pos end-pos todayp clocktable-start clocktable-end filter) (setq org-agenda-redo-command (list (quote org-agenda-list) (list (quote quote)
arg) start-day (list (quote quote) span))) (dotimes (n (1- ndays)) (push (1+ (car day-numbers)) day-numbers)) (setq day-numbers (nreverse day-numbers)) (setq clocktable-start (car day-number
s) clocktable-end (1+ (or (org-last day-numbers) 0))) (org-set-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote org-arg-loc) arg) (org-set-local (quote org-agenda-current-span) (org-agenda-ndays-to-span span)) (unless org-agenda-compact-blocks (let* ((d1 (car day-numbers)) (d2 (org-last day-numbers)) (w1 (org-days-to-iso-week d1)) (w2 (org-days-to-iso-week d2))) (setq s (point)) (if org-agenda-overriding-header (insert (org-add-props (copy-sequence org-agenda-overriding-header) nil (quote face) (quote org-agenda-structure)) "\n") (insert (org-agenda-span-name span) "-agenda" (if (< (- d2 d1) 350) (if (= w1 w2) (format " (W%02d)" w1) (format " (W%02d-W%02d)" w1 w2)) "") ":\n"))) (add-text-properties s (1- (point)) (list (quote face) (quote org-agenda-structure) (quot
e org-date-line) t)) (org-agenda-mark-header-line s)) (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (= d today)) (and (not
start-pos) (= d sd))) (setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos (point)))) (setq files thefiles rtnall nil) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (let ((org-agenda-entry-types org-agenda-entry-types)) (unless org-agenda-include-deadlines (setq org-agenda-entry-types (delq :deadline org-agenda-entry-types))) (cond ((memq org-agenda-show-log-scoped ...) (setq rtn ...)) (org-agenda-show-log-scoped (setq rtn ...)) (t (setq rtn ...)))) (setq rtnall (append rtnall rtn)))) (if org-agenda-include-diary (let ((org-agenda-search-headline-for-time t)) (require (quote diary-lib)) (setq rtn (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) (if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1
+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date (org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") (put-text-prop
erty s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- (point)) (quote org-today) t)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt)))) (when (and org-agenda-clockreport-mode clocktable-start) (let ((org-agenda-files (org-agenda-files nil (quote ifmode))) (p (copy-sequence org-agenda-clockreport-parameter-plist)) tbl) (setq p (org-plist-delete p :block)) (setq p (
plist-put p :tstart clocktable-start)) (setq p (plist-put p :tend clocktable-end)) (setq p (plist-put p :scope (quote agenda))) (when (and (eq org-agenda-clockreport-mode (quote with-filter)
) (setq filter (or org-agenda-tag-filter-while-redo (get ... :preset-filter)))) (setq p (plist-put p :tags (mapconcat (lambda ... ...) filter "")))) (setq tbl (apply (quote org-get-clocktable) p)) (insert tbl))) (goto-char (point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) (unless (and (pos-visible-in-window-p (point-min)) (pos-visible-in-window-p (point-max))) (goto-char (1- (point-max))) (recenter -1) (if (not (pos-visible-in-window-p (or start-pos 1))) (progn (goto-char (or start-pos 1)) (recenter 1)))) (goto-char (or start-pos 1)) (add-text-properties (point-min) (point-max) (\` (org-agenda-type agenda org-last-args ((\, arg) (\, start-day) (\, span)) org-redo-cmd (\, org-agenda-redo-command) org-serie-cmd (\, org-cmd)))) (if (eq org-agenda-show-log-scoped (quote clo
ckcheck)) (org-agenda-show-clocking-issues)) (org-agenda-finalize) (setq buffer-read-only t) (message ""))
(catch (quote exit) (setq org-agenda-buffer-name (or org-agenda-buffer-tmp-name (if org-agenda-sticky (cond ((and org-keys (stringp org-match)) (format "*Org Agenda(%s:%s)*" org-keys org-match)) (org-keys (format "*Org Agenda(%s)*" org-keys)) (t "*Org Agenda(a)*"))) org-agenda-buffer-name)) (org-agenda-prepare "Day/Week") (setq start-day (or start-day org-agenda-start-day)) (if (stringp start-day) (setq start-day (time-to-days (org-read-date nil t start-day)))) (org-compile-prefix-format (quote agenda)) (org-set-sorting-strategy (quote agenda)) (let* ((span (org-agenda-ndays-to-span (or span org-agenda-ndays org-agenda-span))) (today (org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-ndays span sd)) (org-agenda-start-on-weekday (if (eq ndays 7) org-agenda-start-on-weekday)
) (thefiles (org-agenda-files nil (quote ifmode))) (files thefiles) (start (if (or (null org-agenda-start-on-weekday) (< ndays 7)) sd (let* ((nt ...) (n1 org-agenda-start-on-weekday) (d ...)
) (- sd (+ ... d))))) (day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (not debug-on-error)) (org-agenda-show-log-scoped org-agenda-show-log) s e rtn rtnall file date d start-pos end-pos todayp clocktable-start clocktable-end filter) (setq org-agenda-redo-command (list (quote org-agenda-list) (list (quote quote) arg) start-day (list (quote quote) span))) (dotimes (n (1- ndays)) (push (1+ (car day-numbers)) day-numbers)) (setq day-numbers (nreverse day-numbers)) (setq clocktable-start (car day-numbers) clocktable-end (1+ (or (org-last day-numbers) 0))) (org-set-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote org-arg-loc) arg) (org-set-local (quote org-agenda-current-span) (org-agenda-ndays-to-span span)) (unless org-agenda-compact-blocks (let* ((d1 (car day
-numbers)) (d2 (org-last day-numbers)) (w1 (org-days-to-iso-week d1)) (w2 (org-days-to-iso-week d2))) (setq s (point)) (if org-agenda-overriding-header (insert (org-add-props (copy-sequence
org-agenda-overriding-header) nil (quote face) (quote org-agenda-structure)) "\n") (insert (org-agenda-span-name span) "-agenda" (if (< ... 350) (if ... ... ...) "") ":\n"))) (add-text-properties s (1- (point)) (list (quote face) (quote org-agenda-structure) (quote org-date-line) t)) (org-agenda-mark-header-line s)) (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos (point)))) (setq files thefiles rtnall nil) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (let ((org-agenda-entry-types org-agenda-entry-types)) (unless org-agenda-include-deadlines (setq org-agenda-entry-types
...)) (cond (... ...) (org-agenda-show-log-scoped ...) (t ...))) (setq rtnall (append rtnall rtn)))) (if org-agenda-include-diary (let ((org-agenda-search-headline-for-time t)) (require (quo
te diary-lib)) (setq rtn (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) (if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date ...) (funcall org-agenda-format-date date)) "\n") (put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- ...) (quote org-today) t)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (put-text-property s (1-
(point)) (quote day) d) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt)))) (when (and org-agenda-clockreport-mode clocktable-start) (let ((org-agenda-files (org-agenda-files
nil (quote ifmode))) (p (copy-sequence org-agenda-clockreport-parameter-plist)) tbl) (setq p (org-plist-delete p :block)) (setq p (plist-put p :tstart clocktable-start)) (setq p (plist-put p :tend clocktable-end)) (setq p (plist-put p :scope (quote agenda))) (when (and (eq org-agenda-clockreport-mode (quote with-filter)) (setq filter (or org-agenda-tag-filter-while-redo ...))) (setq p (plist-put p :tags (mapconcat ... filter "")))) (setq tbl (apply (quote org-get-clocktable) p)) (insert tbl))) (goto-char (point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) (unless (and (pos-visible-in-window-p (point-min)) (pos-visible-in-window-p (point-max))) (goto-char (1- (point-max))) (recenter -1) (if (not (pos-visible-in-window-p (or start-pos 1))) (progn (goto-char (or start-pos 1)
) (recenter 1)))) (goto-char (or start-pos 1)) (add-text-properties (point-min) (point-max) (\` (org-agenda-type agenda org-last-args ((\, arg) (\, start-day) (\, span)) org-redo-cmd (\, org
-agenda-redo-command) org-serie-cmd (\, org-cmd)))) (if (eq org-agenda-show-log-scoped (quote clockcheck)) (org-agenda-show-clocking-issues)) (org-agenda-finalize) (setq buffer-read-only t) (message "")))
org-agenda-list()
(let ((org-agenda-window-setup (quote current-window))) (org-agenda-list))
eval-buffer(#<buffer *load*> nil "/home/nick/.emacs" nil t) ; Reading at buffer position 13176
load-with-code-conversion("/home/nick/.emacs" "/home/nick/.emacs" t t)
load("~/.emacs" t t)
#[0 "\b\205\262
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 15:23 ` Nick Dokos
@ 2012-09-12 15:49 ` Greg Troxel
2012-09-12 15:57 ` Michael Brand
0 siblings, 1 reply; 29+ messages in thread
From: Greg Troxel @ 2012-09-12 15:49 UTC (permalink / raw)
To: nicholas.dokos; +Cc: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 1603 bytes --]
Nick Dokos <nicholas.dokos@hp.com> writes:
> Greg Troxel <gdt@ir.bbn.com> wrote:
>
>>
>> I'm running from git, updating every few weeks, currently on
>>
>> commit c276eeebeecba23913547f62cf4b8122f0e8efa9
>> Author: Jambunathan K <kjambunathan@gmail.com>
>> Date: Wed Sep 5 03:33:16 2012 +0530
>>
>> (that commit is surely not relevant to my question...).
>>
>> I often hope to get more done than I do, so I'm often faced with pushing
>> scheduled items forward. I typically do this from the agenda view, with
>> 'C-c C-s' for individual items, and markings and 'B s' for groups of
>> items (typically, saturday-type items to a week later). I find that
>> with individual rescheduling, I get a prompt that has no prefilled text,
>> and can easily type '+1<cr>', or 'sat<cr>'. 'B s' used to behave this
>> way, but now the prompt is prefilled with '<2012-09-12 Wed>', and I have
>> to delete that. This seems like a misfeature, because at least for me
>> bulk-reschedulign to today is not the dominant case, and if it were . is
>> easy to type anwyay. The info file doesn't explain this.
>
> It *should* be the case that you shouldn't have to delete the default:
> just select a date from the calendar or type +2 or type a date and it
> should take that. But in my (rather hastily done) experiment, it
> seemed to ignore any such and in fact, when I tried to reschedule
> again the bunch of things that it rescheduled for today, it would not
> even stop and let me enter anything.
I should have pointed out that I'm running emacs 23.4 inside an xterm.
[-- Attachment #2: Type: application/pgp-signature, Size: 194 bytes --]
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 15:44 ` Nicolas Goaziou
@ 2012-09-12 15:52 ` Nick Dokos
2012-09-12 16:03 ` Nick Dokos
0 siblings, 1 reply; 29+ messages in thread
From: Nick Dokos @ 2012-09-12 15:52 UTC (permalink / raw)
To: Nicolas Goaziou; +Cc: Bastien, emacs-orgmode, Greg Troxel
Nicolas Goaziou <n.goaziou@gmail.com> wrote:
> Hello,
>
> Bastien <bzg@altern.org> writes:
>
> > Nick Dokos <nicholas.dokos@hp.com> writes:
> >
> >> org-exp-blocks.el seems to have been deleted but org-exp.el still requires it.
> >> What's going on?
> >
> > (This is not related to the bug mentioned in this thread.)
> >
> > I guess Nicolas is on this, I'll not interfere here, but yes,
> > this is a problem.
>
> It should be fixed now.
>
>
OK - the org-exp-blocks.el problem is gone. I'm still getting stuck
on the agenda problem. Looking into it.
Thanks,
Nick
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 15:49 ` Greg Troxel
@ 2012-09-12 15:57 ` Michael Brand
2012-09-12 23:29 ` Bastien
0 siblings, 1 reply; 29+ messages in thread
From: Michael Brand @ 2012-09-12 15:57 UTC (permalink / raw)
To: emacs-orgmode; +Cc: nicholas.dokos, Greg Troxel
Hi all
I didn’t yet investigate further but wanted to throw this in because I
think it is related: Since a few weeks “C-c C-s + 1 2 : 0 0” does not
keep tomorrow’s date but falls back to today after typing the time
part has been completed. I know there is “C-c C-s Shift-Right 1 2 : 0
0” but this is only a workaround for me because only the first allows
“touch typing”.
Michael
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 15:52 ` Nick Dokos
@ 2012-09-12 16:03 ` Nick Dokos
2012-09-12 16:24 ` Bastien
0 siblings, 1 reply; 29+ messages in thread
From: Nick Dokos @ 2012-09-12 16:03 UTC (permalink / raw)
To: Nicolas Goaziou, Bastien, emacs-orgmode, Greg Troxel
Nick Dokos <nicholas.dokos@hp.com> wrote:
> Nicolas Goaziou <n.goaziou@gmail.com> wrote:
>
> > Hello,
> >
> > Bastien <bzg@altern.org> writes:
> >
> > > Nick Dokos <nicholas.dokos@hp.com> writes:
> > >
> > >> org-exp-blocks.el seems to have been deleted but org-exp.el still requires it.
> > >> What's going on?
> > >
> > > (This is not related to the bug mentioned in this thread.)
> > >
> > > I guess Nicolas is on this, I'll not interfere here, but yes,
> > > this is a problem.
> >
> > It should be fixed now.
> >
> >
>
> OK - the org-exp-blocks.el problem is gone. I'm still getting stuck
> on the agenda problem. Looking into it.
>
Reverting commits
b508ff69015cbacdd151aa05ace9131fa66c73f6
and
1f41f087
fixes the agenda problem for me.
Thanks,
Nick
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 15:47 ` Nick Dokos
@ 2012-09-12 16:17 ` Bastien
2012-09-12 16:25 ` Nick Dokos
0 siblings, 1 reply; 29+ messages in thread
From: Bastien @ 2012-09-12 16:17 UTC (permalink / raw)
To: nicholas.dokos; +Cc: emacs-orgmode, Greg Troxel
Nick Dokos <nicholas.dokos@hp.com> writes:
> ... and after going back to before Nicolas's last four commits, I get
> the attached backtrace in org-agenda-list:
>
> Debugger entered--Lisp error: (wrong-type-argument wholenump -1)
> make-string(-1 32)
This is hopefully fixed now.
Thanks for testing,
--
Bastien
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 16:03 ` Nick Dokos
@ 2012-09-12 16:24 ` Bastien
2012-09-12 17:37 ` Nick Dokos
0 siblings, 1 reply; 29+ messages in thread
From: Bastien @ 2012-09-12 16:24 UTC (permalink / raw)
To: nicholas.dokos; +Cc: emacs-orgmode, Nicolas Goaziou, Greg Troxel
Nick Dokos <nicholas.dokos@hp.com> writes:
> Reverting commits
Yes -- but please bare with us, we want the feature to
stabilize :)
--
Bastien
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 16:17 ` Bastien
@ 2012-09-12 16:25 ` Nick Dokos
2012-09-12 16:32 ` Bastien
0 siblings, 1 reply; 29+ messages in thread
From: Nick Dokos @ 2012-09-12 16:25 UTC (permalink / raw)
To: Bastien; +Cc: emacs-orgmode, Greg Troxel
Bastien <bzg@altern.org> wrote:
> Nick Dokos <nicholas.dokos@hp.com> writes:
>
> > ... and after going back to before Nicolas's last four commits, I get
> > the attached backtrace in org-agenda-list:
> >
> > Debugger entered--Lisp error: (wrong-type-argument wholenump -1)
> > make-string(-1 32)
>
> This is hopefully fixed now.
>
> Thanks for testing,
>
> --
> Bastien
>
Not quite: I now get the following backtrace.
Thanks,
Nick
Debugger entered--Lisp error: (wrong-type-argument buffer-or-string-p 48)
get-text-property(0 inherited 48)
(let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i (get-text-property 0 (quote inherited) x)) (if (and have-i (not i)) (progn (setq have-i nil) (concat ":" x)) x)) tags ":") (if have-i "::" ":"))))
(progn (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i (get-text-property 0 ... x)) (if (and have-i ...) (progn ... ...) x)) tags ":") (if have-i "::" ":")))))
(if tags (progn (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i ...) (if ... ... x)) tags ":") (if have-i "::" ":"))))))
(when tags (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i (get-text-property 0 ... x)) (if (and have-i ...) (progn ... ...) x)) tags ":") (if have-i "::" ":")))))
(progn (if (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (setq txt (substring txt 0 (match-beginning 0)))) (setq tags (delq nil (mapcar (lambda (tg) (if (or (and hide-re ...) (and ... ...)) nil tg)) tags))) (when tags (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i ...) (if ... ... x)) tags ":") (if have-i "::" ":"))))))
(if (or add-inherited hide-re) (progn (if (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (setq txt (substring txt 0 (match-beginning 0)))) (setq tags (delq nil (mapcar (lambda (tg) (if (or ... ...) nil tg)) tags))) (when tags (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda ... ... ...) tags ":") (if have-i "::" ":")))))))
(when (or add-inherited hide-re) (if (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (setq txt (substring txt 0 (match-beginning 0)))) (setq tags (delq nil (mapcar (lambda (tg) (if (or (and hide-re ...) (and ... ...)) nil tg)) tags))) (when tags (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i ...) (if ... ... x)) tags ":") (if have-i "::" ":"))))))
org-agenda-fix-displayed-tags("----------------" "08:00" t nil)
(setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp))
(progn (setq txt (org-trim txt)) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* ((category (or category (if (stringp org-category) org-category (and org-category (symbol-name org-category))) (if buffer-file-name (file-name-sans-extension (file-name-nondirectory buffer-file-name)) ""))) (category-icon (org-agenda-get-category-icon category)) (category-icon (if category-icon (propertize " " (quote display) category-icon) "")) (tag (if tags (nth (1- (length tags)) tags) "")) time effort neffort (ts (if dotime (concat (if (stringp dotime) dotime "") (and org-agenda-search-headline-for-time txt)))) (time-of-day (and dotime (org-get-time-of-day ts))) stamp plain s0 s1 s2 rtn srp l duration thecategory) (and (derived-mode-p (
quote org-mode)) buffer-file-name (add-to-list (quote org-agenda-contributing-files) buffer-file-name)) (when (and dotime time-of-day) (when (or (setq stamp (string-match org-stamp-time-of-d
ay-regexp ts)) (setq plain (string-match org-plain-time-of-day-regexp ts))) (setq s0 (match-string 0 ts) srp (and stamp (match-end 3)) s1 (match-string (if plain 1 2) ts) s2 (match-string (if plain 8 (if srp 4 6)) ts)) (if (and org-prefix-has-time org-agenda-remove-times-when-in-prefix (or stamp plain) (string-match (concat ... " *") txt) (not (equal 93 ...)) (if (eq org-agenda-remove-times-when-in-prefix ...) (= ... 0) t)) (setq txt (replace-match "" nil nil txt)))) (if s1 (setq s1 (org-get-time-of-day s1 (quote string) t))) (if s2 (setq s2 (org-get-time-of-day s2 (quote string) t))) (when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 (org-minutes-to-hh:mm-string (+ (org-hh:mm-string-to-minutes s1) org-agenda-default-appointment-duration)))) (when s2 (setq duration (
- (org-hh:mm-string-to-minutes s2) (org-hh:mm-string-to-minutes s1))))) (when (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (if (or (eq org-agenda-remove-tags t) (
and org-agenda-remove-tags org-prefix-has-tag)) (setq txt (replace-match "" t t txt)) (setq txt (replace-match (concat (make-string ... 32) (match-string 2 txt)) t t txt)))) (when (derived-mode-p (quote org-mode)) (setq effort (condition-case nil (org-get-effort (or (get-text-property 0 ... txt) (get-text-property 0 ... txt))) (error nil))) (when effort (setq neffort (org-duration-string-to-minutes effort) effort (setq effort (concat "[" effort "]"))))) (or effort (setq effort "")) (when remove-re (while (string-match remove-re txt) (setq txt (replace-match "" t t txt)))) (add-text-properties 0 (length txt) (quote (org-heading t)) txt) (setq time (cond (s2 (concat (org-agenda-time-of-day-to-ampm-maybe s1) "-" (org-agenda-time-of-day-to-ampm-maybe s2) (if org-agenda-timegrid-use-ampm " "))
) (s1 (concat (org-agenda-time-of-day-to-ampm-maybe s1) (if org-agenda-timegrid-use-ampm "........ " "......"))) (t "")) extra (or (and (not habitp) extra) "") category (if (symbolp category
) (symbol-name category) category) thecategory (copy-sequence category)) (if (string-match org-bracket-link-regexp category) (progn (setq l (if (match-end 3) (- (match-end 3) (match-beginning 3)) (- (match-end 1) (match-beginning 1)))) (when (< l (or org-prefix-category-length 0)) (setq category (copy-sequence category)) (org-add-props category nil (quote extra-space) (make-string (- org-prefix-category-length l 1) 32)))) (if (and org-prefix-category-max-length (>= (length category) org-prefix-category-max-length)) (setq category (substring category 0 (1- org-prefix-category-max-length))))) (setq rtn (concat (eval formatter) txt)) (remove-text-properties 0 (length rtn) (quote (line-prefix t wrap-prefix t)) rtn) (org-add-props rtn nil (quote org-category) (if thecategory (downcase thecateg
ory) category) (quote tags) (mapcar (quote org-downcase-keep-props) tags) (quote org-highest-priority) org-highest-priority (quote org-lowest-priority) org-lowest-priority (quote time-of-day
) time-of-day (quote duration) duration (quote effort) effort (quote effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra (quote format) org-prefix-format-compiled (quote dotime) dotime)))
(unwind-protect (progn (setq txt (org-trim txt)) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* ((category (or category (if (stringp org-category) org-category (and org-category ...)) (if buffer-file-name (file-name-sans-extension ...) ""))) (category-icon (org-agenda-get-category-icon category)) (category-icon (if category-icon (propertize " " (quote display) category-icon) "")) (tag (if tags (nth (1- ...) tags) "")) time effort neffort (ts (if dotime (concat (if ... dotime "") (and org-agenda-search-headline-for-time txt)))) (time-of-day (and dotime (org-get-time-of-day ts))) stamp plain s0 s1 s2 rtn srp l duration thecategory) (and (derived-mode-p (quote org-mode)) buffer-file-name (add-to-list (quote org-agenda-con
tributing-files) buffer-file-name)) (when (and dotime time-of-day) (when (or (setq stamp (string-match org-stamp-time-of-day-regexp ts)) (setq plain (string-match org-plain-time-of-day-regex
p ts))) (setq s0 (match-string 0 ts) srp (and stamp (match-end 3)) s1 (match-string (if plain 1 2) ts) s2 (match-string (if plain 8 ...) ts)) (if (and org-prefix-has-time org-agenda-remove-times-when-in-prefix (or stamp plain) (string-match ... txt) (not ...) (if ... ... t)) (setq txt (replace-match "" nil nil txt)))) (if s1 (setq s1 (org-get-time-of-day s1 (quote string) t))) (if s2 (setq s2 (org-get-time-of-day s2 (quote string) t))) (when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 (org-minutes-to-hh:mm-string (+ ... org-agenda-default-appointment-duration)))) (when s2 (setq duration (- (org-hh:mm-string-to-minutes s2) (org-hh:mm-string-to-minutes s1))))) (when (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (if (or (eq org-agenda-remove-
tags t) (and org-agenda-remove-tags org-prefix-has-tag)) (setq txt (replace-match "" t t txt)) (setq txt (replace-match (concat ... ...) t t txt)))) (when (derived-mode-p (quote org-mode)) (
setq effort (condition-case nil (org-get-effort (or ... ...)) (error nil))) (when effort (setq neffort (org-duration-string-to-minutes effort) effort (setq effort (concat "[" effort "]"))))) (or effort (setq effort "")) (when remove-re (while (string-match remove-re txt) (setq txt (replace-match "" t t txt)))) (add-text-properties 0 (length txt) (quote (org-heading t)) txt) (setq time (cond (s2 (concat (org-agenda-time-of-day-to-ampm-maybe s1) "-" (org-agenda-time-of-day-to-ampm-maybe s2) (if org-agenda-timegrid-use-ampm " "))) (s1 (concat (org-agenda-time-of-day-to-ampm-maybe s1) (if org-agenda-timegrid-use-ampm "........ " "......"))) (t "")) extra (or (and (not habitp) extra) "") category (if (symbolp category) (symbol-name category) category) thecategory (copy-sequence category)) (if
(string-match org-bracket-link-regexp category) (progn (setq l (if (match-end 3) (- ... ...) (- ... ...))) (when (< l (or org-prefix-category-length 0)) (setq category (copy-sequence categor
y)) (org-add-props category nil (quote extra-space) (make-string ... 32)))) (if (and org-prefix-category-max-length (>= (length category) org-prefix-category-max-length)) (setq category (substring category 0 (1- org-prefix-category-max-length))))) (setq rtn (concat (eval formatter) txt)) (remove-text-properties 0 (length rtn) (quote (line-prefix t wrap-prefix t)) rtn) (org-add-props rtn nil (quote org-category) (if thecategory (downcase thecategory) category) (quote tags) (mapcar (quote org-downcase-keep-props) tags) (quote org-highest-priority) org-highest-priority (quote org-lowest-priority) org-lowest-priority (quote time-of-day) time-of-day (quote duration) duration (quote effort) effort (quote effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra (quote format
) org-prefix-format-compiled (quote dotime) dotime))) (set-match-data save-match-data-internal (quote evaporate)))
(let ((save-match-data-internal (match-data))) (unwind-protect (progn (setq txt (org-trim txt)) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* ((category (or category (if ... org-category ...) (if buffer-file-name ... ""))) (category-icon (org-agenda-get-category-icon category)) (category-icon (if category-icon (propertize " " ... category-icon) "")) (tag (if tags (nth ... tags) "")) time effort neffort (ts (if dotime (concat ... ...))) (time-of-day (and dotime (org-get-time-of-day ts))) stamp plain s0 s1 s2 rtn srp l duration thecategory) (and (derived-mode-p (quote org-mode)) buffer-file-name (add-to-list (quote org-agenda-contributing-files) buffer-file-name)) (when (and dotime time-of-day) (when (or (setq stamp ...
) (setq plain ...)) (setq s0 (match-string 0 ts) srp (and stamp ...) s1 (match-string ... ts) s2 (match-string ... ts)) (if (and org-prefix-has-time org-agenda-remove-times-when-in-prefix ..
. ... ... ...) (setq txt ...))) (if s1 (setq s1 (org-get-time-of-day s1 ... t))) (if s2 (setq s2 (org-get-time-of-day s2 ... t))) (when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 (org-minutes-to-hh:mm-string ...))) (when s2 (setq duration (- ... ...)))) (when (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (if (or (eq org-agenda-remove-tags t) (and org-agenda-remove-tags org-prefix-has-tag)) (setq txt (replace-match "" t t txt)) (setq txt (replace-match ... t t txt)))) (when (derived-mode-p (quote org-mode)) (setq effort (condition-case nil (org-get-effort ...) (error nil))) (when effort (setq neffort (org-duration-string-to-minutes effort) effort (setq effort ...)))) (or effort (setq effort "")) (when remove-re (while (string-match remove-
re txt) (setq txt (replace-match "" t t txt)))) (add-text-properties 0 (length txt) (quote (org-heading t)) txt) (setq time (cond (s2 (concat ... "-" ... ...)) (s1 (concat ... ...)) (t ""))
extra (or (and (not habitp) extra) "") category (if (symbolp category) (symbol-name category) category) thecategory (copy-sequence category)) (if (string-match org-bracket-link-regexp category) (progn (setq l (if ... ... ...)) (when (< l ...) (setq category ...) (org-add-props category nil ... ...))) (if (and org-prefix-category-max-length (>= ... org-prefix-category-max-length)) (setq category (substring category 0 ...)))) (setq rtn (concat (eval formatter) txt)) (remove-text-properties 0 (length rtn) (quote (line-prefix t wrap-prefix t)) rtn) (org-add-props rtn nil (quote org-category) (if thecategory (downcase thecategory) category) (quote tags) (mapcar (quote org-downcase-keep-props) tags) (quote org-highest-priority) org-highest-priority (quote org-lowest-priority) org-lowest-priorit
y (quote time-of-day) time-of-day (quote duration) duration (quote effort) effort (quote effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra (quote format) org-pref
ix-format-compiled (quote dotime) dotime))) (set-match-data save-match-data-internal (quote evaporate))))
(save-match-data (setq txt (org-trim txt)) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* ((category (or category (if (stringp org-category) org-category (and org-category (symbol-name org-category))) (if buffer-file-name (file-name-sans-extension (file-name-nondirectory buffer-file-name)) ""))) (category-icon (org-agenda-get-category-icon category)) (category-icon (if category-icon (propertize " " (quote display) category-icon) "")) (tag (if tags (nth (1- (length tags)) tags) "")) time effort neffort (ts (if dotime (concat (if (stringp dotime) dotime "") (and org-agenda-search-headline-for-time txt)))) (time-of-day (and dotime (org-get-time-of-day ts))) stamp plain s0 s1 s2 rtn srp l duration thecategory) (and (derive
d-mode-p (quote org-mode)) buffer-file-name (add-to-list (quote org-agenda-contributing-files) buffer-file-name)) (when (and dotime time-of-day) (when (or (setq stamp (string-match org-stamp
-time-of-day-regexp ts)) (setq plain (string-match org-plain-time-of-day-regexp ts))) (setq s0 (match-string 0 ts) srp (and stamp (match-end 3)) s1 (match-string (if plain 1 2) ts) s2 (match-string (if plain 8 (if srp 4 6)) ts)) (if (and org-prefix-has-time org-agenda-remove-times-when-in-prefix (or stamp plain) (string-match (concat ... " *") txt) (not (equal 93 ...)) (if (eq org-agenda-remove-times-when-in-prefix ...) (= ... 0) t)) (setq txt (replace-match "" nil nil txt)))) (if s1 (setq s1 (org-get-time-of-day s1 (quote string) t))) (if s2 (setq s2 (org-get-time-of-day s2 (quote string) t))) (when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 (org-minutes-to-hh:mm-string (+ (org-hh:mm-string-to-minutes s1) org-agenda-default-appointment-duration)))) (when s2 (setq
duration (- (org-hh:mm-string-to-minutes s2) (org-hh:mm-string-to-minutes s1))))) (when (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (if (or (eq org-agenda-remove
-tags t) (and org-agenda-remove-tags org-prefix-has-tag)) (setq txt (replace-match "" t t txt)) (setq txt (replace-match (concat (make-string ... 32) (match-string 2 txt)) t t txt)))) (when (derived-mode-p (quote org-mode)) (setq effort (condition-case nil (org-get-effort (or (get-text-property 0 ... txt) (get-text-property 0 ... txt))) (error nil))) (when effort (setq neffort (org-duration-string-to-minutes effort) effort (setq effort (concat "[" effort "]"))))) (or effort (setq effort "")) (when remove-re (while (string-match remove-re txt) (setq txt (replace-match "" t t txt)))) (add-text-properties 0 (length txt) (quote (org-heading t)) txt) (setq time (cond (s2 (concat (org-agenda-time-of-day-to-ampm-maybe s1) "-" (org-agenda-time-of-day-to-ampm-maybe s2) (if org-agenda-timegrid-use-
ampm " "))) (s1 (concat (org-agenda-time-of-day-to-ampm-maybe s1) (if org-agenda-timegrid-use-ampm "........ " "......"))) (t "")) extra (or (and (not habitp) extra) "") category (if (symbol
p category) (symbol-name category) category) thecategory (copy-sequence category)) (if (string-match org-bracket-link-regexp category) (progn (setq l (if (match-end 3) (- (match-end 3) (match-beginning 3)) (- (match-end 1) (match-beginning 1)))) (when (< l (or org-prefix-category-length 0)) (setq category (copy-sequence category)) (org-add-props category nil (quote extra-space) (make-string (- org-prefix-category-length l 1) 32)))) (if (and org-prefix-category-max-length (>= (length category) org-prefix-category-max-length)) (setq category (substring category 0 (1- org-prefix-category-max-length))))) (setq rtn (concat (eval formatter) txt)) (remove-text-properties 0 (length rtn) (quote (line-prefix t wrap-prefix t)) rtn) (org-add-props rtn nil (quote org-category) (if thecategory (downcas
e thecategory) category) (quote tags) (mapcar (quote org-downcase-keep-props) tags) (quote org-highest-priority) org-highest-priority (quote org-lowest-priority) org-lowest-priority (quote t
ime-of-day) time-of-day (quote duration) duration (quote effort) effort (quote effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra (quote format) org-prefix-format-compiled (quote dotime) dotime)))
(let* ((bindings (car org-prefix-format-compiled)) (formatter (cadr org-prefix-format-compiled))) (loop for (var value) in bindings do (set var value)) (save-match-data (setq txt (org-trim txt)) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* ((category (or category (if (stringp org-category) org-category (and org-category ...)) (if buffer-file-name (file-name-sans-extension ...) ""))) (category-icon (org-agenda-get-category-icon category)) (category-icon (if category-icon (propertize " " (quote display) category-icon) "")) (tag (if tags (nth (1- ...) tags) "")) time effort neffort (ts (if dotime (concat (if ... dotime "") (and org-agenda-search-headline-for-time txt)))) (time-of-day (and dotime (org-get-time-of-day ts)
)) stamp plain s0 s1 s2 rtn srp l duration thecategory) (and (derived-mode-p (quote org-mode)) buffer-file-name (add-to-list (quote org-agenda-contributing-files) buffer-file-name)) (when (a
nd dotime time-of-day) (when (or (setq stamp (string-match org-stamp-time-of-day-regexp ts)) (setq plain (string-match org-plain-time-of-day-regexp ts))) (setq s0 (match-string 0 ts) srp (and stamp (match-end 3)) s1 (match-string (if plain 1 2) ts) s2 (match-string (if plain 8 ...) ts)) (if (and org-prefix-has-time org-agenda-remove-times-when-in-prefix (or stamp plain) (string-match ... txt) (not ...) (if ... ... t)) (setq txt (replace-match "" nil nil txt)))) (if s1 (setq s1 (org-get-time-of-day s1 (quote string) t))) (if s2 (setq s2 (org-get-time-of-day s2 (quote string) t))) (when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 (org-minutes-to-hh:mm-string (+ ... org-agenda-default-appointment-duration)))) (when s2 (setq duration (- (org-hh:mm-string-to-minutes s2)
(org-hh:mm-string-to-minutes s1))))) (when (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (if (or (eq org-agenda-remove-tags t) (and org-agenda-remove-tags org-pref
ix-has-tag)) (setq txt (replace-match "" t t txt)) (setq txt (replace-match (concat ... ...) t t txt)))) (when (derived-mode-p (quote org-mode)) (setq effort (condition-case nil (org-get-effort (or ... ...)) (error nil))) (when effort (setq neffort (org-duration-string-to-minutes effort) effort (setq effort (concat "[" effort "]"))))) (or effort (setq effort "")) (when remove-re (while (string-match remove-re txt) (setq txt (replace-match "" t t txt)))) (add-text-properties 0 (length txt) (quote (org-heading t)) txt) (setq time (cond (s2 (concat (org-agenda-time-of-day-to-ampm-maybe s1) "-" (org-agenda-time-of-day-to-ampm-maybe s2) (if org-agenda-timegrid-use-ampm " "))) (s1 (concat (org-agenda-time-of-day-to-ampm-maybe s1) (if org-agenda-timegrid-use-ampm "........ " "......"))) (t ""))
extra (or (and (not habitp) extra) "") category (if (symbolp category) (symbol-name category) category) thecategory (copy-sequence category)) (if (string-match org-bracket-link-regexp catego
ry) (progn (setq l (if (match-end 3) (- ... ...) (- ... ...))) (when (< l (or org-prefix-category-length 0)) (setq category (copy-sequence category)) (org-add-props category nil (quote extra-space) (make-string ... 32)))) (if (and org-prefix-category-max-length (>= (length category) org-prefix-category-max-length)) (setq category (substring category 0 (1- org-prefix-category-max-length))))) (setq rtn (concat (eval formatter) txt)) (remove-text-properties 0 (length rtn) (quote (line-prefix t wrap-prefix t)) rtn) (org-add-props rtn nil (quote org-category) (if thecategory (downcase thecategory) category) (quote tags) (mapcar (quote org-downcase-keep-props) tags) (quote org-highest-priority) org-highest-priority (quote org-lowest-priority) org-lowest-priority (quote time-of-day) time-of-day
(quote duration) duration (quote effort) effort (quote effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra (quote format) org-prefix-format-compiled (quote dotime)
dotime))))
org-agenda-format-item(nil "----------------" "" nil "08:00")
(cons (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new)
(setq new (cons (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new))
(push (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new)
(if (and remove (member time have)) nil (setq time (replace-regexp-in-string " " "0" (format "%04s" time))) (push (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new) (put-text-property 2 (length (car new)) (quote face) (quote org-time-grid) (car new)))
(unless (and remove (member time have)) (setq time (replace-regexp-in-string " " "0" (format "%04s" time))) (push (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new) (put-text-property 2 (length (car new)) (quote face) (quote org-time-grid) (car new)))
(while (setq time (pop gridtimes)) (unless (and remove (member time have)) (setq time (replace-regexp-in-string " " "0" (format "%04s" time))) (push (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new) (put-text-property 2 (length (car new)) (quote face) (quote org-time-grid) (car new))))
(let* ((have (delq nil (mapcar (lambda (x) (get-text-property 1 (quote time-of-day) x)) list))) (string (nth 1 org-agenda-time-grid)) (gridtimes (nth 2 org-agenda-time-grid)) (req (car org-agenda-time-grid)) (remove (member (quote remove-match) req)) new time) (if (and (member (quote require-timed) req) (not have)) (throw (quote exit) list)) (while (setq time (pop gridtimes)) (unless (and remove (member time have)) (setq time (replace-regexp-in-string " " "0" (format "%04s" time))) (push (org-agenda-format-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new) (put-text-property 2 (length (car new)) (quote face) (quote org-time-grid) (car new)))) (when (and todayp org-agenda-show-current-time-in-grid) (push (org-agenda-format-item nil org-agenda-current-time-
string "" nil (format-time-string "%H:%M ")) new) (put-text-property 2 (length (car new)) (quote face) (quote org-agenda-current-time) (car new))) (if (member (quote time-up) org-agenda-sort
ing-strategy-selected) (append new list) (append list new)))
(catch (quote exit) (cond ((not org-agenda-use-time-grid) (throw (quote exit) list)) ((and todayp (member (quote today) (car org-agenda-time-grid)))) ((and (= ndays 1) (member (quote daily) (car org-agenda-time-grid)))) ((member (quote weekly) (car org-agenda-time-grid))) (t (throw (quote exit) list))) (let* ((have (delq nil (mapcar (lambda (x) (get-text-property 1 ... x)) list))) (string (nth 1 org-agenda-time-grid)) (gridtimes (nth 2 org-agenda-time-grid)) (req (car org-agenda-time-grid)) (remove (member (quote remove-match) req)) new time) (if (and (member (quote require-timed) req) (not have)) (throw (quote exit) list)) (while (setq time (pop gridtimes)) (unless (and remove (member time have)) (setq time (replace-regexp-in-string " " "0" (format "%04s" time))) (push (org-agenda-forma
t-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) new) (put-text-property 2 (length (car new)) (quote face) (quote org-time-grid) (car new)))) (when (and today
p org-agenda-show-current-time-in-grid) (push (org-agenda-format-item nil org-agenda-current-time-string "" nil (format-time-string "%H:%M ")) new) (put-text-property 2 (length (car new)) (quote face) (quote org-agenda-current-time) (car new))) (if (member (quote time-up) org-agenda-sorting-strategy-selected) (append new list) (append list new))))
org-agenda-add-time-grid-maybe((#(" Appt: 19:00...... APPT Daily status " 0 2 (org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1900 duration nil effort "" effort-minutes nil txt #("APPT Daily status " 0 18 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time "19:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (for
mat "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-05 Wed 19:00 +1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weathe
r")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker #<marker at 436 in appts.org> org-hd-marker #<marker at 415 in appts.org> date (9 12 2012) level " " org-category-position 80 ...) 2 6 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1900 duration nil effort "" effort-minutes nil txt #("APPT Daily status " 0 18 (fontified nil org-c
ategory #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time "19:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (o
rg-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-05 Wed 19:00 +1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face high
light help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker #<marker at 436 in appts.org> org-hd-marker #<marker at 415 in appts.org> date (9 12 2012) leve
l " " ...) 6 26 (org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1900 duration nil effort "" effort-minutes nil txt #("APPT Daily status " 0 18 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time "19:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #(
"<2012-09-05 Wed 19:00 +1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-rege
xp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker #<marker at 436 in appts.org> org-hd-marker #<marker at 415 in appts.org> date (9 12 2012) level " " org-category-position 80 ...) 26 44 (org-heading t org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1900 duration nil effort "" effort-minutes nil txt #("APPT Daily status " 0 18 (fontified nil org-category #("Appt" 0 4 (fontif
ied nil org-category "Weather")) org-category-position 80 org-heading t)) time "19:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12
) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-05 Wed 19:00 +1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or
RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker #<marker at 436 in appts.org> org-hd-marker #<marker at 415 in appts.org> ...)) #(" Appt: 9:00...... APPT Thyroid m
ed " 0 2 (org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 900 duration nil effort "" effort-minutes nil txt #("APPT Thyroid med " 0 17 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time " 9:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-
11 Tue 09:00 +1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APP
T\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker #<marker at 13706 in appts.org> org-hd-marker #<marker at 13686 in appts.org> date (9 12 2012) level " " org-category-position 80 ...) 2 6 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 900 duration nil effort "" effort-minutes nil txt #("APPT Thyroid med " 0 17 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-pos
ition 80 org-heading t)) time " 9:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%
s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-11 Tue 09:00 +1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priorit
y 1000 org-marker #<marker at 13706 in appts.org> org-hd-marker #<marker at 13686 in appts.org> date (9 12 2012) level " " ...) 6 26 (org-category #("Appt" 0 4 (fontified nil org-category "
Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 900 duration nil effort "" effort-minutes nil txt #("APPT Thyroid med " 0 17 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time " 9:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-11 Tue 09:00 +1d>" 0 26 (org-category-position 80 org-category #(
"Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex
-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker #<marker at 13706 in appts.org> org-hd-marker #<marker at 13686 in appts.org> date (9 12 2012) level " " org-category-position 80 ...) 26 43 (org-heading t org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 900 duration nil effort "" effort-minutes nil txt #("APPT Thyroid med " 0 17 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t))
time " 9:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equ
al category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-09-11 Tue 09:00 +1d>" 0 26 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker #<mark
er at 13706 in appts.org> org-hd-marker #<marker at 13686 in appts.org> ...)) #(" Appt: 16:00...... APPT Register laptops " 0 2 (org-category #("Appt" 0 4 (fontified nil org-category
"Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1600 duration nil effort "" effort-minutes nil txt #("APPT Register laptops " 0 22 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time "16:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-07-16 Mon 16:00 +29d>" 0 27 (org-category-position 80 org-cat
egory #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org
-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker #<marker at 30485 in appts.org> org-hd-marker #<marker at 30460 in appts.org> date (9 12 2012) level " " org-category-position 80 ...) 2 6 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1600 duration nil effort "" effort-minutes nil txt #("APPT Register laptops " 0 22 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time "16:00......" extra "
" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (co
ncat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-07-16 Mon 16:00 +29d>" 0 27 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker #<marker at 30485 in appts.org>
org-hd-marker #<marker at 30460 in appts.org> date (9 12 2012) level " " ...) 6 26 (org-category #("Appt" 0 4 (fontified nil org-category "Weather")) tags nil org-highest-priority 65 org-lo
west-priority 67 time-of-day 1600 duration nil effort "" effort-minutes nil txt #("APPT Register laptops " 0 22 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time "16:00......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-07-16 Mon 16:00 +29d>" 0 27 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Wea
ther")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\
\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker #<marker at 30485 in appts.org> org-hd-marker #<marker at 30460 in appts.org> date (9 12 2012) level " " org-category-position 80 ...) 26 48 (org-heading t org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1600 duration nil effort "" effort-minutes nil txt #("APPT Register laptops " 0 22 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80 org-heading t)) time "16:00......" extra "" format (
((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat categ
ory-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime #("<2012-07-16 Mon 16:00 +29d>" 0 27 (org-category-position 80 org-category #("Appt" 0 4 (fontified nil org-category "Weather")) fontified nil)) face org-agenda-calendar-event org-not-done-regexp "\\(APPT\\)" org-todo-regexp "\\(APPT\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(APPT\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" priority 1000 org-marker #<marker at 30485 in appts.org> org-hd-mar
ker #<marker at 30460 in appts.org> ...)) #(" Weather: 6:24...... Sunrise " 0 2 (org-category #("Weather" 0 7 (fontified nil org-category #("Anniv" 0 5 (fontified nil org-category #("Ho
liday" 0 7 ...) org-category-position 36765)) org-category-position 36810)) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 624 duration nil effort "" effort-minutes nil txt #("Sunrise " 0 8 (org-heading t)) time " 6:24......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time face org-agenda-calendar-sexp mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" org-mar
ker #<marker at 37316 in appts.org> date (9 12 2012) todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80)) org-c
ategory-position 36855 level " " type "sexp" warntime nil) 2 9 (fontified nil org-category #("Weather" 0 7 (fontified nil org-category #("Anniv" 0 5 (fontified nil org-category #("Holiday" 0 7 ...) org-category-position 36765)) org-category-position 36810)) org-category-position 36855 tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 624 duration nil effort "" effort-minutes nil txt #("Sunrise " 0 8 (org-heading t)) time " 6:24......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ..
. "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time face org-agenda-calendar-sexp mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/or
g/appts.org" org-marker #<marker at 37316 in appts.org> date (9 12 2012) todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80)) level " " type "sexp" warntime nil) 9 26 (org-category #("Weather" 0 7 (fontified nil org-category #("Anniv" 0 5 (fontified nil org-category #("Holiday" 0 7 ...) org-category-position 36765)) org-category-position 36810)) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 624 duration nil effort "" effort-minutes nil txt #("Sunrise " 0 8 (org-heading t)) time " 6:24......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat
category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") ""
(concat extra " " ...))))) dotime time face org-agenda-calendar-sexp mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" org-marker #<marker at 37316 in appts.org> date (9 12 2012) todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80)) org-category-position 36855 level " " type "sexp" warntime nil) 26 34 (org-heading t org-category #("Weather" 0 7 (fontified nil org-category #("Anniv" 0 5 (fontified nil org-category #("Holiday" 0 7 ...) org-category-position 36765)) org-category-position 36810)) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 624 duration nil effort "" effort-minutes nil txt #("Sunrise " 0 8 (org-heading t)) time " 6:24......" extra "" format (
((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat categ
ory-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time face org-agenda-calendar-sexp mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" org-marker #<marker at 37316 in appts.org> date (9 12 2012) todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80)) org-category-position 36855 level " " type "sexp" warntime nil)) #(" Weather: 18:56...... Sunset " 0 2 (org-category #("Weather" 0 7 (fontified nil org-category #("Anniv" 0 5 (fontified nil org-category #("Holiday" 0 7 ...) org-category-position 36765)) org-categor
y-position 36810)) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1856 duration nil effort "" effort-minutes nil txt #("Sunset " 0 7 (org-heading t)) time "18:56......"
extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time face org-agenda-calendar-sexp mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" org-marker #<marker at 37378 in appts.org> date (9 12 2012) todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80)) org-category-position 36855 level " " type "sexp" warntime nil
) 2 9 (fontified nil org-category #("Weather" 0 7 (fontified nil org-category #("Anniv" 0 5 (fontified nil org-category #("Holiday" 0 7 ...) org-category-position 36765)) org-category-positi
on 36810)) org-category-position 36855 tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1856 duration nil effort "" effort-minutes nil txt #("Sunset " 0 7 (org-heading t)) time "18:56......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time face org-agenda-calendar-sexp mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" org-marker #<marker at 37378 in appts.org> d
ate (9 12 2012) todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80)) level " " type "sexp" warntime nil) 9 26 (
org-category #("Weather" 0 7 (fontified nil org-category #("Anniv" 0 5 (fontified nil org-category #("Holiday" 0 7 ...) org-category-position 36765)) org-category-position 36810)) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1856 duration nil effort "" effort-minutes nil txt #("Sunset " 0 7 (org-heading t)) time "18:56......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time face org-agenda-ca
lendar-sexp mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" org-marker #<marker at 37378 in appts.org> date (9 12 2012) todo-state #("DONE" 0 4 (fontifie
d nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80)) org-category-position 36855 level " " type "sexp" warntime nil) 26 33 (org-heading t org-category #("Weather" 0 7 (fontified nil org-category #("Anniv" 0 5 (fontified nil org-category #("Holiday" 0 7 ...) org-category-position 36765)) org-category-position 36810)) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day 1856 duration nil effort "" effort-minutes nil txt #("Sunset " 0 7 (org-heading t)) time "18:56......" extra "" format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category ""
) "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time face org-agenda-calendar
-sexp mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/appts.org" org-marker #<marker at 37378 in appts.org> date (9 12 2012) todo-state #("DONE" 0 4 (fontified nil org-category #("Appt" 0 4 (fontified nil org-category "Weather")) org-category-position 80)) org-category-position 36855 level " " type "sexp" warntime nil)) #(" Home: Sched. 3x: TODO epoxy sony part - again" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO epoxy sony part - again" 0 28 (org-heading t)) time "" extra "Sched. 3x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort ni
l)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" tim
e) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 181 in home.org> org-hd-marker
#<marker at 135 in home.org> type "past-scheduled" date 734756 ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 6
5 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO epoxy sony part - again" 0 28 (org-heading t)) time "" extra "Sched. 3x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-
complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?
\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 181 in home.org> org-hd-marker #<marker at 135 in home.org> type "past-scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO epoxy sony part - again" 0 28 (org-heading t)) time "" extra "Sched. 3x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "
") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal
extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 181 in home.org> org-hd-marker #<marker at 135 in home.org> type "past-scheduled" date 734756
...) 26 54 (org-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "
" effort-minutes nil txt #("TODO epoxy sony part - again" 0 28 (org-heading t)) time "" extra "Sched. 3x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|
WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-fa
ce org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 181 in home.org> org-hd-marker #<marker at 135 in home.org> type "past-scheduled" ...)) #(" Home: Sched.12x: TODO Backup src/music/choir/tape-transcriptions/2011-*" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Backup src/music/choir/tape-transcriptions/2011-*" 0 54 (org-heading t)) time "" extra "Sched.12x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %
s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "
%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 297 in home.org> org-hd-marker #<marker at 22
5 in home.org> type "past-scheduled" date 734747 ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-pr
iority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Backup src/music/choir/tape-transcriptions/2011-*" 0 54 (org-heading t)) time "" extra "Sched.12x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELL
ED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\
(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 297 in home.org> org-hd-marker #<marker at 225 in home.org> type "past-scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Backup src/music/choir/tape-transcriptions/2011-*" 0 54 (org-heading t)) time "" extra "Sched.12x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (f
ormat "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if .
.. "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 297 in home.org> org-hd-marker #<marker at 225 in home.or
g> type "past-scheduled" date 734747 ...) 26 80 (org-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67
time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Backup src/music/choir/tape-transcriptions/2011-*" 0 54 (org-heading t)) time "" extra "Sched.12x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org
-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*
?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 297 in home.org> org-hd-marker #<marker at 225 in home.org> type "past-scheduled" ...)) #(" Home: Sched.13x: TODO update GPG key" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO update GPG key" 0 19 (org-heading t)) time "" extra "Sched.13x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%
s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s"
(if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 377 in home.org> org-hd-marker #<marker at 340 in ho
me.org> type "past-scheduled" date 734746 ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority
67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO update GPG key" 0 19 (org-heading t)) time "" extra "Sched.13x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*
+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:
]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 377 in home.org> org-hd-marker #<marker at 340 in home.org> type "past-scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO update GPG key" 0 19 (org-heading t)) time "" extra "Sched.13x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (f
ormat "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...)))))
dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 377 in home.org> org-hd-marker #<marker at 340 in home.org> type "past-scheduled" date 734746 ...) 26 45 (org-heading t org-category #
("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO update
GPG key" 0 19 (org-heading t)) time "" extra "Sched.13x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|ST
ARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo
"mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 377 in home.org> org-hd-marker #<marker at 340 in home.org> type "past-scheduled" ...)) #(" Home: Sched.72x: STARTED Router" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("STARTED Router" 0 14 (org-heading t)) time "" extra "Sched.72x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") ""
(concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\
\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 1789 in home.org> org-hd-marker #<marker at 1757 in home.org> type "past-scheduled" date 734687 ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category
"Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("STARTED Router" 0 14 (org-heading t)) time "" extra
"Sched.72x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?
: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/h
ome.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 1789 in home.org> org-hd-marker #<marker at 1757 in home.org> type "past-scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("STARTED Router" 0 14 (org-heading t)) time "" extra "Sched.72x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (f
ormat "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|
WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 1789 in home.org> org-hd-marker #<marker at 1757 in home.org> type "past-scheduled" date 734687 ...) 26 40 (org-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day n
il duration nil effort "" effort-minutes nil txt #("STARTED Router" 0 14 (org-heading t)) time "" extra "Sched.72x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-ca
tegory-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*
$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker
#<marker at 1789 in home.org> org-hd-marker #<marker at 1757 in home.org> type "past-scheduled" ...)) #(" Home: Sched.123x: TODO Work on music DB [[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music DB (external link)]]" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Work on music DB [[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music DB (external link)]]" 0 101 (org-heading t)) time "" extra "Sched.123x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" .
..))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " .
..))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 2320 in home.org> org-hd-marker #<marker at 2109 in home.org> type "past-scheduled" date 734636 ...) 2 6 (fontified nil org-ca
tegory #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO
Work on music DB [[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music DB (external link)]]" 0 101 (org-heading t)) time "" extra "Sched.123x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-reg
exp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\
\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 2320 in home.org> org-hd-marker #<marker at 2109 in home.org> type "past-scheduled" ...) 6 27 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Work on music DB [[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music DB (external link)]]" 0 101 (org-heading t)) time "" extra "Sched.123x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (f
ormat " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) ""
(format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 2320 in home.org> org-hd-marker #<ma
rker at 2109 in home.org> type "past-scheduled" date 734636 ...) 27 128 (org-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65
org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Work on music DB [[file:/alphaville.ath.cx:~/src/music/choir/db/src/][music DB (external link)]]" 0 101 (org-heading t)) time "" extra "Sched.123x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|C
ANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED
\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 2320 in home.org> org-hd-marker #<marker at 2109 in home.org> type "past-scheduled" ...)) #(" Home: Scheduled: TODO Choir piece" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece" 0 16 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefi
x-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "
" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<ma
rker at 3138 in home.org> org-hd-marker #<marker at 3104 in home.org> type "scheduled" date (9 12 2012) ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category "Acquisi
tions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece" 0 16 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITIN
G\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\
(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 3138 in home.org> org-hd-marker #<marker at 3104 in home.org> type "scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece" 0 16 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-ic
on "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (eq
ual extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 3138 in home.org> org-hd-marker #<marker at 3104 in home.org> type "scheduled" date (9 12 2012) ...
) 26 42 (org-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" e
ffort-minutes nil txt #("TODO Choir piece" 0 16 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE
\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-
done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 3138 in home.org> org-hd-marker #<marker at 3104 in home.org> type "scheduled" ...)) #(" Home: Scheduled: TODO Choir piece - upload to ftp site, print, braille for March 31, 2013" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece - upload to ftp site, print, braille for March 31, 2013" 0 72 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (f
ormat " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) ""
(format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 3471 in home.org> org-hd-marker #<marker at 3
381 in home.org> type "scheduled" date (9 12 2012) ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-
priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece - upload to ftp site, print, braille for March 31, 2013" 0 72 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAI
TING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?:
+\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 3471 in home.org> org-hd-marker #<marker at 3381 in home.org> type "scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece - upload to ftp site, print, braille for March 31, 2013" 0 72 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil
)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time
) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 3471 in home.org> org-hd-marker #<marker
at 3381 in home.org> type "scheduled" date (9 12 2012) ...) 26 98 (org-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-
lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Choir piece - upload to ftp site, print, braille for March 31, 2013" 0 72 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTE
D\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)
?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 3471 in home.org> org-hd-marker #<marker at 3381 in home.org> type "scheduled" ...)) #(" Home: Scheduled: TODO Fix \"If ye love me\"" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Fix \"If ye love me\"" 0 24 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-pre
fix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...)))
(if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 4030 in home.org> org-
hd-marker #<marker at 3988 in home.org> type "scheduled" date (9 12 2012) ...) 2 6 (fontified nil org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-
priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Fix \"If ye love me\"" 0 24 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED
\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?
: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 4030 in home.org> org-hd-marker #<marker at 3988 in home.org> type "scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Fix \"If ye love me\"" 0 24 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") ""
(concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra
"") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 4030 in home.org> org-hd-marker #<marker at 3988 in home.org> type "scheduled" date (9 12 2012) ...) 26 50 (o
rg-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minu
tes nil txt #("TODO Fix \"If ye love me\"" 0 24 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE
\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-
done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 4030 in home.org> org-hd-marker #<marker at 3988 in home.org> type "scheduled" ...)) #(" Home: Scheduled: TODO Gesu Bambino fixup" 0 2 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Gesu Bambino fixup" 0 23 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (f
ormat "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...)))))
dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 4299 in home.org> org-hd-marker #<marker at 4258 in home.org> type "scheduled" date (9 12 2012) ...) 2 6 (fontified nil org-category #("Home" 0
4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Gesu Bambino fix
up" 0 23 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTE
D\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mo
use-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 4299 in home.org> org-hd-marker #<marker at 4258 in home.org> type "scheduled" ...) 6 26 (org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Gesu Bambino fixup" 0 23 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (
format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" o
rg-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-scheduled-today org-marker #<marker at 4299 in home.org> org-hd-marker #<marker at 4258 in home.org> type "scheduled" date (9 12 2012) ...) 26 49 (org-heading t org-category #("Home" 0 4 (fontified nil org-category "Acquisitions")) tags nil org-highest-priority 65 org-lowest
-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO Gesu Bambino fixup" 0 23 (org-heading t)) time "" extra "Scheduled: " format (((org-prefix-has-time t) (org
-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime time org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[
]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-today face org-
scheduled-today org-marker #<marker at 4299 in home.org> org-hd-marker #<marker at 4258 in home.org> type "scheduled" ...)) #(" Finance: Sched.10x: TODO 1st :foo:" 0 2 (org-category #("Finance" 0 7 (fontified nil org-category #("Home" 0 4 (fontified nil org-category #("Home" 0 4 ...) org-category-position 118)) org-category-position 15281)) tags ("foo") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO 1st :foo:" 0 49 (org-heading t)) time "" extra "Sched.10x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (conc
at category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "
" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 21618 in home.org> org-hd-marker #<marker at 21571 in home.org> type "past-scheduled" date 734749 ...) 2
9 (fontified nil org-category #("Finance" 0 7 (fontified nil org-category #("Home" 0 4 (fontified nil org-category #("Home" 0 4 ...) org-category-position 118)) org-category-position 15281))
org-category-position 15281 tags ("foo") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO 1st :foo:" 0 49 (org-heading t)) time "" extra "Sched.10x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING
\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TOD
O\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 21618 in home.org> org-hd-marker #<marker at 21571 in home.org> ...) 9 26 (org-category #("Finance" 0 7 (fontified nil org-category #("Home" 0 4 (fontified nil org-category #("Home" 0 4 ...) org-category-position 118)) org-category-position 15281)) tags ("foo") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO 1st :foo:" 0 49 (org-heading t)) time "" extr
a "Sched.10x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-i
con "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (equal extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org
/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 21618 in home.org> org-hd-marker #<marker at 21571 in home.org> type "past-scheduled" dat
e 734749 ...) 26 75 (org-heading t org-category #("Finance" 0 7 (fontified nil org-category #("Home" 0 4 (fontified nil org-category #("Home" 0 4 ...) org-category-position 118)) org-category-position 15281)) tags ("foo") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil txt #("TODO 1st :foo:" 0 49 (org-heading t)) time "" extra "Sched.10x: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil)) (format " %s %s%s%s" (format "%s" (if (equal category-icon "") "" (concat category-icon "" ...))) (format "%-12s" (if (equal category "") "" (concat category ":" ...))) (if (equal "" time) "" (format "%-12s" (if ... "" ...))) (format "%s" (if (e
qual extra "") "" (concat extra " " ...))))) dotime nil org-not-done-regexp "\\(TODO\\|STARTED\\|WAITING\\|TODO\\|STARTED\\|WAITING\\)" org-todo-regexp "\\(TODO\\|STARTED\\|WAITING\\|DONE\\|
CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\|DEFERRED\\|TODO\\|STARTED\\|WAITING\\|DONE\\|CANCELLED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" done-face org-agenda-done mouse-face highlight help-echo "mouse-2 or RET jump to org file ~/lib/org/home.org" undone-face org-scheduled-previously face org-scheduled-previously org-marker #<marker at 21618 in home.org> org-hd-marker #<marker at 21571 in home.org> type "past-scheduled" ...))) 30 t)
(setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp))
(progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date (org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") (put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- (point)) (quote org-today) t)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt))
(if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date (org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") (put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- (point)) (quote org-today) t)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote
org-day-cnt) day-cnt)))
(while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos (point)))) (setq files thefiles rtnall nil) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (let ((org-agenda-entry-types org-agenda-entry-types)) (unless org-agenda-include-deadlines (setq org-agenda-entry-types (delq :deadline org-agenda-entry-types))) (cond ((memq org-agenda-show-log-scoped (quote ...)) (setq rtn (org-agenda-get-day-entries file date :closed))) (org-agenda-show-log-scoped (setq rtn (apply ... file date ...))) (t (setq rtn (apply ... file date org-agenda-entry-types))))) (setq rtnall (append rtnall rtn))))
(if org-agenda-include-diary (let ((org-agenda-search-headline-for-time t)) (require (quote diary-lib)) (setq rtn (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) (if
(or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date (org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") (put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- (point)) (quote org-today) t)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote org-
day-cnt) day-cnt))))
(let* ((span (org-agenda-ndays-to-span (or span org-agenda-ndays org-agenda-span))) (today (org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-ndays span sd)) (org-agenda-start-on-weekday (if (eq ndays 7) org-agenda-start-on-weekday)) (thefiles (org-agenda-files nil (quote ifmode))) (files thefiles) (start (if (or (null org-agenda-start-on-weekday) (< ndays 7)) sd (let* ((nt (calendar-day-of-week ...)) (n1 org-agenda-start-on-weekday) (d (- nt n1))) (- sd (+ (if ... 7 0) d))))) (day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (not debug-on-error)) (org-agenda-show-log-scoped org-agenda-show-log) s e rtn rtnall file date d start-pos end-pos todayp clocktable-start clocktable-end filter) (setq org-agenda-redo-command (list (quote org-agenda-list) (list (quote quote)
arg) start-day (list (quote quote) span))) (dotimes (n (1- ndays)) (push (1+ (car day-numbers)) day-numbers)) (setq day-numbers (nreverse day-numbers)) (setq clocktable-start (car day-number
s) clocktable-end (1+ (or (org-last day-numbers) 0))) (org-set-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote org-arg-loc) arg) (org-set-local (quote org-agenda-current-span) (org-agenda-ndays-to-span span)) (unless org-agenda-compact-blocks (let* ((d1 (car day-numbers)) (d2 (org-last day-numbers)) (w1 (org-days-to-iso-week d1)) (w2 (org-days-to-iso-week d2))) (setq s (point)) (if org-agenda-overriding-header (insert (org-add-props (copy-sequence org-agenda-overriding-header) nil (quote face) (quote org-agenda-structure)) "\n") (insert (org-agenda-span-name span) "-agenda" (if (< (- d2 d1) 350) (if (= w1 w2) (format " (W%02d)" w1) (format " (W%02d-W%02d)" w1 w2)) "") ":\n"))) (add-text-properties s (1- (point)) (list (quote face) (quote org-agenda-structure) (quot
e org-date-line) t)) (org-agenda-mark-header-line s)) (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (= d today)) (and (not
start-pos) (= d sd))) (setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos (point)))) (setq files thefiles rtnall nil) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (let ((org-agenda-entry-types org-agenda-entry-types)) (unless org-agenda-include-deadlines (setq org-agenda-entry-types (delq :deadline org-agenda-entry-types))) (cond ((memq org-agenda-show-log-scoped ...) (setq rtn ...)) (org-agenda-show-log-scoped (setq rtn ...)) (t (setq rtn ...)))) (setq rtnall (append rtnall rtn)))) (if org-agenda-include-diary (let ((org-agenda-search-headline-for-time t)) (require (quote diary-lib)) (setq rtn (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) (if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1
+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date (org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") (put-text-prop
erty s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- (point)) (quote org-today) t)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt)))) (when (and org-agenda-clockreport-mode clocktable-start) (let ((org-agenda-files (org-agenda-files nil (quote ifmode))) (p (copy-sequence org-agenda-clockreport-parameter-plist)) tbl) (setq p (org-plist-delete p :block)) (setq p (
plist-put p :tstart clocktable-start)) (setq p (plist-put p :tend clocktable-end)) (setq p (plist-put p :scope (quote agenda))) (when (and (eq org-agenda-clockreport-mode (quote with-filter)
) (setq filter (or org-agenda-tag-filter-while-redo (get ... :preset-filter)))) (setq p (plist-put p :tags (mapconcat (lambda ... ...) filter "")))) (setq tbl (apply (quote org-get-clocktable) p)) (insert tbl))) (goto-char (point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) (unless (and (pos-visible-in-window-p (point-min)) (pos-visible-in-window-p (point-max))) (goto-char (1- (point-max))) (recenter -1) (if (not (pos-visible-in-window-p (or start-pos 1))) (progn (goto-char (or start-pos 1)) (recenter 1)))) (goto-char (or start-pos 1)) (add-text-properties (point-min) (point-max) (\` (org-agenda-type agenda org-last-args ((\, arg) (\, start-day) (\, span)) org-redo-cmd (\, org-agenda-redo-command) org-serie-cmd (\, org-cmd)))) (if (eq org-agenda-show-log-scoped (quote clo
ckcheck)) (org-agenda-show-clocking-issues)) (org-agenda-finalize) (setq buffer-read-only t) (message ""))
(catch (quote exit) (setq org-agenda-buffer-name (or org-agenda-buffer-tmp-name (if org-agenda-sticky (cond ((and org-keys (stringp org-match)) (format "*Org Agenda(%s:%s)*" org-keys org-match)) (org-keys (format "*Org Agenda(%s)*" org-keys)) (t "*Org Agenda(a)*"))) org-agenda-buffer-name)) (org-agenda-prepare "Day/Week") (setq start-day (or start-day org-agenda-start-day)) (if (stringp start-day) (setq start-day (time-to-days (org-read-date nil t start-day)))) (org-compile-prefix-format (quote agenda)) (org-set-sorting-strategy (quote agenda)) (let* ((span (org-agenda-ndays-to-span (or span org-agenda-ndays org-agenda-span))) (today (org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-ndays span sd)) (org-agenda-start-on-weekday (if (eq ndays 7) org-agenda-start-on-weekday)
) (thefiles (org-agenda-files nil (quote ifmode))) (files thefiles) (start (if (or (null org-agenda-start-on-weekday) (< ndays 7)) sd (let* ((nt ...) (n1 org-agenda-start-on-weekday) (d ...)
) (- sd (+ ... d))))) (day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (not debug-on-error)) (org-agenda-show-log-scoped org-agenda-show-log) s e rtn rtnall file date d start-pos end-pos todayp clocktable-start clocktable-end filter) (setq org-agenda-redo-command (list (quote org-agenda-list) (list (quote quote) arg) start-day (list (quote quote) span))) (dotimes (n (1- ndays)) (push (1+ (car day-numbers)) day-numbers)) (setq day-numbers (nreverse day-numbers)) (setq clocktable-start (car day-numbers) clocktable-end (1+ (or (org-last day-numbers) 0))) (org-set-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote org-arg-loc) arg) (org-set-local (quote org-agenda-current-span) (org-agenda-ndays-to-span span)) (unless org-agenda-compact-blocks (let* ((d1 (car day
-numbers)) (d2 (org-last day-numbers)) (w1 (org-days-to-iso-week d1)) (w2 (org-days-to-iso-week d2))) (setq s (point)) (if org-agenda-overriding-header (insert (org-add-props (copy-sequence
org-agenda-overriding-header) nil (quote face) (quote org-agenda-structure)) "\n") (insert (org-agenda-span-name span) "-agenda" (if (< ... 350) (if ... ... ...) "") ":\n"))) (add-text-properties s (1- (point)) (list (quote face) (quote org-agenda-structure) (quote org-date-line) t)) (org-agenda-mark-header-line s)) (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos (point)))) (setq files thefiles rtnall nil) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (let ((org-agenda-entry-types org-agenda-entry-types)) (unless org-agenda-include-deadlines (setq org-agenda-entry-types
...)) (cond (... ...) (org-agenda-show-log-scoped ...) (t ...))) (setq rtnall (append rtnall rtn)))) (if org-agenda-include-diary (let ((org-agenda-search-headline-for-time t)) (require (quo
te diary-lib)) (setq rtn (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) (if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date ...) (funcall org-agenda-format-date date)) "\n") (put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt) (when todayp (put-text-property s (1- ...) (quote org-today) t)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (put-text-property s (1-
(point)) (quote day) d) (put-text-property s (1- (point)) (quote org-day-cnt) day-cnt)))) (when (and org-agenda-clockreport-mode clocktable-start) (let ((org-agenda-files (org-agenda-files
nil (quote ifmode))) (p (copy-sequence org-agenda-clockreport-parameter-plist)) tbl) (setq p (org-plist-delete p :block)) (setq p (plist-put p :tstart clocktable-start)) (setq p (plist-put p :tend clocktable-end)) (setq p (plist-put p :scope (quote agenda))) (when (and (eq org-agenda-clockreport-mode (quote with-filter)) (setq filter (or org-agenda-tag-filter-while-redo ...))) (setq p (plist-put p :tags (mapconcat ... filter "")))) (setq tbl (apply (quote org-get-clocktable) p)) (insert tbl))) (goto-char (point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) (unless (and (pos-visible-in-window-p (point-min)) (pos-visible-in-window-p (point-max))) (goto-char (1- (point-max))) (recenter -1) (if (not (pos-visible-in-window-p (or start-pos 1))) (progn (goto-char (or start-pos 1)
) (recenter 1)))) (goto-char (or start-pos 1)) (add-text-properties (point-min) (point-max) (\` (org-agenda-type agenda org-last-args ((\, arg) (\, start-day) (\, span)) org-redo-cmd (\, org
-agenda-redo-command) org-serie-cmd (\, org-cmd)))) (if (eq org-agenda-show-log-scoped (quote clockcheck)) (org-agenda-show-clocking-issues)) (org-agenda-finalize) (setq buffer-read-only t) (message "")))
org-agenda-list()
(let ((org-agenda-window-setup (quote current-window))) (org-agenda-list))
eval-buffer(#<buffer *load*> nil "/home/nick/.emacs" nil t) ; Reading at buffer position 13176
load-with-code-conversion("/home/nick/.emacs" "/home/nick/.emacs" t t)
load("~/.emacs" t t)
#[0 "\b\205\262
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 16:25 ` Nick Dokos
@ 2012-09-12 16:32 ` Bastien
2012-09-12 17:39 ` Nick Dokos
0 siblings, 1 reply; 29+ messages in thread
From: Bastien @ 2012-09-12 16:32 UTC (permalink / raw)
To: nicholas.dokos; +Cc: emacs-orgmode, Greg Troxel
Nick Dokos <nicholas.dokos@hp.com> writes:
> Not quite: I now get the following backtrace.
Can you send me a reproducible minimal recipe?
--
Bastien
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 16:24 ` Bastien
@ 2012-09-12 17:37 ` Nick Dokos
0 siblings, 0 replies; 29+ messages in thread
From: Nick Dokos @ 2012-09-12 17:37 UTC (permalink / raw)
To: Bastien; +Cc: Nicolas Goaziou, emacs-orgmode, Greg Troxel
Bastien <bzg@altern.org> wrote:
> Nick Dokos <nicholas.dokos@hp.com> writes:
>
> > Reverting commits
>
> Yes -- but please bare with us, we want the feature to
> stabilize :)
>
I meant that as a pointer of where things went off the rails -
I certainly don't expect you to revert the commits.
Thanks,
Nick
PS. Any idea about the last backtrace?
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 16:32 ` Bastien
@ 2012-09-12 17:39 ` Nick Dokos
2012-09-12 18:12 ` Nick Dokos
0 siblings, 1 reply; 29+ messages in thread
From: Nick Dokos @ 2012-09-12 17:39 UTC (permalink / raw)
To: Bastien; +Cc: emacs-orgmode, Greg Troxel
Bastien <bzg@altern.org> wrote:
> Nick Dokos <nicholas.dokos@hp.com> writes:
>
> > Not quite: I now get the following backtrace.
>
> Can you send me a reproducible minimal recipe?
>
Not sure - the last thing that .emacs does is bring up the agenda.
Let me try to investigate a bit what exactly breaks.
Nick
PS. Please disregard my question about the last backtrace. I hadn't
gotten through my mail backlog at the time.
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 17:39 ` Nick Dokos
@ 2012-09-12 18:12 ` Nick Dokos
2012-09-12 18:29 ` Nick Dokos
2012-09-12 22:45 ` Bastien
0 siblings, 2 replies; 29+ messages in thread
From: Nick Dokos @ 2012-09-12 18:12 UTC (permalink / raw)
To: Bastien, emacs-orgmode
Nick Dokos <nicholas.dokos@hp.com> wrote:
> Bastien <bzg@altern.org> wrote:
>
> > Nick Dokos <nicholas.dokos@hp.com> writes:
> >
> > > Not quite: I now get the following backtrace.
> >
> > Can you send me a reproducible minimal recipe?
> >
>
> Not sure - the last thing that .emacs does is bring up the agenda.
> Let me try to investigate a bit what exactly breaks.
>
Something goes awry with the agenda time grid. I get the error with
the appended minimal .emacs when I try to bring up the agenda with
C-c a a.
Thanks,
Nick
--8<---------------cut here---------------start------------->8---
;;; -*- mode: emacs-lisp -*-
;;; constant part
(add-to-list 'load-path (expand-file-name "~/src/emacs/org/org-mode/lisp"))
(add-to-list 'load-path (expand-file-name "~/src/emacs/org/org-mode/contrib/lisp"))
(add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$" . org-mode))
(require 'org-install)
(setq debug-on-error t)
(setq debug-on-quit t)
(setq eval-expression-print-length nil)
(setq eval-expression-print-level nil)
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(setq org-agenda-us-time-grid t)
(setq org-agenda-time-grid '((daily today)))
--8<---------------cut here---------------end--------------->8---
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 18:12 ` Nick Dokos
@ 2012-09-12 18:29 ` Nick Dokos
2012-09-12 20:02 ` Nick Dokos
2012-09-12 22:48 ` Bastien
2012-09-12 22:45 ` Bastien
1 sibling, 2 replies; 29+ messages in thread
From: Nick Dokos @ 2012-09-12 18:29 UTC (permalink / raw)
Cc: Bastien, emacs-orgmode
Nick Dokos <nicholas.dokos@hp.com> wrote:
> Nick Dokos <nicholas.dokos@hp.com> wrote:
>
> > Bastien <bzg@altern.org> wrote:
> >
> > > Nick Dokos <nicholas.dokos@hp.com> writes:
> > >
> > > > Not quite: I now get the following backtrace.
> > >
> > > Can you send me a reproducible minimal recipe?
> > >
> >
> > Not sure - the last thing that .emacs does is bring up the agenda.
> > Let me try to investigate a bit what exactly breaks.
> >
>
> Something goes awry with the agenda time grid. I get the error with
> the appended minimal .emacs when I try to bring up the agenda with
> C-c a a.
>
org-agenda-format-item changed its calling sequence in b508ff69.
I haven't checked all the call sites in org-agenda.el but there is
a call site in org.el that apparently was missed, as well as the
declaration of the function in the same file.
Nick
> ;;; -*- mode: emacs-lisp -*-
> ;;; constant part
> (add-to-list 'load-path (expand-file-name "~/src/emacs/org/org-mode/lisp"))
> (add-to-list 'load-path (expand-file-name "~/src/emacs/org/org-mode/contrib/lisp"))
>
> (add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$" . org-mode))
>
> (require 'org-install)
>
> (setq debug-on-error t)
> (setq debug-on-quit t)
> (setq eval-expression-print-length nil)
> (setq eval-expression-print-level nil)
>
> (global-set-key "\C-cl" 'org-store-link)
> (global-set-key "\C-ca" 'org-agenda)
>
> (setq org-agenda-us-time-grid t)
> (setq org-agenda-time-grid '((daily today)))
>
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 18:29 ` Nick Dokos
@ 2012-09-12 20:02 ` Nick Dokos
2012-09-12 20:22 ` Nick Dokos
2012-09-12 22:48 ` Bastien
1 sibling, 1 reply; 29+ messages in thread
From: Nick Dokos @ 2012-09-12 20:02 UTC (permalink / raw)
To: Bastien, emacs-orgmode
I turned off the grid for now as a workaround for the formatting
problems.
Going back to the original problem, I'm still having problems with that:
I mark a bunch of agenda items (scheduled for today) and then do a B s.
It reschedules them for tomorrow, no questions asked. If I repeat the
process on the same four items, it reschedules them for the day after,
again no questions asked.
Not sure if I'm doing/setting something to cause this bahaviour, but
it's certainly not what I expected: I thought I'd get the usual date
dialog that would allow me to set the rescheduled date.
Thanks,
Nick
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 20:02 ` Nick Dokos
@ 2012-09-12 20:22 ` Nick Dokos
2012-09-12 21:05 ` Nick Dokos
2012-09-12 23:31 ` Bastien
0 siblings, 2 replies; 29+ messages in thread
From: Nick Dokos @ 2012-09-12 20:22 UTC (permalink / raw)
To: Bastien, emacs-orgmode
Nick Dokos <nicholas.dokos@hp.com> wrote:
> I turned off the grid for now as a workaround for the formatting
> problems.
>
> Going back to the original problem, I'm still having problems with that:
> I mark a bunch of agenda items (scheduled for today) and then do a B s.
> It reschedules them for tomorrow, no questions asked. If I repeat the
> process on the same four items, it reschedules them for the day after,
> again no questions asked.
>
> Not sure if I'm doing/setting something to cause this bahaviour, but
> it's certainly not what I expected: I thought I'd get the usual date
> dialog that would allow me to set the rescheduled date.
>
Well, the non-interactiveness and the next day are because the four
items I marked were the last four items for that date, so after marking
them, the cursor happened to be on the date line for the next day, which
apparently is taken as an indication that I want things to be
rescheduled for that date, no questions asked. Not sure I like this
much.
However, if I move the cursor off the date line before I issue the
bulk command, I get a date dialog, but it's a no-op: no matter what
I give it, things are rescheduled to today.
Nick
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 20:22 ` Nick Dokos
@ 2012-09-12 21:05 ` Nick Dokos
2012-09-12 23:31 ` Bastien
1 sibling, 0 replies; 29+ messages in thread
From: Nick Dokos @ 2012-09-12 21:05 UTC (permalink / raw)
To: Bastien, emacs-orgmode
Nick Dokos <nicholas.dokos@hp.com> wrote:
> Nick Dokos <nicholas.dokos@hp.com> wrote:
>
> > I turned off the grid for now as a workaround for the formatting
> > problems.
> >
> > Going back to the original problem, I'm still having problems with that:
> > I mark a bunch of agenda items (scheduled for today) and then do a B s.
> > It reschedules them for tomorrow, no questions asked. If I repeat the
> > process on the same four items, it reschedules them for the day after,
> > again no questions asked.
> >
> > Not sure if I'm doing/setting something to cause this bahaviour, but
> > it's certainly not what I expected: I thought I'd get the usual date
> > dialog that would allow me to set the rescheduled date.
> >
>
> Well, the non-interactiveness and the next day are because the four
> items I marked were the last four items for that date, so after marking
> them, the cursor happened to be on the date line for the next day, which
> apparently is taken as an indication that I want things to be
> rescheduled for that date, no questions asked. Not sure I like this
> much.
>
> However, if I move the cursor off the date line before I issue the
> bulk command, I get a date dialog, but it's a no-op: no matter what
> I give it, things are rescheduled to today.
Correction: only relative changes are no-ops. Absolute dates or
picking a date from the popped-up calendar work.
Nick
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 18:12 ` Nick Dokos
2012-09-12 18:29 ` Nick Dokos
@ 2012-09-12 22:45 ` Bastien
1 sibling, 0 replies; 29+ messages in thread
From: Bastien @ 2012-09-12 22:45 UTC (permalink / raw)
To: nicholas.dokos; +Cc: emacs-orgmode
Nick Dokos <nicholas.dokos@hp.com> writes:
>> Not sure - the last thing that .emacs does is bring up the agenda.
>> Let me try to investigate a bit what exactly breaks.
>
> Something goes awry with the agenda time grid.
Argh, great that you could isolate this.
There was an error here, I just fixed it.
Thanks for your patience in hunting this one!
--
Bastien
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 18:29 ` Nick Dokos
2012-09-12 20:02 ` Nick Dokos
@ 2012-09-12 22:48 ` Bastien
1 sibling, 0 replies; 29+ messages in thread
From: Bastien @ 2012-09-12 22:48 UTC (permalink / raw)
To: nicholas.dokos; +Cc: emacs-orgmode
Nick Dokos <nicholas.dokos@hp.com> writes:
> org-agenda-format-item changed its calling sequence in b508ff69.
> I haven't checked all the call sites in org-agenda.el but there is
> a call site in org.el that apparently was missed, as well as the
> declaration of the function in the same file.
Fixed, thanks.
--
Bastien
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 15:57 ` Michael Brand
@ 2012-09-12 23:29 ` Bastien
2012-09-13 5:39 ` Michael Brand
0 siblings, 1 reply; 29+ messages in thread
From: Bastien @ 2012-09-12 23:29 UTC (permalink / raw)
To: Michael Brand; +Cc: nicholas.dokos, emacs-orgmode, Greg Troxel
Hi Michael,
Michael Brand <michael.ch.brand@gmail.com> writes:
> I didn’t yet investigate further but wanted to throw this in because I
> think it is related: Since a few weeks “C-c C-s + 1 2 : 0 0” does not
> keep tomorrow’s date but falls back to today after typing the time
> part has been completed.
This is fixed now, thanks for reporting this!
--
Bastien
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 20:22 ` Nick Dokos
2012-09-12 21:05 ` Nick Dokos
@ 2012-09-12 23:31 ` Bastien
2012-09-13 2:39 ` Nick Dokos
1 sibling, 1 reply; 29+ messages in thread
From: Bastien @ 2012-09-12 23:31 UTC (permalink / raw)
To: nicholas.dokos; +Cc: emacs-orgmode
Hi Nick,
Nick Dokos <nicholas.dokos@hp.com> writes:
> Well, the non-interactiveness and the next day are because the four
> items I marked were the last four items for that date, so after marking
> them, the cursor happened to be on the date line for the next day, which
> apparently is taken as an indication that I want things to be
> rescheduled for that date, no questions asked. Not sure I like this
> much.
This implementation was to mimick the previous behavior we had with
`k m' (to mark an entry) then `k s' (to schedule it to the date at
point with no prompt.)
I don't like having no prompt here too.
I just changed the behavior so that there is *always* a prompt
with `m m m B s' -- if the cursor is on a date, this date is the
default time for the prompt, RET will reschedule to this date.
> However, if I move the cursor off the date line before I issue the
> bulk command, I get a date dialog, but it's a no-op: no matter what
> I give it, things are rescheduled to today.
Fixed.
Thanks!
--
Bastien
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 23:31 ` Bastien
@ 2012-09-13 2:39 ` Nick Dokos
2012-09-18 17:29 ` Greg Troxel
0 siblings, 1 reply; 29+ messages in thread
From: Nick Dokos @ 2012-09-13 2:39 UTC (permalink / raw)
To: Bastien; +Cc: emacs-orgmode, Greg Troxel
Bastien <bzg@altern.org> wrote:
> Hi Nick,
>
> Nick Dokos <nicholas.dokos@hp.com> writes:
>
> > Well, the non-interactiveness and the next day are because the four
> > items I marked were the last four items for that date, so after marking
> > them, the cursor happened to be on the date line for the next day, which
> > apparently is taken as an indication that I want things to be
> > rescheduled for that date, no questions asked. Not sure I like this
> > much.
>
> This implementation was to mimick the previous behavior we had with
> `k m' (to mark an entry) then `k s' (to schedule it to the date at
> point with no prompt.)
>
> I don't like having no prompt here too.
>
> I just changed the behavior so that there is *always* a prompt
> with `m m m B s' -- if the cursor is on a date, this date is the
> default time for the prompt, RET will reschedule to this date.
>
Thanks - this sounds much better. I hope Greg likes it too.
I ran a bunch of things past it and it worked perfectly (imo of course).
> > However, if I move the cursor off the date line before I issue the
> > bulk command, I get a date dialog, but it's a no-op: no matter what
> > I give it, things are rescheduled to today.
>
I also turned the time grid back on in the agenda and that's working without
errors too.
Thanks!
Nick
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-12 23:29 ` Bastien
@ 2012-09-13 5:39 ` Michael Brand
0 siblings, 0 replies; 29+ messages in thread
From: Michael Brand @ 2012-09-13 5:39 UTC (permalink / raw)
To: Bastien; +Cc: emacs-orgmode
Hi Bastien
On Thu, Sep 13, 2012 at 1:29 AM, Bastien <bzg@altern.org> wrote:
> This is fixed now, thanks for reporting this!
Confirmed, both in an Org buffer and in the agenda buffer. Thank you.
Michael
^ permalink raw reply [flat|nested] 29+ messages in thread
* Re: bulk rescheduling change?
2012-09-13 2:39 ` Nick Dokos
@ 2012-09-18 17:29 ` Greg Troxel
0 siblings, 0 replies; 29+ messages in thread
From: Greg Troxel @ 2012-09-18 17:29 UTC (permalink / raw)
To: nicholas.dokos; +Cc: Bastien, emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 1288 bytes --]
Nick Dokos <nicholas.dokos@hp.com> writes:
> Bastien <bzg@altern.org> wrote:
>
>> Hi Nick,
>>
>> Nick Dokos <nicholas.dokos@hp.com> writes:
>>
>> > Well, the non-interactiveness and the next day are because the four
>> > items I marked were the last four items for that date, so after marking
>> > them, the cursor happened to be on the date line for the next day, which
>> > apparently is taken as an indication that I want things to be
>> > rescheduled for that date, no questions asked. Not sure I like this
>> > much.
>>
>> This implementation was to mimick the previous behavior we had with
>> `k m' (to mark an entry) then `k s' (to schedule it to the date at
>> point with no prompt.)
>>
>> I don't like having no prompt here too.
>>
>> I just changed the behavior so that there is *always* a prompt
>> with `m m m B s' -- if the cursor is on a date, this date is the
>> default time for the prompt, RET will reschedule to this date.
>>
>
> Thanks - this sounds much better. I hope Greg likes it too.
> I ran a bunch of things past it and it worked perfectly (imo of course).
Yes, I have updated and the new behavior seems sensible and intuitive.
There's a default shown, but if I type anything it's ignored. Thanks
for fixing this.
[-- Attachment #2: Type: application/pgp-signature, Size: 194 bytes --]
^ permalink raw reply [flat|nested] 29+ messages in thread
end of thread, other threads:[~2012-09-18 17:29 UTC | newest]
Thread overview: 29+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2012-09-12 14:19 bulk rescheduling change? Greg Troxel
2012-09-12 15:18 ` Bastien
2012-09-12 15:34 ` Nick Dokos
2012-09-12 15:46 ` Bastien
2012-09-12 15:44 ` Nicolas Goaziou
2012-09-12 15:52 ` Nick Dokos
2012-09-12 16:03 ` Nick Dokos
2012-09-12 16:24 ` Bastien
2012-09-12 17:37 ` Nick Dokos
2012-09-12 15:47 ` Nick Dokos
2012-09-12 16:17 ` Bastien
2012-09-12 16:25 ` Nick Dokos
2012-09-12 16:32 ` Bastien
2012-09-12 17:39 ` Nick Dokos
2012-09-12 18:12 ` Nick Dokos
2012-09-12 18:29 ` Nick Dokos
2012-09-12 20:02 ` Nick Dokos
2012-09-12 20:22 ` Nick Dokos
2012-09-12 21:05 ` Nick Dokos
2012-09-12 23:31 ` Bastien
2012-09-13 2:39 ` Nick Dokos
2012-09-18 17:29 ` Greg Troxel
2012-09-12 22:48 ` Bastien
2012-09-12 22:45 ` Bastien
2012-09-12 15:23 ` Nick Dokos
2012-09-12 15:49 ` Greg Troxel
2012-09-12 15:57 ` Michael Brand
2012-09-12 23:29 ` Bastien
2012-09-13 5:39 ` Michael Brand
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.