From 5721bb411c4acb00d4ecdabd23c1bad2fc956ea0 Mon Sep 17 00:00:00 2001 From: cage Date: Sat, 5 Sep 2020 17:10:55 +0200 Subject: [PATCH] - minor cleaning. --- po/it.po | 4 ++-- src/api-pleroma.lisp | 2 -- src/program-events.lisp | 2 -- src/ui-goodies.lisp | 2 -- 4 files changed, 2 insertions(+), 8 deletions(-) diff --git a/po/it.po b/po/it.po index 0b9a67e..ac2678d 100644 --- a/po/it.po +++ b/po/it.po @@ -9,7 +9,7 @@ msgstr "" "Project-Id-Version: tinmop 0.0.1\n" "Report-Msgid-Bugs-To: https://notabug.org/cage/tinmop/\n" "POT-Creation-Date: 2020-09-05 17:03+0200\n" -"PO-Revision-Date: 2020-09-05 17:04+0200\n" +"PO-Revision-Date: 2020-09-05 17:07+0200\n" "Last-Translator: cage \n" "Language-Team: Italian\n" "Language: it\n" @@ -76,7 +76,7 @@ msgstr "Inizializzo credenziali vuote (segnaposto) nel file ~a" #: src/chats-list-window.lisp:41 #, lisp-format msgid "~@[~a~]~@[~a~] ~a unread: ~a" -msgstr "~@[~a~]~@[~a~] ~a non letti: ~a\"" +msgstr "~@[~a~]~@[~a~] ~a non letti: ~a" #: src/chats-list-window.lisp:64 #, lisp-format diff --git a/src/api-pleroma.lisp b/src/api-pleroma.lisp index 120a365..4f32471 100644 --- a/src/api-pleroma.lisp +++ b/src/api-pleroma.lisp @@ -83,12 +83,10 @@ media `media'. Returns a `chat-message' instance" message-id) :http-method :delete))) - (defun-w-lock get-chat-messages (chat-id min-id) api-client:*client-lock* (fetch-chat-messages api-client:*client* chat-id :min-id min-id)) - (defun-w-lock get-chats () api-client:*client-lock* (get-all-chats api-client:*client*)) diff --git a/src/program-events.lisp b/src/program-events.lisp index d3f8104..10e6753 100644 --- a/src/program-events.lisp +++ b/src/program-events.lisp @@ -981,7 +981,6 @@ (with-accessors ((stream-object payload)) object (gemini-viewer:push-db-stream stream-object))) - ;;;; pleroma (defclass get-chat-messages-event (program-event) @@ -1044,7 +1043,6 @@ (assert (functionp payload)) (funcall payload))) - ;;;; end events (defun dispatch-program-events () diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index 24679cb..93aa953 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -489,7 +489,6 @@ Metadata includes: specials:*message-window* specials:*send-message-window*)) - (defun print-quick-help () "Print a quick help" (keybindings:print-help specials:*main-window*)) @@ -1401,7 +1400,6 @@ This command will remove those limits so that we can just jump to the last messa (_ "Type the index (or space separated indices) of selected choices: ")) (error-message (_ "This in not a poll"))))))) - ;;;; chats (defun refresh-chats ()