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

- fixed macro 'with-sending-message-data' to include the new parameter: 'language'.

This commit is contained in:
cage 2023-09-13 18:07:29 +02:00
parent ef90f3ad43
commit 23d8553a90
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/program-events.lisp
View File

@ -830,7 +830,9 @@
:reader use-ui-notification-p
:writer use-ui-notification)))
(defmacro with-sending-message-data ((message-body subject reply-to mentions visibility)
(defmacro with-sending-message-data ((message-body subject
reply-to mentions
visibility language)
&body body)
(with-gensyms (send-win message-data)
`(let ((,send-win specials:*send-message-window*))
@ -839,12 +841,13 @@
(,subject sending-message:subject)
(,reply-to sending-message:reply-to)
(,mentions sending-message:mentions)
(,visibility sending-message:visibility)) ,message-data
(,visibility sending-message:visibility)
(,language sending-message:language)) ,message-data
,@body)))))
(defmethod process-event ((object send-message-event))
(let ((send-win specials:*send-message-window*))
(with-sending-message-data (body subject reply-to mentions visibility)
(with-sending-message-data (body subject reply-to mentions visibility language)
(let* ((attachments (line-oriented-window:map-rows send-win
#'line-oriented-window:normal-text))
(alt-text (line-oriented-window:map-rows send-win
@ -869,7 +872,8 @@
attachments
alt-text
subject
(make-keyword (string-upcase visibility)))
(make-keyword (string-upcase visibility))
language)
(ui:notify (_ "Message sent"))
(ui:close-send-message-window))))))))