Commit Diff
Diff:
a2ead681c4f74e5539fbfd05d9eebf4e91df3924
a451df45d54ae2b9f154454aa17eb5e0887272c8
Commit:
a451df45d54ae2b9f154454aa17eb5e0887272c8
Tree:
a5e3a52136f9ec32ea5073812c9e1eaec27745ff
Author:
Omar Polo <op@omarpolo.com>
Date:
Sun Feb 28 19:35:09 2021 UTC
Message:
minor tweaks
commit - a2ead681c4f74e5539fbfd05d9eebf4e91df3924
commit + a451df45d54ae2b9f154454aa17eb5e0887272c8
blob - 5ce18d9e8f342b9502a9b5c24879276104a33dc6
blob + 1b9d18b47dfe1d4a6558dd2ee889cf6a96ec052d
--- toxe.el
+++ toxe.el
@@ -377,13 +377,13 @@ Every method should have a DOCUMENTATION."
;; "Send a friend request with MESSAGE to the user identified by PUBLIC-KEY.")
(defun toxe--cmd-friend-add (public-key &optional message)
"Send a friend request with MESSAGE to the user identified by PUBLIC-KEY."
- (toxe--send-request (cl-list* :@type 'friend-add
- :public-key public-key
- (when message
- (list :message message)))))
+ (toxe--send-request `(:@type friend-add
+ :public-key ,public-key
+ ,@(when message
+ `(:message ,message)))))
(toxe--defcmd friend-send-message (friend-number message-type message)
- "Send MESSAGE with the given type to the friend with FRIEND-NUMBER.")
+ "Send MESSAGE with the given MESSAGE-TYPE to FRIEND-NUMBER.")
(toxe--defcmd get-chatlist ()
"Retrieve the list of contacts.")
Omar Polo