cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- prevent printing of chat messages from ignored users.

Browse Source
This commit is contained in:
cage 2020-09-07 20:28:06 +02:00
parent 97cc1e938c
commit 6b0e7c1f73
1 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
src/chats-list-window.lisp
View File

@ -44,28 +44,30 @@
(db:user-id->username (db:row-account-id chat-db-row)) (db:user-id->username (db:row-account-id chat-db-row))
(db:count-unread-chat-messages (db:row-id chat-db-row)))) (db:count-unread-chat-messages (db:row-id chat-db-row))))
(defun chat->text (chat-db-row) (defun chat->text (chat-db-row &key (skip-ignored-user t))
(with-output-to-string (stream) (with-output-to-string (stream)
(let ((all-messages (db:all-chat-messages (db:row-id chat-db-row)))) (let ((all-messages (db:all-chat-messages (db:row-id chat-db-row))))
(dolist (message all-messages) (dolist (message all-messages)
(let* ((date-fmt (or (swconf:date-fmt swconf:+key-chat-window+) (when (and skip-ignored-user
(swconf:date-fmt swconf:+key-thread-window+))) (not (db:user-ignored-p (db:row-account-id message))))
(created-date (db:row-created-at message)) (let* ((date-fmt (or (swconf:date-fmt swconf:+key-chat-window+)
(encoded-created-date (db-utils:encode-datetime-string created-date)) (swconf:date-fmt swconf:+key-thread-window+)))
(formatted-created-date (format-time encoded-created-date date-fmt)) (created-date (db:row-created-at message))
(attachment (db:attachment-to-chat-message (db:row-id message))) (encoded-created-date (db-utils:encode-datetime-string created-date))
(attachment-type (if attachment (formatted-created-date (format-time encoded-created-date date-fmt))
(format nil "~a attachment" (db:row-type attachment)) (attachment (db:attachment-to-chat-message (db:row-id message)))
"")) (attachment-type (if attachment
(content (or (db:row-message-content message) (format nil "~a attachment" (db:row-type attachment))
"")) ""))
(username (db:user-id->username (db:row-account-id message)))) (content (or (db:row-message-content message)
(format stream ""))
(_ "~a ~a wrote:~%~a ~a~2%") (username (db:user-id->username (db:row-account-id message))))
formatted-created-date (format stream
username (_ "~a ~a wrote:~%~a ~a~2%")
(html-utils:html->text content) formatted-created-date
attachment-type)))))) username
(html-utils:html->text content)
attachment-type)))))))
(defmethod resync-rows-db ((object chats-list-window) (defmethod resync-rows-db ((object chats-list-window)
&key &key