mirror of https://codeberg.org/cage/tinmop/
- [GUI] renamed function.
This commit is contained in:
parent
409e8c5cb9
commit
d1451411dd
|
@ -179,7 +179,7 @@
|
||||||
(ev:with-enqueued-process-and-unblock (program-events:+minimum-event-priority+)
|
(ev:with-enqueued-process-and-unblock (program-events:+minimum-event-priority+)
|
||||||
(client-stream-frame::refresh-all-streams
|
(client-stream-frame::refresh-all-streams
|
||||||
(client-stream-frame::table (stream-frame main-window))
|
(client-stream-frame::table (stream-frame main-window))
|
||||||
#'client-stream-frame::all-rows-non-blocking))))
|
#'client-stream-frame::make-requests-all-rows))))
|
||||||
|
|
||||||
(defun set-gemlog-toolbar-button-appearance (main-window iri)
|
(defun set-gemlog-toolbar-button-appearance (main-window iri)
|
||||||
(if (comm:make-request :gemini-gemlog-subscribed-p 1 iri)
|
(if (comm:make-request :gemini-gemlog-subscribed-p 1 iri)
|
||||||
|
|
|
@ -47,7 +47,7 @@
|
||||||
(resync-rows stream-table new-rows)
|
(resync-rows stream-table new-rows)
|
||||||
stream-table)))
|
stream-table)))
|
||||||
|
|
||||||
(defun all-rows-non-blocking ()
|
(defun make-requests-all-rows ()
|
||||||
(let ((rows (comm:make-request :gemini-all-stream-info 1)))
|
(let ((rows (comm:make-request :gemini-all-stream-info 1)))
|
||||||
(setf rows (sort rows
|
(setf rows (sort rows
|
||||||
(lambda (a b) (string< (getf a :download-iri)
|
(lambda (a b) (string< (getf a :download-iri)
|
||||||
|
|
Loading…
Reference in New Issue