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)