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

remove some whitespace

Browse source
This commit is contained in:
eta 2020-06-25 17:26:26 +01:00
parent 0962c5d488
commit a312057849
1 changed files with 0 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
stuff.lisp
View file

@ -2,7 +2,6 @@
(defparameter +version+ "0.0.1") (defparameter +version+ "0.0.1")
(defclass whatsxmpp-component (xmpp-component) (defclass whatsxmpp-component (xmpp-component)
((whatsapps ((whatsapps
:initform (make-hash-table :test 'equal) :initform (make-hash-table :test 'equal)
@ -14,21 +13,16 @@
:initarg :upload-component-name :initarg :upload-component-name
:accessor component-upload-component-name))) :accessor component-upload-component-name)))
(defun send-text-message (comp to-jid text &optional from) (defun send-text-message (comp to-jid text &optional from)
"Send a simple text message to TO-JID, containing TEXT." "Send a simple text message to TO-JID, containing TEXT."
(with-message (comp to-jid :from from) (with-message (comp to-jid :from from)
(cxml:with-element "body" (cxml:with-element "body"
(cxml:text text)))) (cxml:text text))))
(defun handle-connection-complete (comp) (defun handle-connection-complete (comp)
(format *debug-io* "Connection complete! \\o/") (format *debug-io* "Connection complete! \\o/")
(emit :connected comp)) (emit :connected comp))
(defun disco-info-handler (comp &key to from &allow-other-keys) (defun disco-info-handler (comp &key to from &allow-other-keys)
"Handles XEP-0030 disco#info requests." "Handles XEP-0030 disco#info requests."
(format *debug-io* "~&disco#info: ~A~%" to) (format *debug-io* "~&disco#info: ~A~%" to)