|
|
@@ -14,7 +14,12 @@
|
|
|
:telegram-send-sticker
|
|
|
:telegram-send-video
|
|
|
:telegram-send-voice
|
|
|
+ :telegram-send-video-note
|
|
|
+ :telegram-send-media-group
|
|
|
:telegram-send-location
|
|
|
+ :telegram-edit-message-live-location
|
|
|
+ :telegram-stop-message-live-location
|
|
|
+ :telegram-send-contact
|
|
|
:telegram-send-chat-action
|
|
|
:telegram-send-get-user-profile-photos
|
|
|
:telegram-send-get-file
|
|
|
@@ -90,67 +95,141 @@
|
|
|
("from_chat_id" . ,from-chat-id)
|
|
|
("message_id" . ,message-id))))
|
|
|
|
|
|
-(defun telegram-send-photo (chat-id photo &key caption reply-to reply-markup)
|
|
|
+(defun telegram-send-photo (chat-id photo &key caption disable-notification reply-to reply-markup)
|
|
|
(%telegram-api-call
|
|
|
"sendPhoto"
|
|
|
(list (cons "chat_id" chat-id)
|
|
|
(cons "photo" photo)
|
|
|
(cons "caption" caption)
|
|
|
+ (cons "disable_notification" disable-notification)
|
|
|
(cons "reply_to_message_id" reply-to)
|
|
|
(cons "reply_markup" reply-markup))))
|
|
|
|
|
|
-(defun telegram-send-audio (chat-id audio &key duration performer title reply-to reply-markup)
|
|
|
+(defun telegram-send-audio (chat-id audio &key caption duration performer title disable-notification reply-to reply-markup)
|
|
|
(%telegram-api-call
|
|
|
"sendAudio"
|
|
|
(list (cons "chat_id" chat-id)
|
|
|
(cons "audio" audio)
|
|
|
+ (cons "caption" caption)
|
|
|
(cons "duration" duration)
|
|
|
(cons "performer" performer)
|
|
|
(cons "title" title)
|
|
|
+ (cons "disable_notification" disable-notification)
|
|
|
(cons "reply_to_message_id" reply-to)
|
|
|
(cons "reply_markup" reply-markup))))
|
|
|
|
|
|
-(defun telegram-send-document (chat-id document &key reply-to reply-markup)
|
|
|
+(defun telegram-send-document (chat-id document &key caption disable-notification reply-to reply-markup)
|
|
|
(%telegram-api-call
|
|
|
"sendDocument"
|
|
|
(list (cons "chat_id" chat-id)
|
|
|
(cons "document" document)
|
|
|
+ (cons "caption" caption)
|
|
|
+ (cons "disable_notification" disable-notification)
|
|
|
(cons "reply_to_message_id" reply-to)
|
|
|
(cons "reply_markup" reply-markup))))
|
|
|
|
|
|
-(defun telegram-send-sticker (chat-id sticker &key reply-to reply-markup)
|
|
|
+(defun telegram-send-sticker (chat-id sticker &key disable-notification reply-to reply-markup)
|
|
|
(%telegram-api-call
|
|
|
"sendSticker"
|
|
|
(list (cons "chat_id" chat-id)
|
|
|
(cons "sticker" sticker)
|
|
|
+ (cons "disable_notification" disable-notification)
|
|
|
(cons "reply_to_message_id" reply-to)
|
|
|
(cons "reply_markup" reply-markup))))
|
|
|
|
|
|
-(defun telegram-send-video (chat-id video &key duration caption reply-to reply-markup)
|
|
|
+(defun telegram-send-video (chat-id video &key duration width height caption disable-notification reply-to reply-markup)
|
|
|
(%telegram-api-call
|
|
|
"sendVideo"
|
|
|
(list (cons "chat_id" chat-id)
|
|
|
(cons "video" video)
|
|
|
(cons "duration" duration)
|
|
|
+ (cons "width" width)
|
|
|
+ (cons "height" height)
|
|
|
(cons "caption" caption)
|
|
|
+ (cons "disable_notification" disable-notification)
|
|
|
(cons "reply_to_message_id" reply-to)
|
|
|
(cons "reply_markup" reply-markup))))
|
|
|
|
|
|
-(defun telegram-send-voice (chat-id voice &key duration reply-to reply-markup)
|
|
|
+(defun telegram-send-voice (chat-id voice &key caption duration disable-notification reply-to reply-markup)
|
|
|
(%telegram-api-call
|
|
|
"sendVoice"
|
|
|
(list (cons "chat_id" chat-id)
|
|
|
(cons "voice" voice)
|
|
|
+ (cons "caption" caption)
|
|
|
(cons "duration" duration)
|
|
|
+ (cons "disable_notification" disable-notification)
|
|
|
(cons "reply_to_message_id" reply-to)
|
|
|
(cons "reply_markup" reply-markup))))
|
|
|
|
|
|
-(defun telegram-send-location (chat-id latitude longitude &key reply-to reply-markup)
|
|
|
+(defun telegram-send-video-note (chat-id video-note &key duration length disable-notification reply-to reply-markup)
|
|
|
+ (%telegram-api-call
|
|
|
+ "sendVideoNote"
|
|
|
+ (list (cons "chat_id" chat-id)
|
|
|
+ (cons "video_note" video-note)
|
|
|
+ (cons "duration" duration)
|
|
|
+ (cons "length" length)
|
|
|
+ (cons "disable_notification" disable-notification)
|
|
|
+ (cons "reply_to_message_id" reply-to)
|
|
|
+ (cons "reply_markup" reply-markup))))
|
|
|
+
|
|
|
+(defun telegram-send-media-group (chat-id media &key disable-notification reply-to)
|
|
|
+ (%telegram-api-call
|
|
|
+ "sendMediaGroup"
|
|
|
+ (list (cons "chat_id" chat-id)
|
|
|
+ (cons "media" media)
|
|
|
+ (cons "disable_notification" disable-notification)
|
|
|
+ (cons "reply_to_message_id" reply-to))))
|
|
|
+
|
|
|
+(defun telegram-send-location (chat-id latitude longitude &key live-period disable-notification reply-to reply-markup)
|
|
|
(%telegram-api-call
|
|
|
"sendLocation"
|
|
|
(list (cons "chat_id" chat-id)
|
|
|
(cons "latitude" latitude)
|
|
|
(cons "longitude" longitude)
|
|
|
+ (cons "live_period" live-period)
|
|
|
+ (cons "disable_notification" disable-notification)
|
|
|
+ (cons "reply_to_message_id" reply-to)
|
|
|
+ (cons "reply_markup" reply-markup))))
|
|
|
+
|
|
|
+(defun telegram-edit-message-live-location (latitude longitude &key chat-id message-id inline-message-id reply-markup)
|
|
|
+ (%telegram-api-call
|
|
|
+ "editMessageLiveLocation"
|
|
|
+ (list (cons "chat_id" chat-id)
|
|
|
+ (cons "message_id" message-id)
|
|
|
+ (cons "inline_message_id" inline-message-id)
|
|
|
+ (cons "latitude" latitude)
|
|
|
+ (cons "longitude" longitude)
|
|
|
+ (cons "reply_markup" reply-markup))))
|
|
|
+
|
|
|
+(defun telegram-stop-message-live-location (&key chat-id message-id inline-message-id reply-markup)
|
|
|
+ (%telegram-api-call
|
|
|
+ "stopMessageLiveLocation"
|
|
|
+ (list (cons "chat_id" chat-id)
|
|
|
+ (cons "message_id" message-id)
|
|
|
+ (cons "inline_message_id" inline-message-id)
|
|
|
+ (cons "reply_markup" reply-markup))))
|
|
|
+
|
|
|
+(defun telegram-send-venue (chat-id latitude longitude title address &key foursquare-id disable-notification reply-to reply-markup)
|
|
|
+ (%telegram-api-call
|
|
|
+ "sendVenue"
|
|
|
+ (list (cons "chat_id" chat-id)
|
|
|
+ (cons "latitude" latitude)
|
|
|
+ (cons "longitude" longitude)
|
|
|
+ (cons "title" title)
|
|
|
+ (cons "address" address)
|
|
|
+ (cons "foursquare_id" foursquare-id)
|
|
|
+ (cons "disable_notification" disable-notification)
|
|
|
+ (cons "reply_to_message_id" reply-to)
|
|
|
+ (cons "reply_markup" reply-markup))))
|
|
|
+
|
|
|
+(defun telegram-send-contact (chat-id phone-number first-name &key last-name disable-notification reply-to reply-markup)
|
|
|
+ (%telegram-api-call
|
|
|
+ "sendContact"
|
|
|
+ (list (cons "chat_id" chat-id)
|
|
|
+ (cons "phone_number" phone-number)
|
|
|
+ (cons "first_name" first-name)
|
|
|
+ (cons "last_name" last-name)
|
|
|
+ (cons "disable_notification" disable-notification)
|
|
|
(cons "reply_to_message_id" reply-to)
|
|
|
(cons "reply_markup" reply-markup))))
|
|
|
|
