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

- [fediverse] fixed regression: missing quoted text when replying to a messages without any mention.

This commit is contained in:
cage 2024-09-23 19:51:11 +02:00
parent 45102d8dc4
commit c182ed743e
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/ui-goodies.lisp
View File

@ -1385,19 +1385,19 @@ It an existing file path is provided the command will refuse to run."
(lines (split-lines quoted-text))
(quote-mark (swconf:quote-char))
(quoted-lines (mapcar (lambda (a) (strcat quote-mark a))
lines))
(mentioned-users-table
(message-rendering-utils:usernames->usernames-table quoted-text)))
(with-open-file (stream file
:if-exists :append
:direction :output
:element-type 'character)
(format stream "~a~%" (msg-utils:add-mention-prefix reply-username))
(loop for line in quoted-lines do
(let ((line-fixed-mentions
lines)))
(let ((mentioned-users-table
(message-rendering-utils:usernames->usernames-table quoted-text)))
(with-open-file (stream file
:if-exists :append
:direction :output
:element-type 'character)
(format stream "~a~%" (msg-utils:add-mention-prefix reply-username))
(loop for line in quoted-lines do
(let ((line-fixed-mentions
(message-rendering-utils:local-mention->acct line
mentioned-users-table)))
(format stream "~a~%" line-fixed-mentions)))))))
(format stream "~a~%" line-fixed-mentions))))))))
(add-signature (file)
(when-let ((signature (message-rendering-utils:signature)))
(with-open-file (stream