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

minor logging fixes

Browse source
This commit is contained in:
eta 2021-01-30 18:17:33 +00:00
parent d664cb800c
commit d6a8ac8f33
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
message.lisp
View file

@ -74,7 +74,7 @@ FIXME: the above behaviour is a bit meh."
;; whee fallback go brrr ;; whee fallback go brrr
participant-localpart))) participant-localpart)))
(values wx-localpart from-resource)) (values wx-localpart from-resource))
(error "Couldn't find or create group chat for ~A" chat-id))))))) (error "Couldn't find or create group chat for ~A" wx-localpart)))))))
(defmacro with-new-xmpp-message-context ((comp jid msg &optional conn) &body body) (defmacro with-new-xmpp-message-context ((comp jid msg &optional conn) &body body)
"Evaluate FORMS, binding NEW-XMPP-MESSAGE (lambda-list (BODY &KEY OOB-URL SYSTEM-GENERATED)) to a function that returns an instance of the XMPP-MESSAGE class, using information contained in the message MSG received for the bridge user JID." "Evaluate FORMS, binding NEW-XMPP-MESSAGE (lambda-list (BODY &KEY OOB-URL SYSTEM-GENERATED)) to a function that returns an instance of the XMPP-MESSAGE class, using information contained in the message MSG received for the bridge user JID."

2
stuff.lisp
View file

@ -596,7 +596,7 @@ Returns three values: avatar data (as two values), and a generalized boolean spe
(handle-wa-contact-presence-subscriptions comp jid wx-localpart)) (handle-wa-contact-presence-subscriptions comp jid wx-localpart))
(return-from add-wa-chat)) (return-from add-wa-chat))
(unless (uiop:string-prefix-p "g" wx-localpart) (unless (uiop:string-prefix-p "g" wx-localpart)
(warn "Interesting localpart pased to ADD-WA-CHAT: ~A" wx-localpart) (warn "Interesting localpart passed to ADD-WA-CHAT: ~A" wx-localpart)
(return-from add-wa-chat)) (return-from add-wa-chat))
(assert uid () "No user ID for ~A!" jid) (assert uid () "No user ID for ~A!" jid)
(unless (get-user-chat-id uid wx-localpart) (unless (get-user-chat-id uid wx-localpart)