From: Bernt Hansen <bernt@norang.ca>
To: James Harkins <jamshark70@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Agenda TODO sorting by date
Date: Sat, 03 Mar 2012 14:03:05 -0500 [thread overview]
Message-ID: <87ty2533ti.fsf@norang.ca> (raw)
In-Reply-To: <87399pzm9w.wl%jamshark70@dewdrop-world.net> (James Harkins's message of "Sun, 04 Mar 2012 00:23:23 +0800")
James Harkins <jamshark70@gmail.com> writes:
> At Fri, 02 Mar 2012 21:48:42 -0500,
> Bernt Hansen wrote:
>> You could write a custom sorting function that parses out the date from
>> the heading and compares them. There may be a better way to do this
>> that I'm not aware of for this.
>>
>> Set this function up in org-agenda-cmp-user-defined and
>> org-agenda-sorting-strategy to get the results you want.
>
> OK, thanks. I was starting to think it would come to that. Kind of
> surprising this isn't offered out of the box.
>
> I think I need a bit more guidance, from you or someone else.
>
>> parses out the date from the heading
>
> Is there already an org function to do this? C-h a searches on the
> following yielded nothing that seemed interesting.
>
> org.*date.*
> org.*timestamp.*
>
>> compares them
>
> I was about to make that more complicated, but actually string
> comparison should be fine for this. No worries there.
>
> I have done rather little with emacs-lisp so... this is uphill for me. Thanks.
I think this works
--8<---------------cut here---------------start------------->8---
(defun bh/agenda-sort-by-heading-date (a b)
"Sorting strategy for agenda items.
Late deadlines first, then scheduled, then non-late deadlines"
(message "Heading a: <%s>" a)
(message "Heading b: <%s>" b)
(let* ((date-regexp "\\(\\<[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]\\) ")
date-a date-b)
(string-match date-regexp a)
(setq date-a (match-string 1 a))
(string-match date-regexp b)
(setq date-b (match-string 1 b))
(cond ((string< date-a date-b) -1)
((string< date-b date-a) +1)
((t nil)))))
nil)
;;
;; Agenda sorting functions
;;
(setq org-agenda-cmp-user-defined 'bh/agenda-sort-by-heading-date)
(setq org-agenda-custom-commands
(quote (("x" "Tasks" tags-todo ""
((org-agenda-overriding-header "Tasks sorted by date")
(org-agenda-sorting-strategy
'(user-defined-up)))))))
--8<---------------cut here---------------end--------------->8---
Then C-c a < x Tag RET
gives
,----
| Tasks sorted by date
| scratch: TODO Third todo in file <2012-03-28 Wed> :Tag:
| scratch: TODO Second todo in file <2012-03-29 Thu> :Tag:
| scratch: TODO First todo in file <2012-03-30 Fri> :Tag:
| scratch: TODO Fourth todo in file <2012-03-31 Sat> :Tag:
`----
HTH,
Bernt
next prev parent reply other threads:[~2012-03-03 19:03 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-03-03 2:28 Agenda TODO sorting by date James Harkins
2012-03-03 2:48 ` Bernt Hansen
2012-03-03 16:23 ` James Harkins
2012-03-03 16:38 ` Alan E. Davis
2012-03-04 1:23 ` James Harkins
2012-03-03 19:03 ` Bernt Hansen [this message]
2012-03-04 2:59 ` James Harkins
2012-03-04 4:31 ` Bernt Hansen
2012-03-04 6:59 ` James Harkins
-- strict thread matches above, loose matches on Subject: below --
2012-03-01 9:36 James Harkins
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87ty2533ti.fsf@norang.ca \
--to=bernt@norang.ca \
--cc=emacs-orgmode@gnu.org \
--cc=jamshark70@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).