From fe16fc7c1c6704f921cda0ab239ca8aecc53bb73 Mon Sep 17 00:00:00 2001 From: cage Date: Tue, 8 Dec 2020 11:31:21 +0100 Subject: [PATCH] - exposed to the UI 'refresh-chats'; - fixed type in 'follow-request-window' slot; - fixed docstring. --- etc/init.lisp | 2 ++ src/follow-requests.lisp | 3 +-- src/ui-goodies.lisp | 2 +- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/etc/init.lisp b/etc/init.lisp index 2618f4f..d6f8c08 100644 --- a/etc/init.lisp +++ b/etc/init.lisp @@ -393,6 +393,8 @@ (define-key "r" #'refresh-chat-messages *chats-list-keymap*) +(define-key "R" #'refresh-chats *chats-list-keymap*) + (define-key "q" #'close-chats-list-window *chats-list-keymap*) (define-key "C-J" #'show-chat-to-screen *chats-list-keymap*) diff --git a/src/follow-requests.lisp b/src/follow-requests.lisp index fdf4fbf..0e9eb58 100644 --- a/src/follow-requests.lisp +++ b/src/follow-requests.lisp @@ -19,9 +19,8 @@ (defclass follow-requests-window (focus-marked-window simple-line-navigation-window) ((requests :initarg :requests - :initform nil + :initform () :accessor requests - :type (or null tooter:account) :documentation "All the accounts that request to follow you") (header-message-lines :initarg :header-message-lines diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index d3cb69d..fa6a7fe 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -1561,7 +1561,7 @@ This command will remove those limits so that we can just jump to the last messa ;;;; chats (defun refresh-chats () - "Refresh the chats, but not the chat's messages" + "Refresh the chats lists, but not the chat's messages" (program-events:push-event (make-instance 'program-events:get-chats-event))) (defun refresh-chat-messages ()