# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1784215465 14400
# Node ID c76aecc93001ad11a050538486542fe2b5680faa
# Parent  adb18a61e30fff8351194ea43bb71e37126729ca
More

diff -r adb18a61e30f -r c76aecc93001 stumpwm/tasks.lisp
--- a/stumpwm/tasks.lisp	Thu Jul 16 11:08:03 2026 -0400
+++ b/stumpwm/tasks.lisp	Thu Jul 16 11:24:25 2026 -0400
@@ -1,7 +1,7 @@
 (in-package :stumpwm-user)
 
 (defun parse-task-line (line)
-  (ppcre:register-groups-bind (id task) ("^([a-f0-9]+) - (.*)$" line)
+  (ppcre:register-groups-bind (id task) ("^([a-f0-9]+) +- (.*)$" line)
     (cons id task)))
 
 
@@ -9,7 +9,9 @@
   (sh `("t" ,task) :wait nil))
 
 (defun tasks/list% ()
-  (mapcar #'parse-task-line (sh '("t") :result-type 'list)))
+  (_ (sh '("t") :result-type 'list)
+    (mapcar #'parse-task-line _)
+    (sort _ #'string-lessp :key #'cdr)))
 
 (defun tasks/finish% (id)
   (sh `("t" "-f" ,id) :wait nil))