mirror of https://codeberg.org/cage/tinmop/
- [GUI] sorted streams when shown in the stream frame.
This commit is contained in:
parent
6550d3038f
commit
376ba4e783
|
@ -31,9 +31,13 @@
|
||||||
stream-table))
|
stream-table))
|
||||||
|
|
||||||
(defun all-rows ()
|
(defun all-rows ()
|
||||||
(cev:enqueue-request-and-wait-results :gemini-all-stream-info
|
(let ((rows (cev:enqueue-request-and-wait-results :gemini-all-stream-info
|
||||||
1
|
1
|
||||||
ev:+standard-event-priority+))
|
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)
|
(defun refresh-all-streams (stream-table)
|
||||||
(with-accessors ((tree gui-goodies:tree)
|
(with-accessors ((tree gui-goodies:tree)
|
||||||
|
|
Loading…
Reference in New Issue