|
@@ -54,14 +54,14 @@
|
|
|
(defun get-inline-keyboard (buttons &optional (chat-id *chat-id*))
|
|
(defun get-inline-keyboard (buttons &optional (chat-id *chat-id*))
|
|
|
(telegram-inline-keyboard-markup
|
|
(telegram-inline-keyboard-markup
|
|
|
(loop for row in buttons
|
|
(loop for row in buttons
|
|
|
- when row
|
|
|
|
|
- collect (loop for (text . callback) in row
|
|
|
|
|
- when text
|
|
|
|
|
- collect (list
|
|
|
|
|
- :text text
|
|
|
|
|
- :callback-data
|
|
|
|
|
- (encode-callback-data
|
|
|
|
|
- chat-id :inline (add-button callback) +ttl+))))))
|
|
|
|
|
|
|
+ when (loop for (text . callback) in row
|
|
|
|
|
+ when text
|
|
|
|
|
+ collect (list
|
|
|
|
|
+ :text text
|
|
|
|
|
+ :callback-data
|
|
|
|
|
+ (encode-callback-data
|
|
|
|
|
+ chat-id :inline (add-button callback) +ttl+)))
|
|
|
|
|
+ collect it)))
|
|
|
|
|
|
|
|
(def-callback-section-handler cb-handle-inline (:inline)
|
|
(def-callback-section-handler cb-handle-inline (:inline)
|
|
|
(let ((button (gethash (parse-integer *data*) *inline-buttons*)))
|
|
(let ((button (gethash (parse-integer *data*) *inline-buttons*)))
|