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

- minor cleaning.

This commit is contained in:
cage 2020-09-05 17:10:55 +02:00
parent 0e6179c742
commit 5721bb411c
4 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
po/it.po
View File

@ -9,7 +9,7 @@ msgstr ""
"Project-Id-Version: tinmop 0.0.1\n" "Project-Id-Version: tinmop 0.0.1\n"
"Report-Msgid-Bugs-To: https://notabug.org/cage/tinmop/\n" "Report-Msgid-Bugs-To: https://notabug.org/cage/tinmop/\n"
"POT-Creation-Date: 2020-09-05 17:03+0200\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 <cage@invalid.org>\n" "Last-Translator: cage <cage@invalid.org>\n"
"Language-Team: Italian\n" "Language-Team: Italian\n"
"Language: it\n" "Language: it\n"
@ -76,7 +76,7 @@ msgstr "Inizializzo credenziali vuote (segnaposto) nel file ~a"
#: src/chats-list-window.lisp:41 #: src/chats-list-window.lisp:41
#, lisp-format #, lisp-format
msgid "~@[~a~]~@[~a~] ~a unread: ~a" 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 #: src/chats-list-window.lisp:64
#, lisp-format #, lisp-format

2
src/api-pleroma.lisp
View File

@ -83,12 +83,10 @@ media `media'. Returns a `chat-message' instance"
message-id) message-id)
:http-method :delete))) :http-method :delete)))
(defun-w-lock get-chat-messages (chat-id min-id) (defun-w-lock get-chat-messages (chat-id min-id)
api-client:*client-lock* api-client:*client-lock*
(fetch-chat-messages api-client:*client* chat-id :min-id min-id)) (fetch-chat-messages api-client:*client* chat-id :min-id min-id))
(defun-w-lock get-chats () (defun-w-lock get-chats ()
api-client:*client-lock* api-client:*client-lock*
(get-all-chats api-client:*client*)) (get-all-chats api-client:*client*))

2
src/program-events.lisp
View File

@ -981,7 +981,6 @@
(with-accessors ((stream-object payload)) object (with-accessors ((stream-object payload)) object
(gemini-viewer:push-db-stream stream-object))) (gemini-viewer:push-db-stream stream-object)))
;;;; pleroma ;;;; pleroma
(defclass get-chat-messages-event (program-event) (defclass get-chat-messages-event (program-event)
@ -1044,7 +1043,6 @@
(assert (functionp payload)) (assert (functionp payload))
(funcall payload))) (funcall payload)))
;;;; end events ;;;; end events
(defun dispatch-program-events () (defun dispatch-program-events ()

2
src/ui-goodies.lisp
View File

@ -489,7 +489,6 @@ Metadata includes:
specials:*message-window* specials:*message-window*
specials:*send-message-window*)) specials:*send-message-window*))
(defun print-quick-help () (defun print-quick-help ()
"Print a quick help" "Print a quick help"
(keybindings:print-help specials:*main-window*)) (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: ")) (_ "Type the index (or space separated indices) of selected choices: "))
(error-message (_ "This in not a poll"))))))) (error-message (_ "This in not a poll")))))))
;;;; chats ;;;; chats
(defun refresh-chats () (defun refresh-chats ()