tsia-up sorting strategy sorts agenda by date and ignores time. How can I change that?

tsia-up sorting strategy sorts agenda by date and ignores time. How can I change that?

[Arkady Grudzinsky]

Hi,

I'd like to sort my tasks in agenda by inactive creation
timestamp which includes the time portion.  I have found that
tsia-up strategy ignores the time portion of the timestamp.  Is
there a way to take time into account?

Thanks.

-- 
Arkady

Re: tsia-up sorting strategy sorts agenda by date and ignores time. How can I change that?

[Matt Lundin]

Arkady Grudzinsky <agrudzinsky@gmail.com> writes:

> Hi,
>
> I'd like to sort my tasks in agenda by inactive creation
> timestamp which includes the time portion.  I have found that
> tsia-up strategy ignores the time portion of the timestamp.  Is
> there a way to take time into account?

Unfortunately, the org sorting relies on org-time-string-to-absolute,
which converts time strings to days only, so the default is just a day
to day comparison.

You could use something like this and then add user-defined-up or
user-defined-down where desired in org-agenda-sorting-strategy:

--8<---------------cut here---------------start------------->8---
(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)
--8<---------------cut here---------------end--------------->8---

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.

Best,
Matt

Re: tsia-up sorting strategy sorts agenda by date and ignores time. How can I change that?

[Arkady Grudzinsky]

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

Re: tsia-up sorting strategy sorts agenda by date and ignores time. How can I change that?

[Arkady Grudzinsky]

On Wed, Mar 22 2017, Arkady Grudzinsky wrote:

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

When this user-defined-up is set in agenda view (C-c a a), the
agenda view throws an error message.

,----
| set-buffer: Wrong type argument: markerp, nil
`----

It works in the todo list views, though, which is good enough for me.

Thanks again.  Just wanted to mention this for the record.

-- 
Arkady