cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- [GUI] sorted streams when shown in the stream frame.

This commit is contained in:
cage 2023-07-26 15:07:42 +02:00
parent 6550d3038f
commit 376ba4e783
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/gui/client/stream-window.lisp
View File

@ -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)