;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/inline-bots
  (:use :c2cl :ukkoclot/config :ukkoclot/tg)
  (:import-from :log)
  (:import-from :ukkoclot/bot/advanced :try-delete-message)
  (:import-from :ukkoclot/bot/methods :send-message)
  (:import-from :ukkoclot/state :bot-config :bot-db)
  (:local-nicknames (:db :ukkoclot/db))
  (:export :blacklist-inline-bot :on-inline-bot :whitelist-inline-bot))
(in-package :ukkoclot/inline-bots)

(defun blacklist-inline-bot (bot inline-bot-id)
  (db:set-inline-bot-type (bot-db bot) inline-bot-id :blacklisted))

(defun whitelist-inline-bot (bot inline-bot-id)
  (db:set-inline-bot-type (bot-db bot) inline-bot-id :whitelisted))

(defun on-inline-bot (bot msg via)
  (let ((ty (db:get-inline-bot-type (bot-db bot) (user-id via))))
    (if (eq ty :whitelisted)
        t
        (progn
          (log:info "Deleting an unallowed inline bot message from ~A ~A"
                    (user-username via)
                    (user-id via))
          (try-delete-message bot msg)
          (unless (eq ty :blacklisted)
            ;; Not explicitly blacklisted, notify dev group
            (let ((whitelist (make-inline-keyboard-button :text "Whitelist"
                                                          :callback-data (format nil "bwl:~A" (user-id via))))
                  (blacklist (make-inline-keyboard-button :text "Blacklist"
                                                          :callback-data (format nil "bbl:~A" (user-id via)))))
              (send-message bot
                            :chat-id (config-dev-group (bot-config bot))
                            :text (format nil "Deleted a message sent via inline bot @~A <code>~A</code>"
                                          (user-username via)
                                          (user-id via))
                            :parse-mode html
                            :reply-markup (make-inline-keyboard-markup
                                           :inline-keyboard
                                           (make-array '(1 2) :initial-contents (list (list whitelist blacklist)))))))
          nil))))