From 376ba4e7838f1196e48d0c5325caeb7b6138d9ea Mon Sep 17 00:00:00 2001 From: cage Date: Wed, 26 Jul 2023 15:07:42 +0200 Subject: [PATCH] - [GUI] sorted streams when shown in the stream frame. --- src/gui/client/stream-window.lisp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/gui/client/stream-window.lisp b/src/gui/client/stream-window.lisp index a2247b5..61b47be 100644 --- a/src/gui/client/stream-window.lisp +++ b/src/gui/client/stream-window.lisp @@ -31,9 +31,13 @@ stream-table)) (defun all-rows () - (cev:enqueue-request-and-wait-results :gemini-all-stream-info - 1 - ev:+standard-event-priority+)) + (let ((rows (cev:enqueue-request-and-wait-results :gemini-all-stream-info + 1 + ev:+standard-event-priority+))) + (setf rows (sort rows + (lambda (a b) (string< (getf a :download-iri) + (getf b :download-iri))))) + rows)) (defun refresh-all-streams (stream-table) (with-accessors ((tree gui-goodies:tree)