diff options
| author | Vincent Ambo <tazjin@gmail.com> | 2017-12-20T18·36+0100 |
|---|---|---|
| committer | Vincent Ambo <tazjin@gmail.com> | 2017-12-20T19·15+0100 |
| commit | ce036d7d15361ad4ad6630d0528473529d3df46a (patch) | |
| tree | 54d1ef701f322e3fe8e727b65889cb06184a1ec9 /src/gemma.lisp | |
| parent | 26f365271e00a87374f4b6cc3877e3896c1b1425 (diff) | |
fix(lisp): Sort tasks in DESCENDING order
Diffstat (limited to 'src/gemma.lisp')
| -rw-r--r-- | src/gemma.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gemma.lisp b/src/gemma.lisp index a96b722a2299..0aa873db459e 100644 --- a/src/gemma.lisp +++ b/src/gemma.lisp @@ -62,7 +62,7 @@ maximum interval." (defun sort-tasks (tasks) "Sorts TASKS in descending order by number of days remaining." (sort (copy-list tasks) - (lambda (t1 t2) (> (days-remaining t1) + (lambda (t1 t2) (< (days-remaining t1) (days-remaining t2))))) (defun complete-task (name &optional at) |