1 files changed, 14 insertions, 17 deletions
diff --git a/src/inline-bots.lisp b/src/inline-bots.lisp
index 5945084..eb20f21 100644
--- a/src/inline-bots.lisp
+++ b/src/inline-bots.lisp
@@ -20,23 +20,20 @@
          (log-info "Deleting an unallowed inline bot message from ~A ~A"
                    (user-username via)
                    (user-id via))
-          (delete-message bot
+          (try-delete-message bot msg)
-                          :chat-id (message-chat-id msg)
-                          :message-id (message-id msg))
          (unless (eq ty :blacklisted)
            ;; Not explicitly blacklisted, notify dev group
-            (send-message bot
+            (let ((whitelist (make-inline-keyboard-button :text "Whitelist"
-             :chat-id (config-dev-group (bot-config bot))
+                                                          :callback-data (format nil "bwl:~A" (user-id via))))
-             :text (format nil "Deleted a message sent via inline bot @~A <code>~A</code>"
+                  (blacklist (make-inline-keyboard-button :text "Blacklist"
-                           (user-username via)
+                                                          :callback-data (format nil "bbl:~A" (user-id via)))))
-                           (user-id via))
+              (send-message bot
-             :parse-mode "HTML"
+                            :chat-id (config-dev-group (bot-config bot))
-             :reply-markup (make-inline-keyboard-markup
+                            :text (format nil "Deleted a message sent via inline bot @~A <code>~A</code>"
-                            :inline-keyboard
+                                          (user-username via)
-                            #(#((make-inline-keyboard-button
+                                          (user-id via))
-                                 :text "Whitelist"
+                            :parse-mode "HTML"
-                                 :callback-data (format nil "bwl:~A" (user-id via)))
+                            :reply-markup (make-inline-keyboard-markup
-                                (make-inline-keyboard-button
+                                           :inline-keyboard
-                                 :text "Blacklist"
+                                           (make-array '(1 2) :initial-contents (list (list whitelist blacklist)))))))
-                                 :callback-data (format nil "bbl:~A" (user-id via))))))))
          nil))))

diff --git a/src/inline-bots.lisp b/src/inline-bots.lisp index 5945084..eb20f21 100644 --- a/src/inline-bots.lisp +++ b/src/inline-bots.lisp
@@ -20,23 +20,20 @@
20	(log-info "Deleting an unallowed inline bot message from ~A ~A"	20	(log-info "Deleting an unallowed inline bot message from ~A ~A"
21	(user-username via)	21	(user-username via)
22	(user-id via))	22	(user-id via))
23	(delete-message bot	23	(try-delete-message bot msg)
24	:chat-id (message-chat-id msg)
25	:message-id (message-id msg))
26	(unless (eq ty :blacklisted)	24	(unless (eq ty :blacklisted)
27	;; Not explicitly blacklisted, notify dev group	25	;; Not explicitly blacklisted, notify dev group
28	(send-message bot	26	(let ((whitelist (make-inline-keyboard-button :text "Whitelist"
29	:chat-id (config-dev-group (bot-config bot))	27	:callback-data (format nil "bwl:~A" (user-id via))))
30	:text (format nil "Deleted a message sent via inline bot @~A <code>~A</code>"	28	(blacklist (make-inline-keyboard-button :text "Blacklist"
31	(user-username via)	29	:callback-data (format nil "bbl:~A" (user-id via)))))
32	(user-id via))	30	(send-message bot
33	:parse-mode "HTML"	31	:chat-id (config-dev-group (bot-config bot))
34	:reply-markup (make-inline-keyboard-markup	32	:text (format nil "Deleted a message sent via inline bot @~A <code>~A</code>"
35	:inline-keyboard	33	(user-username via)
36	#(#((make-inline-keyboard-button	34	(user-id via))
37	:text "Whitelist"	35	:parse-mode "HTML"
38	:callback-data (format nil "bwl:~A" (user-id via)))	36	:reply-markup (make-inline-keyboard-markup
39	(make-inline-keyboard-button	37	:inline-keyboard
40	:text "Blacklist"	38	(make-array '(1 2) :initial-contents (list (list whitelist blacklist)))))))
41	:callback-data (format nil "bbl:~A" (user-id via))))))))
42	nil))))	39	nil))))