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

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

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