emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: James Harkins <jamshark70@gmail.com>
To: Bernt Hansen <bernt@norang.ca>
Cc: emacs-orgmode@gnu.org
Subject: Re: Agenda TODO sorting by date
Date: Sun, 04 Mar 2012 14:59:52 +0800	[thread overview]
Message-ID: <87r4x8yhp3.wl%jamshark70@dewdrop-world.net> (raw)
In-Reply-To: <87fwdpj8b0.fsf@norang.ca>

At Sat, 03 Mar 2012 23:31:47 -0500,
Bernt Hansen wrote:
> >> (defun bh/agenda-sort-by-heading-date (a b)
> >>   "Sorting strategy for agenda items.
> >> Late deadlines first, then scheduled, then non-late deadlines"
> 
> Oops... this description is all wrong - since I gutted my existing
> sorting function to try this...  I'll let you fix that :)

:)  I wondered about that.

There are non-timestamped TODO items in my org files, so I needed to hack a little further. The version below is working beautifully.

Thanks for all the help! I doubt I would have figured this out very quickly.

James


(defun bh/agenda-sort-by-heading-date (a b)
  "Sorting strategy for agenda items.
Timestamped entries first (ascending order), then non-timestamped"
  ;(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)
    (if
	(string-match date-regexp a)
	(setq date-a (match-string 1 a))
        (setq date-a "ZZZZZZ")  ; clunko workaround to push dateless entries last
    )
    (if
	(string-match date-regexp b)
	(setq date-b (match-string 1 b))
	(setq date-b "ZZZZZZ")
    )
    (cond ((string< date-a date-b) -1)
          ((string< date-b date-a) +1)
          ;((t nil))
    )))


--
James Harkins /// dewdrop world
jamshark70@dewdrop-world.net
http://www.dewdrop-world.net

"Come said the Muse,
Sing me a song no poet has yet chanted,
Sing me the universal."  -- Whitman

blog: http://www.dewdrop-world.net/words
audio clips: http://www.dewdrop-world.net/audio
more audio: http://soundcloud.com/dewdrop_world/tracks

  reply	other threads:[~2012-03-04  7:00 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
2012-03-04  2:59       ` James Harkins
2012-03-04  4:31         ` Bernt Hansen
2012-03-04  6:59           ` James Harkins [this message]
  -- 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=87r4x8yhp3.wl%jamshark70@dewdrop-world.net \
    --to=jamshark70@gmail.com \
    --cc=bernt@norang.ca \
    --cc=emacs-orgmode@gnu.org \
    /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).