From mboxrd@z Thu Jan  1 00:00:00 1970
From: Arkady Grudzinsky <agrudzinsky@gmail.com>
Subject: Re: tsia-up sorting strategy sorts agenda by date and ignores time.
 How can I change that?
Date: Wed, 22 Mar 2017 09:25:27 -0700
Message-ID: <s5oa88d1doo.fsf@avnera.com>
References: <s5o1straiwa.fsf@avnera.com> <87shm6wo2p.fsf@fastmail.fm>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:45973)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1cqj5G-0007S2-4F
	for emacs-orgmode@gnu.org; Wed, 22 Mar 2017 12:26:02 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1cqj5C-0004Lb-Gc
	for emacs-orgmode@gnu.org; Wed, 22 Mar 2017 12:26:02 -0400
Received: from [195.159.176.226] (port=57885 helo=blaine.gmane.org)
	by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16)
	(Exim 4.71) (envelope-from <geo-emacs-orgmode@m.gmane.org>)
	id 1cqj5C-0004LC-AG
	for emacs-orgmode@gnu.org; Wed, 22 Mar 2017 12:25:58 -0400
Received: from list by blaine.gmane.org with local (Exim 4.84_2)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1cqj52-0007yq-OJ
	for emacs-orgmode@gnu.org; Wed, 22 Mar 2017 17:25:48 +0100
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode/>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: "Emacs-orgmode"
	<emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
To: emacs-orgmode@gnu.org

On Tue, Mar 21 2017, Matt Lundin wrote:

> You could use something like this and then add user-defined-up or
> user-defined-down where desired in org-agenda-sorting-strategy:
>
> (defun my-sort-by-inactive-timestamp-incl-time (a b)
>   (let* ((ma (get-text-property 1 'org-marker a))
>          (mb (get-text-property 1 'org-marker b))
>          (tsa (with-current-buffer (marker-buffer ma)
>                  (org-entry-get (marker-position ma) "TIMESTAMP_IA")))
>          (tsb (with-current-buffer (marker-buffer mb)
>                  (org-entry-get (marker-position mb) "TIMESTAMP_IA")))
>          (seca (if tsa (org-time-string-to-seconds tsa) 0))
>          (secb (if tsb (org-time-string-to-seconds tsb) 0)))
>     (cond ((> seca secb) 1)
>           ((> secb seca) -1)
>           (t nil))))
>
> (setq org-agenda-cmp-user-defined 'my-sort-by-inactive-timestamp-incl-time)
>
> I imagine there are ways to do this more elegantly (e.g., by iterating
> over a and b), but this gets the job done for me.

This works.  Awesome!  Thanks.  

-- 
Arkady