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

-contact-avatar => -contact-presence (oops)

Browse source
This commit is contained in:
eta 2020-04-07 16:20:33 +01:00
parent bdc817a068
commit a3a660507e
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
stuff.lisp
View file

@ -1495,7 +1495,7 @@ Returns three values: avatar data (as two values), and a generalized boolean spe
(admin-presence comp from admin-status admin-show))) (admin-presence comp from admin-status admin-show)))
((or (not uid) (not conn)) (respond-with-unavailable)) ((or (not uid) (not conn)) (respond-with-unavailable))
((get-contact-name uid to-localpart) ((get-contact-name uid to-localpart)
(handle-wa-contact-avatar comp conn stripped to-localpart)) (handle-wa-contact-presence comp conn stripped to-localpart))
(t (respond-with-unavailable)))))))) (t (respond-with-unavailable))))))))
(defun whatsxmpp-presence-subscribe-handler (comp &key from to id &allow-other-keys) (defun whatsxmpp-presence-subscribe-handler (comp &key from to id &allow-other-keys)
@ -1640,6 +1640,9 @@ Returns three values: avatar data (as two values), and a generalized boolean spe
(on :connected ret (lambda () (wa-resetup-users ret))) (on :connected ret (lambda () (wa-resetup-users ret)))
ret)))) ret))))
#+sbcl
(defparameter *comp* nil)
#+sbcl #+sbcl
(defun report-error-and-die (err) (defun report-error-and-die (err)
(format t "ERROR: ~A~%Backtrace: ~A~%" err (format t "ERROR: ~A~%Backtrace: ~A~%" err
@ -1654,9 +1657,10 @@ Returns three values: avatar data (as two values), and a generalized boolean spe
(setf swank:*configure-emacs-indentation* nil) (setf swank:*configure-emacs-indentation* nil)
(swank:create-server :dont-close t) (swank:create-server :dont-close t)
(setf *debugger-hook* (lambda (condition hook) (setf *debugger-hook* (lambda (condition hook)
(declare (ignore hook))
(report-error-and-die condition))) (report-error-and-die condition)))
(format t "*mario voice* Here we go!~%") (format t "*mario voice* Here we go!~%")
(defparameter *comp* (whatsxmpp-init)) (setf *comp* (whatsxmpp-init))
(on :error *comp* (lambda (e) (on :error *comp* (lambda (e)
(report-error-and-die e))) (report-error-and-die e)))
;; don't pretty-print stuff with newlines ;; don't pretty-print stuff with newlines