;; -*- lexical-binding: t; -*-
;; telegram client for emacs
(use-package! telega
  :init
  (setq telega-server-libs-prefix "/usr")
  (setq telega-directory (expand-file-name "~/.local/share/telega"))


  ;; (prefix-key global-map (kbd "C-c t") telega-prefix-map)
  (unless (display-graphic-p) (setq telega-use-images nil))
  (when (modulep! :editor evil)
    (cl-pushnew 'telega +evil-collection-disabled-list :test #'equal)
    (setq evil-collection-mode-list (remove 'telega evil-collection-mode-list))
    (set-evil-initial-state! '(telega-root-mode telega-chat-mode) 'emacs))

  :hook
  (telega-load . telega-mode-line-mode)
  (telega-load . global-telega-url-shorten-mode)
  (telega-load . global-telega-mnz-mode)
  (telega-load . telega-autoplay-mode)
  (telega-load . telega-transient-mode)
  (telega-load . telega-adblock-mode)
  (telega-chat-mode . (lambda ()
                        (setq-local visual-fill-column-extra-text-width
                                    '(0 . 2))))

  :config
  (add-hook 'telega-msg-ignore-predicates
            (telega-match-gen-predicate 'msg '(sender is-blocked)))
  (setq telega-chat-show-deleted-messages-for '(me-is-owner OR-ADMIN)
        ;; telega-use-tracking-for '(or mention (and unread unmuted))
        telega-open-file-function 'org-open-file
        ;; telega-open-message-as-file '(video video-note)
        telega-translate-to-language-by-default "zh"
        telega-avatar-workaround-gaps-for `(return t)
        telega-mode-line-string-format (remove
                                        '(:eval (telega-mode-line-icon))
                                        telega-mode-line-string-format))

  (map! (:prefix "C-c"
         :desc "Telega all chats"
         "c" #'telega-chat-with
         :desc "Telega important chats"
         "v" #'telega-switch-important-chat
         :desc "Telega next important chat"
         "SPC" (cmd! (let ((current-prefix-arg '(4)))
                       (call-interactively #'telega-switch-important-chat))))
        (:map telega-chat-mode-map
              (:prefix ("C-t" . "Telega chat topic")
               :desc "Telega filter by chat topic"
               "C-t" #'telega-chatbuf-filter-by-topic
               :desc "Telega clear chat topic"
               "C-c" #'telega-chatbuf-thread-cancel)))

                                        ; (load! "+telega-auto-input-method")

  (set-popup-rule! (regexp-quote telega-root-buffer-name)
    :slot 10 :vslot 10 :side 'right :size 90 :ttl nil :quit 'current :modeline t)
  (set-popup-rule! "^◀[^◀\[]*[\[({<].+[\])}>]"
    :slot 10 :vslot 10 :side 'right :size 90 :ttl 10 :quit 'current :modeline t)
  (set-popup-rule! (regexp-quote "*Telega User*")
    :slot 20 :vslot 10 :side 'right :height .5 :ttl 10 :quit t :modeline nil :select t)
  (set-popup-rule! (regexp-quote "*Telegram Chat Info*")
    :slot 20 :vslot 10 :side 'right :height .5 :ttl 10 :quit t :modeline nil :select t))

;; (load! "+telega-addition")

(use-package! telega-dired-dwim
  :after telega dired)

(use-package! telega-bridge-bot
  :after telega)