a3x/whatsxmpp
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

display quoted message text, if there is any

Browse source
This commit is contained in:
eta 2020-04-06 20:46:33 +01:00
parent f6561a64a3
commit 297170ae6b
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
stuff.lisp
View file

@ -872,12 +872,16 @@ WhatsXMPP represents users as u440123456789 and groups as g1234-5678."
(when (not previous-xmpp-id) ; don't process messages twice (when (not previous-xmpp-id) ; don't process messages twice
(when (typep key 'whatscl::message-key-receiving) ; ignore group and self messages (when (typep key 'whatscl::message-key-receiving) ; ignore group and self messages
(when (typep contents 'whatscl::message-contents-text) (when (typep contents 'whatscl::message-contents-text)
(let ((text (whatscl::contents-text contents)) (let* ((contents-text (whatscl::contents-text contents))
(from (concatenate 'string (qc (whatscl::message-quoted-contents-summary msg))
(wa-jid-to-whatsxmpp-localpart (whatscl::key-jid key)) (text (if qc
"@" (format nil "> ~A~%~A" qc contents-text)
(component-name comp) contents-text))
"/whatsapp"))) (from (concatenate 'string
(wa-jid-to-whatsxmpp-localpart (whatscl::key-jid key))
"@"
(component-name comp)
"/whatsapp")))
(insert-user-message uid xmpp-id wa-id) (insert-user-message uid xmpp-id wa-id)
(with-message (comp jid :from from :id xmpp-id) (with-message (comp jid :from from :id xmpp-id)
(cxml:with-element "body" (cxml:with-element "body"