emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed

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

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).