telega-customize.el

;;; telega-customize.el --- Customization for telega  -*- lexical-binding:t -*-

;; Copyright (C) 2018 by Zajcev Evgeny.

;; Author: Zajcev Evgeny <zevlg@yandex.ru>
;; Created: Mon Apr 23 18:11:45 2018
;; Keywords:

;; telega is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; telega is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with telega.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;;

;;; Code:
(require 'widget)     ; `define-widget'
(require 'cus-edit)   ; `custom-variable-type'
(require 'dired)      ; `dired-dwim-target'
(require 'svg)        ; `svg-embed-base-uri-image'
(require 'minibuffer) ; `completing-read-function', `completion-styles'

;; Types for readability
(define-widget 'telega-chat-temex 'lazy
  "Temex to match a chat."
  :tag "Chat Temex"
  :type 'sexp)

(define-widget 'telega-user-temex 'lazy
  "Temex to match a user."
  :tag "User Temex"
  :type 'sexp)

(define-widget 'telega-msg-temex 'lazy
  "Temex to match a message."
  :tag "Message Temex"
  :type 'sexp)

(define-widget 'telega-sender-temex 'lazy
  "Temex to match a message sender."
  :tag "Message Sender Temex"
  :type 'sexp)

(define-widget 'telega-topic-temex 'lazy
  "Temex to match a topic."
  :tag "Topic Temex"
  :type 'sexp)

(define-widget 'telega-story-temex 'lazy
  "Temex to match a story."
  :tag "Story Temex"
  :type 'sexp)


(defgroup telega nil
  "Telegram client."
  :prefix "telega-"
  :group 'applications
  :link '(url-link :tag "Github" "https://github.com/zevlg/telega.el"))

(defcustom telega-directory (expand-file-name "~/.telega")
  "Directory for telega runtime files.
Set this variable before loading telega, because other variables
depends on `telega-directory' value."
  :type 'directory
  :group 'telega)

(defcustom telega-database-dir telega-directory
  "*Directory for the TDLib's persistent database."
  :type 'directory
  :group 'telega)

(defcustom telega-cache-dir (expand-file-name "cache" telega-directory)
  "*Directory for telegram downloads."
  :type 'directory
  :group 'telega)

(defcustom telega-temp-dir (expand-file-name "temp" telega-directory)
  "*Directory for temporary files used by telega."
  :type 'directory
  :group 'telega)

(defcustom telega-accounts nil
  "*List of the accounts to be used by telega.
Each element is a list in form:
(ACCOUNT-NAME CUSTOM-VAR1 VAL1 CUSTOM-VAR2 VAL2 ...).
At least `telega-database-dir' should be customized for each account."
  :type 'sexp
  :group 'telega)

(defcustom telega-language "en"
  "*IETF language tag of the user's language."
  :type 'string
  :group 'telega)

(defcustom telega-options-plist
  (list :online t
        :localization_target "tdesktop"
        :language_pack_id telega-language
        :use_storage_optimizer :false
        :ignore_file_names :false)
  "*Plist of options to set.
Only writable options can be set.
See https://core.telegram.org/tdlib/options"
  :type 'plist
  :group 'telega)

(defcustom telega-debug nil
  "*Non-nil to enable telega debugging buffer."
  :type '(choice (boolean :tag "On/Off")
                 (list (choice (const :tag "Add debug into IV" iv)
                               (const :tag "Add debug into info buffers" info))))
  :group 'telega)

(defcustom telega-use-test-dc nil
  "*Non-nil to use telegram's test environment instead of production."
  :type 'boolean
  :group 'telega)

(defcustom telega-use-file-database t
  "Non-nil to save downloaded/uploaded files among restarts."
  :type 'boolean
  :group 'telega)

(defcustom telega-use-chat-info-database t
  "Cache chats informations among restarts.
Implies `telega-use-file-database' set to non-nil."
  :type 'boolean
  :group 'telega)

(defcustom telega-use-message-database t
  "Cache chats and messages among restarts.
Implies `telega-use-chat-info-database' set to non-nil."
  :type 'boolean
  :group 'telega)

(defcustom telega-proxies nil
  "*List of proxies.
Format is:
  (:server \"<ADDRESS>\" :port <PORT> :enable <BOOL> :type <PROXY-TYPE>)

where PROXY-TYPE is one of:
- (:@type \"proxyTypeSocks5\" :username <USER> :password <PASSWORD>)
- (:@type \"proxyTypeHttp\" :username <USER> :password <PASSWORD>
   :http_only <BOOL>)
- (:@type \"proxyTypeMtproto\" :secret <SECRET-STRING>)

<BOOL> is either t or `:false', nil is not valid value."
  :type '(repeat plist)
  :group 'telega)

(defcustom telega-idle-delay 0.5
  "*Delay before taking actions when Emacs gets idle."
  :type 'number
  :group 'telega)

(defcustom telega-week-start-day 1
  "*The day of the week on which a week in the calendar begins.
0 means Sunday, 1 means Monday (default), and so on."
  :type 'integer
  :group 'telega)

(defcustom telega-date-format-alist
  '((today     . "%H:%M")
    (this-week . "%a")
    (old       . "%d.%m.%y")
    (date      . "%d.%m.%y")
    (time      . "%H:%M")
    (date-time . "%d.%m.%y %a %H:%M")
    (date-long . "%d %B %Y")
    (date-break-bar . "%d %B %Y %a"))
  "Alist of date and time formats.
Value is a format accepted by `format-time-string'."
  :package-version '(telega . "0.8.240")
  :type '(alist :key-type
                (choice (const :tag "If date is today" today)
                        (const :tag "If date is on this week" this-week)
                        (const :tag "If date is older than this week" old)
                        (const :tag "Format for the date only" date)
                        (const :tag "Format for the time only" time)
                        (const :tag "Full date with time" date-time)
                        (const :tag "Long format for the date only" date-long)
                        (const :tag "Format for date break bar" date-break-bar))
                :value-type string)
  :group 'telega)

(defcustom telega-help-messages t
  "*Non-nil to show sometime UI related messages."
  :type 'boolean
  :group 'telega)

(defcustom telega-use-short-filenames t
  "*Non-nil to cut /home/user/.telega/cache from filenames."
  :type 'boolean
  :group 'telega)

(defcustom telega-use-short-numbers t
  "Non-nil to write numbers larger then 1000 in \"X.Yk\" form."
  :package-version '(telega . "0.7.57")
  :type 'boolean
  :group 'telega)

(defcustom telega-use-tracking-for nil
  "*Specifies Chat Temex for chats to be tracked with tracking.el.
Make sure you have tracking.el loaded if this option is used.
Only chats with corresponding opened chatbuf are tracked.
Tracking notifications for telega buffers will use the
`telega-tracking` face."
  :package-version '(telega . "0.5.7")
  :type 'telega-chat-temex
  :options '((not (or saved-messages (type channel bot)))
             (or unmuted mention))
  :group 'telega)

(defcustom telega-chat-delete-skip-confirmation-for nil
  "*Specifies Chat Temex for chats which can be deleted without
typing confirmation."
  :package-version '(telega . "0.8.293")
  :type 'telega-chat-temex
  :group 'telega-chat)

(defcustom telega-image-transform-smoothing t
  "Default value for the `:transform-smoothing' image property.
If nil, then smoothing is applied only for downscaled images, if image
is upscaled then nearest neighbor filter is used to show real pixels."
  :package-version '(telega . "0.8.291")
  :type 'boolean
  :group 'telega)

(defcustom telega-use-images (or (and (fboundp 'image-transforms-p)
                                      (funcall 'image-transforms-p))
                                 (when (fboundp 'imagemagick-types)
                                   'imagemagick))
  "Non-nil to show images.
Explicitly set it to non-nil if using Emacs as a service and
want to create X frames to show images.
See https://zevlg.github.io/telega.el/#settings-for-emacs-as-daemon

Set to `imagemagick' to use ImageMagick to handle images (not recommended)."
  :package-version '(telega . "0.8.256")
  :type 'sexp
  :group 'telega)

(defcustom telega-use-svg-base-uri (fboundp 'svg-embed-base-uri-image)
  "Non-nil to use `:base-uri' SVG functionality."
  :type 'boolean
  :group 'telega)

(defcustom telega-use-one-line-preview-for (when telega-use-svg-base-uri 'all)
  "Chat Temex for chats where to show one-line previews for photos/videos.
Used only if `telega-use-images' is non-nil.
Enable it only if you have `:base-uri' SVG functionality, otherwise
performance might suffer."
  :package-version '(telega . "0.7.26")
  :type 'telega-chat-temex
  :group 'telega-chat)

;; See https://t.me/emacs_telega/12459
(defcustom telega-box-button-endings 'telega-box-button--endings-func
  "*Characters to use as beginning/ending of the button.
Set to (\"[\" . \"]\") in nox-emacs setup.
Could be a function of one argument - LABEL, should return cons
cell of endings for the button with LABEL."
  :type '(choice function (cons string string))
  :group 'telega)

(defcustom telega-builtin-palettes-alist
  ;; Palettes for builtin colors:
  ;;  red, orange, purple/voilet, green, cyan, blue, pink
  '((light
     ((:outline "#990000") (:foreground "#aa0000")     (:background "#d1c7c7"))
     ((:outline "#994c00") (:foreground "DarkOrange3") (:background "#d1ccc7"))
     ((:outline "#4e1781") (:foreground "purple3")     (:background "#cdc7d1"))
     ((:outline "#006000") (:foreground "#007000")     (:background "#c7d1c7"))
     ((:outline "#007070") (:foreground "cyan4")       (:background "#cacfcf"))
     ((:outline "#003365") (:foreground "#014d98")     (:background "#c6cbd1"))
     ((:outline "#5e0736") (:foreground "DeepPink3")   (:background "#d1c7cb")))
    (dark
     ((:outline "#ff0a0a") (:foreground "#dd0000") (:background "#3d2828"))
     ((:outline "#ff8d1e") (:foreground "DarkOrange2") (:background "#2c2620"))
     ((:outline "#f6c2f6") (:foreground "violet") (:background "#2e1e2e"))
     ((:outline "#0aff0a") (:foreground "#00dd00") (:background "#1e2e1e"))
     ((:outline "#00f5f6") (:foreground "cyan3") (:background "#234242"))
     ((:outline "#3e9efd") (:foreground "#168afd") (:background "#1e262e"))
     ((:outline "#fabddd") (:foreground "#f688c3") (:background "#470528"))
     ))
  "Alist of builtin colors for light and dark themes."
  :package-version '(telega . "0.8.292")
  :type '(alist :key-type
                (choice (const :tag "Colors for light theme" light)
                        (const :tag "Colors for dark theme" dark))
                :value-type (repeat (list string)))
  :group 'telega)

(defcustom telega-palette-context-ignore-list '(msg-header)
  "List of `telega-palette-context' values to ignore."
  :type '(list symbol)
  :package-version '(telega . "0.8.292")
  :group 'telega)

;;; ellit-org: inline-bot-options
;; - {{{user-option(telega-known-inline-bots,2)}}}
(defcustom telega-known-inline-bots '("@gif" "@youtube" "@pic")
  "List of known bots for everyday use."
  :type '(repeat string)
  :group 'telega)

;;; ellit-org: inline-bot-options
;; - {{{user-option(telega-inline-query-window-select,2)}}}
(defcustom telega-inline-query-window-select t
  "*Non-nil to select window with inline query results."
  :type 'boolean
  :group 'telega)

(defcustom telega-inline-login-url-action 'query-all
  "Action to take on login url keyboard buttons."
  :package-version '(telega . "0.6.30")
  :type '(choice (const :tag "Ask user what to do" query-all)
                 (const :tag "Ask user to open url only" query-open)
                 (const :tag "Open url without query, but query user for login and write access" query-login-and-write-access)
                 (const :tag "Open url without query, but query user for login, without querying for write access" query-login-only)
                 (const :tag "Do not login, just open the url" nil))
  :group 'telega)

(defcustom telega-chat--display-buffer-action
  '((display-buffer-reuse-window display-buffer-same-window))
  "Action value when poping to chatbuffer.
See docstring for `display-buffer' for the values."
  :type (get 'display-buffer-alist 'custom-type)
  :group 'telega)

(defcustom telega-translate-to-language-by-default nil
  "Default language code for messages translation.
If nil, then use language suggested by the server."
  :package-version '(telega . "0.8.72")
  :type '(choice (const :tag "Suggested by the server" nil)
                 string)
  :group 'telega)

(defcustom telega-translate-replace-content nil
  "Non-nil to replace message's content with the translated text.
Original message's content can be seen with
`\\<telega-chat-mode-map>\\[telega-describe-message]' command."
  :package-version '(telega . "0.8.72")
  :type 'boolean
  :group 'telega)

(defconst telega-tdlib-network-type-alist
  '((nil . (:@type "networkTypeNone"))
    (mobile . (:@type "networkTypeMobile"))
    (roaming-mobile . (:@type "networkTypeMobileRoaming"))
    (wi-fi . (:@type "networkTypeWiFi"))
    (other . (:@type "networkTypeOther")))
  "Network types.")

(defcustom telega-network-type 'other
  "Network type to use by default.
Use `M-x telega-set-network-type RET' to change it while telega is
running."
  :type `(choice ,@(mapcar (lambda (nt)
                             (list 'const :tag
                                   (substring (plist-get (cdr nt) :@type) 11)
                                   (car nt)))
                           telega-tdlib-network-type-alist))
  :group 'telega)


;;; Docker support
(defgroup telega-docker nil
  "Customisation for docker support."
  :prefix "telega-docker-"
  :group 'telega)

(defcustom telega-use-docker nil
  "*Non-nil to use \"docker\" to run various tools.
Including `telega-server'.
Could be a string denoting binary to use instead of \"docker\"."
  :package-version '(telega . "0.7.40")
  :type '(choice boolean
                 (string :tag "Docker binary"))
  :options '("podman")
  :group 'telega-docker)

(defcustom telega-docker-security-opt "apparmor=unconfined"
  "security-opt option for the docker run command.
Set to \"apparmor=unconfined\" if you use `telega-appindicator-mode'."
  :package-version '(telega . "0.7.40")
  :type 'string
  :group 'telega-docker)

;; NOTE: see https://t.me/emacs_telega/39721
;; for Debian 11 running telega-server under docker
(defcustom telega-docker-volumes '("/usr/share/X11/xkb")
  "List of additional volumes to attach."
  :package-version '(telega . "0.8.121")
  :type '(repeat directory)
  :group 'telega-docker)

;; To use something like: docker run --security-opt apparmor=unconfined -i -u %u -v %w:%w -v /tmp/.X11-unix:/tmp/.X11-unix -v $XAUTHORITY:$XAUTHORITY -v /var/run/dbus:/var/run/dbus -e DISPLAY=$DISPLAY -e XAUTHORITY=$XAUTHORITY --net=host %i
(defcustom telega-docker-run-command nil
  "Custom docker command to use to run `telega-server' in docker.
If nil, autogenerate the command according to all telega docker settings.
%u - substituted with current used UID:GID
%w - substituted with current Telegram account database directory.
%i - substituted with infered docker image name."
  :package-version '(telega . "0.7.40")
  :type '(choice (const :tag "Automatically generate" nil)
                 (string :tag "Custom docker command"))
  :group 'telega-docker)

(defcustom telega-docker-run-arguments nil
  "Additional arguments just after \"run\" command of the docker.
For podman setup you might want to use \"--userns=keep-id\" as value
for the `telega-docker-run-arguments'."
  :package-version '(telega . "0.8.75")
  :type '(choice (const :tag "No additional arguments" nil)
                 (string :tag "Custom docker run arguments"))
  :group 'telega-docker)


(defgroup telega-emoji nil
  "Customisation for telega emojis."
  :prefix "telega-emoji-"
  :group 'telega)

(defcustom telega-emoji-custom-alist nil
  "*Alist of custom emojis to add along with `etc/emojis.alist'."
  :type '(alist :key-type string :value-type string)
  :group 'telega-emoji)

(defcustom telega-emoji-font-family
  (let ((ffl (font-family-list)))
    (or (car (member "Emoji One" ffl))
        (car (member "Twemoji" ffl))
        (car (member "Noto Color Emoji" ffl))))
  "*Font to use for emoji image generation using `telega-emoji-create-svg'."
  :type '(choice (const :tag "None" nil)
                 (string :tag "Font Name"))
  :group 'telega-emoji)

(defcustom telega-emoji-use-images
  (and telega-use-images (image-type-available-p 'svg) telega-emoji-font-family)
  "*Non-nil to use images for emojis."
  :type 'boolean
  :group 'telega-emoji)

(defcustom telega-emoji-large-height 2
  "*Vertical size in characters for emoji only messages.
Used only if `telega-emoji-use-images' is non-nil."
  :type 'integer
  :group 'telega-emoji)


;; Stickers/Animations
(defcustom telega-sticker-size '(4 . 24)
  "*Size for the sticker.
car is height in chars to use.
cdr is maximum width in chars to use."
  :type '(cons (integer :tag "Height in chars")
               (integer :tag "Maximum width in chars"))
  :group 'telega)

(defcustom telega-sticker-favorite-background "cornflower blue"
  "*Background color for the favorite stickers.
Can be nil, in this case favorite stickers are not outlined."
  :type '(choice (const :tag "None" nil) color)
  :group 'telega)

(defcustom telega-sticker-set-download nil
  "*Non-nil to automatically download known sticker sets."
  :type 'boolean
  :group 'telega)

(defcustom telega-sticker-set-show-cover telega-use-images
  "*Non-nil to show sticker set cover when completing stickerset."
  :type 'boolean
  :group 'telega)

(defcustom telega-sticker-set-show-emoji nil
  "*Non-nil to show emoji along with sticker in sticker set help win."
  :type 'boolean
  :group 'telega)

(defcustom telega-sticker-animated-play
  (and telega-use-images
       (or (executable-find "tgs2png") telega-use-docker))
  "Non-nil to play animated stickers inside Emacs.
Requires `tgs2png' program from https://github.com/zevlg/tgs2png"
  :package-version '(telega . "0.7.30")
  :type 'boolean
  :group 'telega)

(defcustom telega-emoji-animated-play
  (when telega-sticker-animated-play 'with-sound)
  "Non-nil to play animated emoji as animated sticker.
Can be the `with-sound' symbol , in this case play animated emoji with sound."
  :package-version '(telega . "0.7.81")
  :type 'boolean
  :group 'telega-emoji)

(defcustom telega-animation-height 5
  "*Height in chars for animations."
  :type 'integer
  :group 'telega)

(defcustom telega-animation-play-inline 10
  "*Non-nil to play animation inside telega.
If number, then play animation inline only if animation is shorter
then this number of seconds."
  :package-version '(telega . "0.7.45")
  :type '(choice boolean integer)
  :group 'telega)

(defcustom telega-animation-download-saved nil
  "*Non-nil to automatically download saved animations."
  :type 'boolean
  :group 'telega)

(defcustom telega-avatar-factors-alist
  '((1 . (0.8 . 0.1))
    (2 . (0.8 . 0.1)))
  "*Alist of size coefficients used in avatar creation.
Each element is in form:
  (CHEIGHT CIRCLE-FACTOR . MARGIN-FACTOR)
See `telega-avatar--create-image' for more info."
  :package-version '(telega . "0.5.8")
  :type '(alist :key-type (integer :tag "Height in chars")
                :value-type (cons (number :tag "Circle factor")
                                  (number :tag "Margin factar")))
  :group 'telega)

(defcustom telega-avatar-workaround-gaps-for nil
  "Chat temex for chats to enable workaround for gaps in the avatars."
  :package-version '(telega . "0.8.215")
  :type 'chat-temex
  :options '((return t))
  :group 'telega)

(defcustom telega-avatar-text-function #'telega-avatar-text-simple
  "Function to be used to get text for the first slice of the avatar."
  :package-version '(telega . "0.8.215")
  :type 'function
  :options '(telega-avatar-text-composed)
  :group 'telega)

(defcustom telega-vvnote-waves-height-factor 0.8
  "*Factor for waves svg height."
  :package-version '(telega . "0.8.292")
  :type 'float
  :group 'telega)

(defcustom telega-video-note-height '(6 . 9)
  "*Height in chars for video notes.
Can be also a cons cell, where car specifies height for video note
when note is not playing, and cdr specifies height for video note when
note is currently playing."
  :package-version '(telega . "0.7.54")
  :type '(choice integer (cons integer integer))
  :group 'telega)

(defcustom telega-video-note-play-inline t
  "*Non-nil to play video notes inside chatbuffer."
  :type 'boolean
  :group 'telega)

(defcustom telega-video-play-inline nil
  "*Non-nil to play video files inside telega.
NOT USED."
  :type 'boolean
  :group 'telega)

(defcustom telega-video-play-incrementally t
  "Non-nil to start playing video while still downloading the file."
  :package-version '(telega . "0.7.40")
  :type 'boolean
  :group 'telega)

(defcustom telega-video-player-command
  (cond ((executable-find "ffplay")
         '(concat "ffplay -autoexit"
                  (when telega-ffplay-media-timestamp
                    (format " -ss %f" telega-ffplay-media-timestamp))))
        ((executable-find "mpv")
         '(concat "mpv"
                  (when telega-ffplay-media-timestamp
                    (format " --start=%f" telega-ffplay-media-timestamp))))
        ((executable-find "mplayer")
         '(concat "mplayer"
                  (when telega-ffplay-media-timestamp
                    (format " -ss %f" telega-ffplay-media-timestamp)))))
  "Command used to play video files.
Can be a sexp to evaluate to get a command."
  :package-version '(telega . "0.7.57")
  :type '(choice string (list string))
  :options '("mpv" "ffplay -autoexit -fs")
  :group 'telega)

(defcustom telega-open-file-function #'find-file
  "Function to use to open files associated with messages.
Called with single argument - filename to open.
Could be used to open files in external programs.
Set it to `org-open-file' to use Org mode to open files."
  :package-version '(telega . "0.6.31")
  :type 'function
  :options '(org-open-file browse-url-xdg-open)
  :group 'telega)

(defcustom telega-open-message-as-file nil
  "List of message types to open as file using `telega-open-file-function'.
Supported message types are: `photo', `video', `audio',
`video-note', `voice-note', `animation'.
Document messages are always opens as file."
  :package-version '(telega . "0.7.0")
  :type '(repeat (choice (const :tag "Photo messages" photo)
                         (const :tag "Video messages" video)
                         (const :tag "Audio messages" audio)
                         (const :tag "Video Note messages" video-note)
                         (const :tag "Voice Note messages" voice-note)
                         (const :tag "Animation messages" animation)))
  :group 'telega)

(defcustom telega-open-message-ffplay-args
  '((audio      . "-nodisp")
    (voice-note . "-nodisp")
    (animated-emoji . "-nodisp")
    (animation  . "-loop 0"))
  "*Additional arguments to ffplay to play various type of messages.
Each element is a cons cell, where car is one of: `video', `audio',
`video-note', `voice-note', `animation', `animated-emoji' and cdr is
string with additional ffplay arguments.

Some useful ffplay arguments to consider:
 - \"-volume 10\" to play with dimmed volume
 - \"-fs\" for `video' messages, to start at fullscreen."
  :package-version '(telega . "0.7.5")
  :type '(alist :key-type symbol :value-type string)
  :group 'telega)

(defcustom telega-browse-url-alist nil
  "Alist of custom url browse functions.
Each element is in form: `(PREDICATE-OR-REGEX . FUNCTION)'."
  :package-version '(telega . "0.7.8")
  :type '(alist :key-type (choice function regexp)
                :value-type function)
  :group 'telega)

;; Locations
(defcustom telega-location-url-format
  "http://maps.google.com/?q=%N,%E&ll=%N,%E&z=15"
  "*URL format used to open location messages.
%N substituted with latitude.
%E substituted with longitude."
  :type 'string
  :options '("https://yandex.ru/maps/?ll=%E,%N&pt=%E,%N&z=15")
  :group 'telega)

(defcustom telega-my-location nil
  "Set to non-nil to use this as location of me.
Plist in form (:latitude <LAT> :longitude <LONG>)
To publically expose this location set `:is_location_visible' to
non-nil in `telega-options-plist'.
Used to calculate distances from other peers to me."
  :type 'plist
  :group 'telega)

(defcustom telega-location-size (cons 10 40)
  "*Size for location image in char height/width.
In pixels height and width should be in range [16..1024]."
  :type '(cons integer integer)
  :group 'telega)

(defcustom telega-location-zoom 15
  "*Zoom for location image.
In range [13..20]"
  :type 'integer
  :group 'telega)

(defcustom telega-location-scale 1
  "*Scale for location image.
In range [1..3].  Use 1."
  :type 'number
  :group 'telega)

(defcustom telega-location-show-me t
  "*Non-nil to show me on location maps if it fits into the map thumbnail."
  :package-version '(telega . "0.7.63")
  :type 'boolean
  :group 'telega)

(defcustom telega-location-live-tracks t
  "*Non-nil to draw live location tracks."
  :type 'boolean
  :group 'telega)


(defgroup telega-server nil
  "Customisation for telega-server."
  :prefix "telega-server-"
  :group 'telega)

(defcustom telega-server-command "telega-server"
  "Command to run as telega server.
It should be absolute path or binary file searchable in `exec-path'."
  :type 'string
  :group 'telega-server)

(defcustom telega-server-libs-prefix "/usr/local"
  "*Prefix where tdlib and tgvoip libraries are installed.
TELEGA-SERVER-LIBS-PREFIX/include is used for headers files.
TELEGA-SERVER-LIBS-PREFIX/lib is used for library files."
  :type 'directory
  :group 'telega-server)

(defcustom telega-server-logfile
  (expand-file-name "telega-server.log" telega-directory)
  "*Write server logs to this file.
Set it to nil to disable telega-server logging."
  :type 'file
  :group 'telega-server)

(defcustom telega-server-verbosity (if telega-debug 5 3)
  "*Verbosity level for server process.
Verbosity levels are from 0 (disabled) to 5 (debug)."
  :type 'integer
  :group 'telega-server)

(defcustom telega-server-call-timeout 1.0
  "*Timeout for `telega-server--call'."
  :type 'number
  :group 'telega-server)


(defgroup telega-root nil
  "Customization for telega-root-mode"
  :prefix "telega-root-"
  :group 'telega)

(defcustom telega-root-default-view-function 'telega-view-default
  "*Default view for the rootbuf."
  :package-version '(telega . "0.6.23")
  :type 'function
  :group 'telega-root)

(defcustom telega-root-view-ewocs-delim
  (propertize "\n" 'display '((height 0.25)))
  "Delimiter for the root view ewocs."
  :package-version '(telega . "0.6.23")
  :type 'string
  :group 'telega-root)

(defcustom telega-root-view-grouping-alist
  '(("Important" . important))
  "Alist of chat temexes for \"grouping\" root view.
Car is name of the chats group, cdr is a chat temex to match chats."
  :package-version '(telega . "0.8.221")
  :type 'alist
  :group 'telega-root)

;;; ellit-org: folders-options
;; - {{{user-option(telega-root-view-grouping-folders, 2)}}}
(defcustom telega-root-view-grouping-folders 'append
  "*Non-nil to add Chat Folders in the grouping root view.
Could be one of `prepend', `append' or nil."
  :package-version '(telega . "0.8.221")
  :type '(choice (const :tag "Prepend folders" prepend)
                 (const :tag "Append folders" append)
                 (const :tag "Do not add folders" nil))
  :group 'telega-root)

(defcustom telega-root-view-grouping-other-chats t
  "*Non-nil to show other chats in the \"grouping\" root view."
  :package-version '(telega . "0.6.30")
  :type 'boolean
  :group 'telega-root)

(defcustom telega-root-view-top-categories
  '(("Users" . 10)
    ("Groups" . 10)
    ("Channels" . 10)
    ("Bots" . 10)
    ("InlineBots" . 10)
    ("Calls" . 10)
    ("ForwardChats" . 10))
  "List of top categories with limits."
  :package-version '(telega . "0.6.23")
  :type '(alist :key-type string :value-type integer)
  :group 'telega-root)

(defcustom telega-root-view-files-exclude-subdirs
  '((telega-file--downloaded-p "thumbnails" "profile_photos"))
  "Alist specifying which subdirs to exclude when viewing files.
car of each element is predicate matching file, and rest is list of
subdirectories to ignore, i.e. if absolute file name contains any of
the subdirectory in list, then file is ignored.
Supported predicates: `telega-file--downloading-p',
`telega-file--uploading-p', `telega-file--downloaded-p',
`telega-file--uploaded-p', `telega-file--partially-downloaded-p',
`telega-file--partially-uploaded-p'"
  :package-version '(telega . "0.7.6")
  :type 'alist
  :group 'telega-root)

(defcustom telega-root-keep-cursor 'track
  "*Non-nil to keep cursor at current chat, even if chat's order changes.
Set to `track', to move cursor to corresponding chat button, when
chat buffers are switched, useful in side-by-side window setup
for rootbuf and chatbuf.

Consider setting `switch-to-buffer-preserve-window-point' to nil,
to make `telega-root-keep-cursor' always work as expected."
  :type '(choice (const :tag "Track chat buffers" track)
                 (const :tag "Stick to chat at point" t))
  :group 'telega-root)

(defcustom telega-root-show-avatars (and telega-use-images
                                         (image-type-available-p 'svg))
  "*Non-nil to show chat avatars in root buffer."
  :type 'boolean
  :group 'telega-root)

(defcustom telega-root-buffer-name "*Telega Root*"
  "*Buffer name for telega root buffer."
  :type 'string
  :group 'telega-root)

(defcustom telega-root-fill-column fill-column
  "*Maximum width to use in root buffer to display active filters and chats."
  :type 'integer
  :group 'telega-root)

(defcustom telega-root-aux-inserters nil
  "List of additional inserters to show below Status in the rootbuf.
Can be used to display additional global data.
Insert MUST return non-nil if something has been inserted."
  :package-version '(telega . "0.7.56")
  :type '(repeat function)
  :group 'telega-root)

;;; ellit-org: folders-options
;; - {{{user-option(telega-folder-icons-alist, 2)}}}
(defcustom telega-folder-icons-alist
  (list (cons "All"      "💬")
        (cons "Unread"   "✅")
        (cons "Unmuted"  "🔔")
        (cons "Bots"     "🤖️")
        (cons "Channels" "📢")
        (cons "Groups"   "👥")
        (cons "Private"  "👤")
        ;; NOTE: all folders has "Custom" icon name, to avoid icon
        ;; being displayed with folder name we exclude "Custom" from
        ;; the list
;        (cons "Custom"   "📁")
        (cons "Setup"    "📋")
        (cons "Cat"      "🐱")
        (cons "Crown"    "👑")
        (cons "Favorite" "⭐️")
        (cons "Flower"   "🌹")
        (cons "Game"     "🎮")
        (cons "Home"     "🏠")
        (cons "Love"     "❤️")
        (cons "Mask"     "🎭")          ; or 😷
        (cons "Party"    "🍸")
        (cons "Sport"    "⚽️")          ; or 🏅
        (cons "Study"    "🎓")
        (cons "Trade"    "📊")          ; or 📈
        (cons "Travel"   "🛫️")          ; or ✈️
        (cons "Work"     "💼")
        (cons "Airplane" "✈️️")
        (cons "Book"     "📖")
;        (cons "Light")
        (cons "Like"     "👍")
        (cons "Money"    "💰")
        (cons "Note"     "🗒️")
;        (cons "Palette")
        )
  "Alist of symbols to be used as folder icons instead of `telega-symbol-folder'.
See list of all available icon names in `telega-folder-icon-names'."
  :type 'alist
  :group 'telega)

;;; ellit-org: folders-options
;; - {{{user-option(telega-chat-folders-insexp, 2)}}}
(defcustom telega-chat-folders-insexp 'telega-folders-insert-default
  "Inserter sexp for chat folders prefixing chat's title.
While using this insexp `telega-chat-folders' is bound to the list of
folder names to be inserted."
  :package-version '(telega . "0.8.255")
  :type 'sexp
  :group 'telega-chat)

;;; ellit-org: folders-options
;; - {{{user-option(telega-chat-folders-exclude, 2)}}}
(defcustom telega-chat-folders-exclude (list "Unread" "Personal")
  "Exclude these folders from chat folders list to be displayed."
  :package-version '(telega . "0.6.30")
  :type '(repeat (string :tag "Folder"))
  :group 'telega-chat)

(defcustom telega-chat-title-custom-for
  (list (cons '(or saved-messages replies-messages)
              (lambda (title) (propertize title 'face 'bold)))
        )
  "Alist of custom titles for chats.
Each element is a cons cell, where car is a Chat Temex and cdr
is a function accepting title string and returning string."
  :package-version '(telega . "0.6.31")
  :type '(alist :key-type telega-chat-temex
                :value-type function)
  :group 'telega-root)

(defcustom telega-chat-button-width '(0.35 15 48)
  "*Width for the chat buttons in root buffer.
If integer, then use this number of chars.
If float in range (0..1), then occupy this percents of
`telega-root-fill-column' chars, but not less then 10 chars.
If list, where first element is float, then use 1 and 2 list values as
min and max values for a width calculation using
 `telega-canonicalize-number'."
  :package-version '(telega . "0.7.41")
  :type '(choice number (list number))
  :group 'telega-chat)

(defcustom telega-chat-button-format-plist
  (list :with-folders-insexp 'telega-chat-folders-insexp
        :with-unread-trail-p t
        :with-status-icons-trail-p t)
  "Plist specifies formatting for a chat button in the rootbuf.
Possible arguments:
`:with-folders-insexp'  - Use inserter sexp for chat folders.
`:with-username-p'      - To show username along with title.
                          Could be a face to be used for username.
`:with-title-faces-p'   - To use chat specific colors for title.
`:with-unread-trail-p'  - To show unread messages status inside brackets.
`:with-members-trail-p' - To show members trail inside brackets.
`:with-status-icons-trail-p' - To show status icons outside brackets."
  :package-version '(telega . "0.8.121")
  :type 'plist
  :group 'telega-chat)

(defcustom telega-chat-format-plist-for-completion
  (list ;:with-folders-insexp 'telega-chat-folders-insexp
        :with-title-faces-p t
        :with-username-p 'telega-username
        :with-unread-trail-p t
        :with-status-icons-trail-p t)
  "Formatting for the chat button while performing read with completions.
Used in the `telega-msg-sender-title-for-completion' function."
  :package-version '(telega . "0.8.255")
  :type 'plist
  :group 'telega-chat)

(defcustom telega-chat-button-format-temex nil
  "Non-nil to use temex instead of `telega-chat-button-format-plist'.
This temex should return plist in the
`telega-chat-button-default-format' form as a result of matching.  So
different chats could have different formatting."
  :package-version '(telega . "0.8.121")
  :type 'telega-chat-temex
  :group 'telega-root)

(defcustom telega-topic-button-format-plist
  (list :prefix-space "  "
        :with-unread-trail-p t
        :with-status-icons-trail-p t)
  "Plist specifies formatting for a chat button in the rootbuf.
Possible arguments:
`:prefix-space'         - Prefix to use in the beginning of topic button.
`:with-brackets-p'      - To show topic `telega-symbol-topic-brackets'.
`:with-title-faces-p'   - To use topic specific colors for title.
`:with-unread-trail-p'  - To show unread messages status inside brackets.
`:with-status-icons-trail-p' - To show status icons outside brackets."
  :package-version '(telega . "0.8.121")
  :type 'plist
  :group 'telega-root)

(defcustom telega-topic-button-format-temex nil
  "Non-nil to use this topic temex instead of `telega-topic-button-format-plist'.
This topic temex should return plist in the
`telega-topic-button-default-format' form as a result of matching.  So
different topics could have different formatting."
  :package-version '(telega . "0.8.121")
  :type 'telega-topic-temex
  :group 'telega-root)

(defcustom telega-topic-button-sort-by-recency t
  "Non-nil to sort topic buttons in the rootbuf by last message recency."
  :type 'boolean
  :group 'telega-root)

(defcustom telega-brackets
  '(((chat (type private bot)) "{" "}")
    ((chat (type basicgroup))  "(" ")")
    ((chat (type supergroup))  "[" "]")
    ((chat (type channel))     "<" ">")
    ((user (return t))         "{" "}")
    ((return t)                "[" "]"))
  "Brackets to use for a message sender formatting.
Each element is in form:
  (<SENDER-TEMEX> <OPEN-BRACKET> <CLOSE-BRACKET>)"
  :type '(repeat (list telega-chat-temex string string))
  :group 'telega-root)

(defcustom telega-status-animate-interval 0.5
  "Dots animation interval for telega status shown in root buffer."
  :type 'number
  :group 'telega-root)

(defcustom telega-online-status-function (if (or (fboundp 'frame-focus-state)
                                                 (display-graphic-p))
                                             'telega-focus-state
                                           'telega-buffer-p)
  "Function used to determine if user is online.
Function should return non-nil if user is online, and nil if offline.
See https://github.com/zevlg/telega.el/issues/171"
  :package-version '(telega . "0.6.14")
  :options '(telega-buffer-p)
  :type 'function
  :group 'telega)

(defcustom telega-offline-status-interval 3
  "Interval in seconds before going offline when emacs looses focus."
  :type 'number
  :group 'telega)

(defcustom telega-online-status-interval 0.1
  "Interval in seconds before going online when emacs gets focus."
  :type 'number
  :group 'telega)

(defcustom telega-focus-out-debounce-internal 0.5
  "Interval in seconds to debounce focus loose events."
  :type 'number
  :group 'telega)


(defgroup telega-filter nil
  "Customize Chats Filters."
  :prefix "telega-filter-"
  :group 'telega)

(defcustom telega-filter-default 'main
  "*Temex to filter chats by default."
  :type 'telega-chat-temex
  :options '(all (or saved-messages pin unread))
  :group 'telega-filter)

(defcustom telega-important-chat-temex
  '(or mention
       (and (or is-known has-chatbuf)
            unmuted
            (or unread unread-reactions)))
  "*Chat Temex to match \"important\" chats."
  :package-version '(telega . "0.8.44")
  :type 'telega-chat-temex
  :group 'telega-filter)

(defcustom telega-unread-chat-temex '(and main unread)
  "*Chat Temex for `telega-switch-unread-chat' command."
  :package-version '(telega . "0.7.22")
  :type 'telega-chat-temex
  :group 'telega-filter)

(defcustom telega-filters-custom
  '(("Main" . main)
    ("Important" . important)
    ("Online" . (and (not saved-messages) (user is-online)))
    ("lng_filters_type_groups" . (type basicgroup supergroup))
    ("lng_filters_type_channels" . (type channel))
    ("lng_filters_type_no_archived" . archive))
  "*Alist of custom filters in form (NAME . TEMEX).
NAME can be an i18n string, such as \"lng_filters_type_groups\".
This filters are displayed as filter buttons at the top of rootbuf."
  :package-version '(telega . "0.8.13")
  :type '(alist :key-type (string :tag "Custom filter name")
                :value-type telega-chat-temex)
  :group 'telega-filter)

(defcustom telega-filter-custom-expand t
  "*Non-nil to expand custom filter when adding to active filters."
  :type 'boolean
  :group 'telega-filter)

;;; ellit-org: folders-options
;; - {{{user-option(telega-filter-custom-show-folders, 2)}}}
(defcustom telega-filter-custom-show-folders t
  "Non-nil to show telegram folders along the side with custom filters."
  :package-version '(telega . "0.6.24")
  :type 'boolean
  :group 'telega-filter)

(defcustom telega-filter-custom-one-liners '(custom folders)
  "List of custom filter types to display in one line.
If `custom' is in the list, then display all custom filters in one line.
If `folders' is in the list, then display all folders in one line.
Otherwise fit custom filters into `telega-root-fill-column'."
  :package-version '(telega . "0.7.56")
  :type '(repeat (choice (const :tag "Custom Filters" custom)
                         (const :tag "Folders" folders)))
  :group 'telega-filter)

(defcustom telega-filter-button-width '(0.25 17 25)
  "*Width of the custom filter buttons.
If integer, then use this number of chars.
If float in range (0..1), then occupy this percents of
`telega-root-fill-column' chars, but not less then 15 chars.
If list, where first element is float, then use 1 and 2 list values as
min and max values for a width calculation using
`telega-canonicalize-number'."
  :package-version '(telega . "0.7.41")
  :type '(choice number (list number))
  :group 'telega-filter)


(defgroup telega-inserter nil
  "Group to customize inserters used by telega for formatting."
  :group 'telega
  :prefix "telega-inserter-")

(defcustom telega-inserter-for-filter-button 'telega-ins--filter
  "Inserter for the custom filter buttons."
  :type 'function
  :group 'telega-inserter)

(defcustom telega-inserter-for-chat-button 'telega-ins--chat-full
  "Inserter for the chat button in root buffer."
  :type 'function
  :options '(telega-ins--chat-full-2lines)
  :group 'telega-inserter)

(defcustom telega-inserter-for-msg-button 'telega-ins--message
  "Inserter for message button in chat buffer.
Accepts at least two arguments - MSG and NO-HEADER-P.
See `telega-ins--message' for NO-HEADER argument."
  :type 'function
  :group 'telega-inserter)

(defcustom telega-inserter-for-sponsored-msg-button 'telega-ins--sponsored-message
  "Inserter for sponsored message button in a chat buffer."
  :type 'function
  :group 'telega-inserter)

(defcustom telega-inserter-for-msg-notification 'telega-ins--msg-notification
  "*Inserter used to form body for notification bubble."
  :type 'function
  :group 'telega-inserter)

(defcustom telega-inserter-for-msg-reaction 'telega-ins--msg-reaction
  "Inserter for message reaction."
  :package-version '(telega . "0.8.254")
  :type 'function
  :group 'telega-inserter)

(defcustom telega-inserter-for-root-contact-button 'telega-ins--root-contact-2lines
  "*Inserter for buttons in CONTACTS ewoc in rootbuf."
  :package-version '(telega . "0.6.23")
  :type 'function
  :options '(telega-ins--root-contact)
  :group 'telega-inserter)

(defcustom telega-inserter-for-topic-button 'telega-ins--topic-full
  "Inserter for the topic button in the root buffer."
  :type 'function
  :options '(telega-ins--topic-full-2lines)
  :group 'telega-inserter)


(defgroup telega-webpage nil
  "Customization for instant view webpage rendering."
  :group 'telega)

(defcustom telega-webpage-fill-column fill-column
  "*Fill column to use for webpage rendering."
  :type 'integer
  :group 'telega-webpage)

(defcustom telega-webpage-history-max 100
  "*Maximum number of viewed webpages to remember in history."
  :type 'integer
  :group 'telega-webpage)

(defcustom telega-webpage-header-line-format
  '(" " (:eval (concat telega-webpage--sitename
                       (and telega-webpage--sitename ": ")
                       telega-webpage--url
                       "  "
                       (format "History: %d/%d"
                               (1+ telega-webpage-history--index)
                               (length telega-webpage-history))
                       )))
  "Header line format for instant webpage."
  :type 'sexp
  :group 'telega-webpage)

(defcustom telega-webpage-photo-size-limits
  (list (/ telega-webpage-fill-column 2) 10
        telega-webpage-fill-column 20)
  "Same as `telega-photo-size-limits' but for photos in Instant View."
  :package-version '(telega . "0.6.30")
  :type '(list integer integer integer integer)
  :group 'telega-webpage)

;; WebPage preview settings
(defcustom telega-link-preview-preview-size-limits '(10 5 55 10)
  "Same as `telega-photo-size-limits', but for webpage preview image.
Set to nil to disable photo in a webpage preview."
  :package-version '(telega . "0.8.330")
  :type '(choice (const :tag "Disable photo preview" nil)
                 (list integer integer integer integer))
  :group 'telega-webpage)

(defcustom telega-link-preview-description-limit 200
  "Maximum length in chars to display link preview description.
Set to 0 to disable description in a link preview."
  :package-version '(telega . "0.8.330")
  :type '(choice (const :tag "No limit" nil)
                 (const :tag "Disable link preview description" 0)
                 integer)
  :group 'telega-webpage)

(defcustom telega-link-preview-show-author nil
  "*Non-nil to show author of an article used in the link preview."
  :package-version '(telega . "0.8.330")
  :type 'boolean
  :group 'telega-webpage)


(defgroup telega-user nil
  "Customization for users."
  :group 'telega)

(defcustom telega-user-completing-temex
  '(or contact (chat (return t)))
  "Only users matching this user temex are listed when reading user.
Used by `telega-completing-read-user-list'."
  :package-version '(telega . "0.8.121")
  :type 'telega-user-temex
  :group 'telega-user)

(defcustom telega-user-show-avatars (and telega-use-images
                                         (image-type-available-p 'svg))
  "Non-nil to show avatars for the users."
  :type 'boolean
  :group 'telega-user)

(defcustom telega-user-show-relationship nil
  "*Non-nil to show user relationship with me.
Used when showing chat members list."
  :type 'boolean
  :group 'telega-user)

(defcustom telega-user-last-seen-date-format 'relative
  "*Format for the last seen time for the user.
Might be a `relative' to show time relative to now."
  :type '(choice (const :tag "Relative to the current time" relative)
                 string)
  :package-version '(telega . "0.8.251")
  :options '("%d.%m.%y %a %H:%M"))

(defcustom telega-user-photo-size 10
  "*Show profile photos of this number of characters in width and height."
  :package-version '(telega . "0.6.30")
  :type 'integer
  :group 'telega-user)


(defgroup telega-company nil
  "Customization for telega company completion."
  :group 'telega)

(defcustom telega-company-backends '(telega-company-emoji
                                     telega-company-telegram-emoji
                                     telega-company-username
                                     telega-company-hashtag
                                     telega-company-markdown-precode
                                     telega-company-botcmd)
  "Company backends to use in chat buffers.
Set to nil to disable company completions in chat buffers."
  :package-version '(telega . "0.8.170")
  :type '(repeat function)
  :group 'telega-company)

(defcustom telega-company-tooltip-always-below t
  "Non-nil to show company tooltip always below the point.
Done by recentering point in the chatbuf."
  :package-version '(telega . "0.7.47")
  :type 'boolean
  :group 'telega-company)

(defcustom telega-company-username-show-avatars telega-user-show-avatars
  "Non-nil to show avatars in the company annotation."
  :package-version '(telega . "0.7.44")
  :type 'boolean
  :group 'telega-company)

(defcustom telega-company-username-markup nil
  "Markup to use for usernames completion."
  :package-version '(telega . "0.8.82")
  :type '(choice (const :tag "No markup" nil)
                 (const :tag "Markdown1" "markdown1")
                 (const :tag "Markdown2" "markdown2"))
  :group 'telega-company)

(defcustom telega-company-username-complete-nonmember-for '(type bot)
  "For chats matching this temex complete usernames for non-mebers."
  :package-version '(telega . "0.8.0")
  :type 'telega-chat-temex
  :group 'telega-company)

(defcustom telega-company-username-prefer-name '(username first-name last-name)
  "Preferred formatting argument to the `telega-user-title' to complete user.
First giving non-nil result will be used."
  :package-version '(telega . "0.8.152")
  :type '(repeat (choice (const :tag "Username" username)
                         (const :tag "First Name" first-name)
                         (const :tag "Last Name" last-name)
                         (const :tag "Full Name" full-name)))
  :group 'telega-company)

(defcustom telega-company-emoji-fuzzy-match t
  "*Non-nil to use fuzzy prefix matching.
For example without fuzzy matches, prefix `:jo' will match only
`:joy:', `:joy-cat:' and `:joystick:'.  With fuzzy matching
enabled it will match also `:flag-jo:' and `:black-jocker:'."
  :package-version '(telega . "0.8.170")
  :type 'boolean
  :group 'telega-company)


(defgroup telega-chat nil
  "Customization for chat buffer."
  :group 'telega)

(defcustom telega-chat-buffers-limit 10
  "Limit for the number of chat buffers.
When limit is reached, least recent non-visible chat buffer will be killed.
Increasing this limit increases number of events telega needs to process."
  :type 'integer
  :group 'telega-chat)

(defcustom telega-chat-send-message-on-ret 'always
  "Customization for `\\<telega-chat-mode-map>\\[telega-chatbuf-newline-or-input-send]' behaviour."
  :type '(choice
          (const :tag "Always send a message" always)
          ;; NOTE: `if-at-the-end' is the same as #'eobp predicate
          (const :tag "Send message if point at the end of prompt" if-at-the-end)
          (function :tag "Predicate returning non-nil to send input"))
  :package-version '(telega . "0.8.254")
  :options '(eobp)
  :group 'telega-chat)

(defcustom telega-chat-send-messages-async nil
  "Non-nil to send messages in async manner, not waiting telega-server reply.
Setting it to non-nil might introduce additional flickering in chatbuf."
  :package-version '(telega . "0.7.2")
  :type 'boolean
  :group 'telega-chat)

(defcustom telega-chat-send-link-preview-options nil
  "Default `linkPreviewOptions' options to use when sending messages."
  :package-version '(telega . "0.8.251")
  :type 'plist
  :group 'telega-chat)

(defcustom telega-chat-show-avatars (and telega-use-images
                                         (image-type-available-p 'svg))
  "*Non-nil to show user avatars in chat buffer."
  :type 'boolean
  :group 'telega-chat)

(defcustom telega-chat-prompt-insexp
  '(telega-ins--with-face (unless (telega-chatbuf-match-p 'can-send-or-post)
                            'telega-shadow)
     (telega-chatbuf-prompt-ins-default-sender-avatar)
     (telega-chatbuf-prompt-ins-body)
     (when (or (telega-chatbuf-match-p 'has-default-sender)
               (telega-chatbuf-match-p 'can-send-or-post))
       (telega-chatbuf-prompt-ins-chat-avatar))
     (telega-chatbuf-prompt-ins-topic 25)
     (telega-auto-translate--chatbuf-prompt-ins-translation)
     (telega-ins ">>> "))
  "*Inserter sexp for the chatbuf's input prompt.
You can use `telega-chatbuf-editing-msg' or
`telega-chatbuf-replying-msg' functions if you want different prompt
when editing/replying a message."
  :package-version '(telega . "0.8.291")
  :type 'sexp
  :group 'telega-chat)

(defcustom telega-chat-input-ring-size 50
  "*Size of the chat input history."
  :type 'integer
  :group 'telega-chat)

(defcustom telega-chat-input-markups '(nil "markdown2" "org")
  "Markups to apply when sending input with `\\<telega-chat-mode-map>\\[telega-chatbuf-newline-or-input-send]'.
Each index in the list corresponds to the number of
`\\[universal-argument]' supplied before `RET', i.e. first element is
used for ordinary `RET', second is used for `C-u RET', and third is for
`C-u C-u RET' and so on.  Supported markups are defined in the
`telega-chat-markup-functions'.

\"markdown1\" syntax is not recommended, it always treats underscore
as starting point of italic emphasize even inside URLs, thats why
\"markdown1\" is not included into `telega-chat-input-markups' by
default."
  :type '(repeat (choice (const :tag "No markup" nil)
                         string))
  :package-version '(telega . "0.8.61")
  :group 'telega-chat)

(defcustom telega-chat-scroll-conservatively 101
  "Value for `scroll-conservatively' in chatbuf."
  :package-version '(telega . "0.7.3")
  :type 'integer
  :group 'telega-chat)

(defcustom telega-chat-bidi-display-reordering nil
  "Value for `bidi-display-reordering' in chatbuf."
  :package-version '(telega . "0.7.3")
  :type 'boolean
  :group 'telega-chat)

(defcustom telega-chat-messages-pop-ring-size 50
  "*Size of the chat pop messages ring.
`telega-chatbuf-goto-pop-message' command is used to pop messages
from the ring."
  :package-version '(telega . "0.7.0")
  :type 'integer
  :group 'telega-chat)

(defcustom telega-chat-fill-column fill-column
  "*Column to fill chat messages to."
  :type 'integer
  :group 'telega-chat)

(defcustom telega-chat-history-limit 30
  "Number of messages to fetch on history requests."
  :package-version '(telega . "0.7.0")
  :type 'integer
  :group 'telega-chat)

(defcustom telega-chat-use-date-breaks t
  "Non-nil to insert date break bar in chat buffers.
Date break is a special mark separating two messages received on
different days. Such as:
#+begin_example
  MSG1                              <--- msg sent on 27dec
  -------(28 December 2020)------   <--- date break
  MSG2                              <--- msg sent on 28dec
#+end_example"
  :package-version '(telega . "0.8.251")
  :type 'boolean
  :group 'telega-chat)

(defcustom telega-chat-attach-commands
  '(("photo"
     (my-permission :can_send_photos) telega-chatbuf-attach-photo)
    ("video"
     (my-permission :can_send_videos) telega-chatbuf-attach-video)
    ("audio"
     (my-permission :can_send_audios) telega-chatbuf-attach-audio)
    ("spoiler-photo"
     (my-permission :can_send_photos) telega-chatbuf-attach-spoiler-photo)
    ("spoiler-video"
     (my-permission :can_send_videos) telega-chatbuf-attach-spoiler-video)
    ("self-destruct-photo"
     (type private bot) telega-chatbuf-attach-ttl-photo)
    ("self-destruct-video"
     (type private bot) telega-chatbuf-attach-ttl-video)
    ("video-note"
     ;; TODO: check video recording possibility, see
     ;; `telega-vvnote-video--record'<f>
     (my-permission :can_send_video_notes) telega-chatbuf-attach-video-note)
    ("voice-note"
     (my-permission :can_send_voice_notes) telega-chatbuf-attach-voice-note)
    ("file"
     (my-permission :can_send_documents) telega-chatbuf-attach-file)
    ("gif"
     (my-permission :can_send_other_messages) telega-chatbuf-attach-gif)
    ("location"
     (return t) telega-chatbuf-attach-location)
    ("poll"
     (not (type private bot)) telega-chatbuf-attach-poll)
    ("contact"
     (return t) telega-chatbuf-attach-contact)
    ("sticker"
     (my-permission :can_send_other_messages) telega-chatbuf-attach-sticker)
    ("animation"
     (my-permission :can_send_other_messages) telega-chatbuf-attach-animation)
    ;; TODO: animations with spoilar are not yet supported
    ;; ("spoiler-animation"
    ;;  (return t) telega-chatbuf-attach-spoiler-animation)
    ("dice"
     (return t) telega-chatbuf-attach-dice)
    ("screenshot"
     (and (my-permission :can_send_photos)
          (eval telega-screenshot-function))
     telega-chatbuf-attach-screenshot)
    ("clipboard"
     (and (my-permission :can_send_photos)
          (eval
           ;; Avoid "Selection owner couldn't convert" error
           (ignore-errors
             (gui-get-selection 'CLIPBOARD 'image/png))))
     telega-chatbuf-attach-clipboard)
    ("markup"
     (return t) telega-chatbuf-attach-markup)
    ("theme"
     (type private secret) telega-chatbuf-attach-chat-theme)

    ;; Special attachment types affecting how message is sent
    ("scheduled"
     (return t) telega-chatbuf-attach-scheduled)
    ("disable-notification"
     (not default-disable-notification)
     telega-chatbuf-attach-toggle-disable-notification)
    ("enable-notification"
     default-disable-notification
     telega-chatbuf-attach-toggle-disable-notification)
    ("link-preview-options"
     (my-permission :can_add_link_previews)
     telega-chatbuf-attach-link-preview-options)
    ("send-by"
     has-default-sender telega-chatbuf-attach-send-by)
    ("custom-emoji"
     (or saved-messages
         (eval
          (telega-user-match-p (telega-user-me) 'is-premium)))
     telega-chatbuf-attach-custom-emoji)
    ("delimiter"
     (return t) telega-chatbuf-attach-delimiter)
    )
  "*List of the attachments available for `C-c C-a' in chatbuf.
Each element is a list of three elements:
  \\(ATTACH-NAME CHAT-TEMEX COMMAND-FUNC\\)

Only commands with chatbuf matching corresponding CHAT-TEMEX are
available for attachment.  Use `(return t)' CHAT-TEMEX if attachment
command is always available."
  :type '(alist :key-type (string :tag "Attach name")
                :value-type (list telega-chat-temex function))
  :group 'telega-chat)

(custom-declare-variable
 'telega-dired-dwim-target
 'dired-dwim-target
 "*Value to bind `dired-dwim-target' to, in telega file pickers."
 :type (custom-variable-type 'dired-dwim-target)
 :group 'telega-chat)

(defcustom telega-chat-upload-attaches-ahead t
  "*Non-nil to upload attachments ahead, before message actually sent.
Having this non-nil \"speedups\" uploading, it is like files uploads instantly."
  :type 'boolean
  :group 'telega-chat)

(defcustom telega-chat-markup-functions
  '(("markdown2" . telega-markup-markdown2-fmt)
    ("org" . telega-markup-org-fmt)
    ("html" . telega-markup-html-fmt)
    ("markdown1" . telega-markup-markdown1-fmt))
  "List of markups to use on `C-c C-a markup RET'."
  :type '(alist :key-type string :value-type function)
  :group 'telega-chat)

(defcustom telega-markdown2-backquotes-as-precode 'known
  "Non-nil for markdown1 style syntax for ```.
Non-nil activates syntax:
  ```<language-name> (not displayed)
  code code
  ```"
  :type '(choice (const :tag "Disabled" nil)
                 (const :tag "Always" t)
                 (const :tag "Only for languages known by Emacs" known))
  :group 'telega-chat)

;; See https://t.me/emacs_telega/11981
(defcustom telega-chat-group-messages-timespan 120
  "*Maximum timespan between two messages in order to group them.
If difference between message's dates is greater than this
timespan, then do not group messages."
  :type 'integer
  :group 'telega-chat)

(defcustom telega-chat-group-messages-for
  '(not (or saved-messages (type channel bot)))
  "*Chat Temex for chats where to group messages by sender."
  :type 'telega-chat-temex
  :group 'telega-chat)

(defcustom telega-chat-show-deleted-messages-for nil
  "*Chat Temex for chats where to show deleted messages in chatbuf."
  :type 'telega-chat-temex
  :options '((not saved-messages))
  :group 'telega-chat)

(defcustom telega-chat-completing-sort-criteria
  '(chatbuf-visibility chatbuf-recency)
  "Criteria to sort chats in `telega-completing-read-chat'."
  :package-version '(telega . "0.6.30")
  :type '(choice symbol (list symbol))
  :group 'telega-chat)

(defcustom telega-chat-switch-buffer-sort-criteria 'chatbuf-recency
  "Criteria to sort open chats when switching with `telega-switch-buffer'."
  :type '(choice symbol (list symbol))
  :group 'telega-chat)

(defcustom telega-chat-input-complete-function nil
  "*Custom function to be called before any other on TAB in chatbuf input.
Should return non-nil if completion occured."
  :package-version '(telega . "0.6.30")
  :type 'function
  :options '(counsel-company)
  :group 'telega-chat)

(defcustom telega-chat-message-filters-as-media nil
  "List of message filters from `telega-chat--message-filters'.
Messages for these filters are displayed in compact way in chatbuf.
This is EXPERIMENTAL feature, use on your own risk."
  :package-version '(telega . "0.7.0")
  :type '(repeat string)
  :options '("photo" "photo-video" "gif" "video" "chat-photo")
  :group 'telega-chat)

(defcustom telega-chat-mode-line-format
  '((:eval (propertized-buffer-identification
            (telega-chatbuf-mode-line-buffer-name 32 'with-online-status)))
    (:eval (telega-chatbuf-header-concat
            " (" (telega-chatbuf-mode-line-messages-ttl) ")"))
    (:eval (telega-chatbuf-header-concat
            " [" (telega-chatbuf-mode-line-video-chat 20) "]"))
    (:eval (telega-chatbuf-header-concat
            " [" (telega-chatbuf-mode-line-discuss) "]"))
    (:eval (telega-chatbuf-header-concat
            " (" (telega-chatbuf-mode-line-unread) ")"))
    (:eval (telega-chatbuf-header-concat
            " (" (telega-chatbuf-mode-line-marked) ")"))
    (:eval (telega-chatbuf-header-concat
            " [" (telega-chatbuf-mode-line-members 'use-icons) "]"))
    (:eval (telega-chatbuf-header-concat
            " [" (telega-chatbuf-mode-line-pinned-messages 20) "]"))
    (:eval (telega-chatbuf-header-concat
            " [" (telega-chatbuf-mode-line-messages-filter) "]")))
  "Mode line format for chat buffer identification.
See `mode-line-buffer-identification'."
  :package-version '(telega . "0.8.170")
  :type 'sexp
  :group 'telega-chat)

(defcustom telega-chat-header-line-underline t
  "Non-nil to outline header line with the underline."
  :type 'boolean
  :group 'telega-chat)

(defcustom telega-chat-header-line-format
  '((:eval (telega-chatbuf-header-concat
            " " (telega-chatbuf-header-msg-filter 'no-cancel-button)))
    (:eval (telega-chatbuf-header-concat
            " " (telega-chatbuf-header-preview-mode)))
    (:eval (telega-chatbuf-header-concat
            " " (telega-chatbuf-header-highlight-text)))
    (:eval (telega-mode-line-align
            'center
            (telega-chatbuf-header-concat
             " " (telega-chabuf-header-unread-messages))
            telega-chat-fill-column))
    (:eval (telega-mode-line-align
            'right
            (telega-chatbuf-header-concat
             " " (telega-chatbuf-header-thread 30))
            telega-chat-fill-column)))
  "*Modeline compatible format for the chatbuf's header line."
  :package-version '(telega . "0.8.291")
  :type 'sexp
  :group 'telega-chat)

(defcustom telega-chat-footer-insexp
  '(progn
     (when telega-chatbuf--messages-compact-view
       (telega-ins "\n"))
     (telega-chatbuf-footer-ins-sponsored-messages)
     (telega-chatbuf-footer-ins-prompt-delim t t)
     (telega-chatbuf-footer-ins-pending-join-requests)
     (telega-chatbuf-footer-ins-action-bar)
     (telega-chatbuf-footer-ins-active-vvnote)
     (telega-chatbuf-footer-ins-active-video-chat)
     (telega-chatbuf-footer-ins-active-stories)
     (telega-chatbuf-footer-ins-pinned-stories)
     (telega-chatbuf-footer-ins-invite-forbidden-users)
     (telega-chatbuf-footer-ins-auto-delete-messages)
     (telega-chatbuf-footer-ins-reply-markup-buttons)
     (telega-chatbuf-footer-ins-restriction-reason)

     ;; Inserters for minor modes
     (telega-chatbuf-footer-ins-modes)

     (telega-chatbuf-footer-ins-bot-description)
     ;; Chat's START/UNBLOCK/JOIN button
     (telega-chatbuf-footer-ins-join-button)

     ;; Edit/Reply aux message, defined by `telega-chatbuf--aux-plist'
     ;; is displayed last
     (telega-chatbuf-footer-ins-aux-plist
      :with-avatar-p telega-chat-show-avatars)
    )
  "*Inserter sexp for the chatbuf's footer."
  :package-version '(telega . "0.8.256")
  :type 'sexp
  :group 'telega-chat)


;; VoIP
(defgroup telega-voip nil
  "VOIP settings."
  :group 'telega)

(defcustom telega-voip-logfile
  (expand-file-name "telega-voip.log" telega-directory)
  "*Write VoIP logs to this file.
Set it to nil to disable VoIP logging."
  :type 'string
  :group 'telega-voip)

(defcustom telega-voip-allow-p2p nil
  "*Non-nil to allow P2P connections for calls."
  :type 'boolean
  :group 'telega-voip)

(defcustom telega-voip-busy-if-active t
  "*Reply with busy status to any incoming call if other call is active."
  :type 'boolean
  :group 'telega-voip)

(defcustom telega-voip-help-echo t
  "*Non-nil to show help messages in echo area on call activation."
  :type 'boolean
  :group 'telega-voip)

(defcustom telega-video-chat-display
  '((active footer modeline)
    (passive modeline)
    (scheduled footer modeline))
  "Alist to specify where to display video chat info.
Each element is a cons cell where car is one of `active', `passive' or
`scheduled'and cdr is list of possible values:
  - `footer' to display video chat info in the chatbuf footer
  - `modeline' to display video chat info in the modeline.
Video chat is considered `active' if it has at least one participant,
otherwise video chat is `passive'."
  :type '(alist :key-type symbol :value-type (repeat symbol))
  :package-version '(telega . "0.7.90")
  :group 'telega-voip)


;; Notifications
(defgroup telega-notifications nil
  "Setup for D-Bus notifications."
  :group 'telega)

(defcustom telega-notifications-delay 0.5
  "*Delay in seconds for notifications.
This delay is taken before making decision show or not the
message in notification. Taking pause before showing notification
is wise, because another Telegram client may be active with the
chat opened, you don't want the notification to be shown for
already read message.  Set it to 0, to not take any delay."
  :type 'float
  :group 'telega-notifications)

(defcustom telega-notifications-timeout 4.0
  "*How long to show notification in seconds.
Set to nil to not remove notification automatically."
  :type '(choice (float :tag "Remove after")
                 (const :tag "Never remove" nil))
  :group 'telega-notifications
  :package-version '(telega . "0.8.293"))

;; NOTE: standard values for :sound-name
;; http://0pointer.de/public/sound-naming-spec.html
(defcustom telega-notifications-msg-args
  (list :sound-name "message-new-instant")
  "*Additional arguments to `notifications-notify' on chat messages.
Add `:actions' with value `(\"default\" \"show message\")' for
clickable notifications. Clickable notifications does not work well
with notify-osd, thats why actions are disabled by default."
  :type '(plist)
  :group 'telega-notifications)

(defcustom telega-notifications-call-args
  (list :sound-name "phone-incoming-call")
  "*Additional arguments to `notifications-notify' on incoming calls."
  :type '(plist)
  :group 'telega-notifications)

;; See https://github.com/zevlg/telega.el/issues/32
(defcustom telega-notifications-msg-body-limit 100
  "*Limit for the message body length.
Used by `telega-ins--msg-notification'."
  :type 'integer
  :group 'telega-notifications)

(defcustom telega-notifications-defaults nil
  "Alist with notification settings for notification groups.
car of each element is one of: `private', `group' or `channel'.
rest is notification settings.
For example:
  ((private :mute_for 0 :show_preview t)
   (group :mute_for 599695961 :show_preview t)
   (channel :mute_for 540465803 :show_preview t))"
  :package-version '(telega . "0.7.2")
  :type '(alist :key-type symbol :value-type plist)
  :group 'telega-notifications)

(defcustom telega-notifications-msg-temex
  '(call telega-notifications-msg-notify-p)
  "Message temex to match messages that needs to be notified."
  :package-version '(telega . "0.8.72")
  :type 'telega-msg-temex
  :group 'telega-notifications)

(defcustom telega-notifications-history-ring-size 30
  "Size of notifications history for `telega-notifications-history' command."
  :package-version '(telega . "0.8.72")
  :type 'integer
  :group 'telega-notifications)


(defgroup telega-msg nil
  "Customization for telega messages formatting."
  :prefix "telega-msg-"
  :group 'telega)

(defcustom telega-msg-ignore-predicates nil
  "List of predicates to ignore messages.
Each element is a function accepting single argument - messages and
returning non-nil if message should be ignored.
Use this for Client Side Messages Filtering."
  :package-version '(telega . "0.7.5")
  :type '(repeat function)
  :group 'telega-msg)

(defcustom telega-msg-heading-with-date-and-status nil
  "Non-nil to put message sent date and outgoing status into heading."
  :package-version '(telega . "0.8.210")
  :type 'boolean
  :group 'telega-msg)

(defcustom telega-msg-heading-aux-format-plist
  (list :with-avatar-p telega-user-show-avatars
        :with-palette-p nil
        :use-symbols-p telega-use-images)
  "*Formatting argument for heading aux for the message.
Heading aux is used for forwarded messages and a reply messages.
Possible keys are:
`:with-avatar-p'  - to show avatar along with a title.
`:with-palette-p' - non-nil to use corresponding palette.
`:use-symbols-p'  - non-nil to use symbols instead of strings."
  :package-version '(telega . "0.8.370")
  :type 'plist
  :group 'telega-msg)

(defcustom telega-msg-heading-aux-format-temex nil
  "Non-nil to use this msg temex instead of `telega-msg-heading-aux-format-plist'.
This msg temex should return plist in the
`telega-msg-heading-aux-format-plist' form as a result of matching.
So different messages could have different aux heading formatting."
  :package-version '(telega . "0.8.370")
  :type 'telega-msg-temex
  :group 'telega-msg)

(defcustom telega-photo-show-details t
  "*Non-nil to show photo details for photo messages."
  :type 'boolean
  :group 'telega-msg)

(defcustom telega-msg-save-dir nil
  "*Directory for `telega-msg-save' without asking.
If nil, the saved path is always asked."
  :type '(choice (const :tag "Always ask for a directory to save to" nil)
                 string)
  :group 'telega-msg)

(defcustom telega-msg-temex-show-reactions '(return t)
  "Message Temex to match messages to show reactions for."
  :package-version '(telega . "0.8.13")
  :type 'telega-msg-temex
  :options '((or (chat (type private))
                 (sender me)
                 has-chosen-reaction))
  :group 'telega-msg)

(defcustom telega-topic-format-alist
  '((msg-heading . "%s%i%t")
    (inline-reply . "%s%i")
    (chat-prompt . "%s%i"))
  "Formatting for the topic title in different situations.
Formatting:
%s - topic symbol, such as #
%i - topic icon,
%t - topic title"
  :package-version '(telega . "0.8.210")
  :type '(alist :key-type symbol :value-type string)
  :group 'telega-chat)

(defcustom telega-msg-always-show-topic-info t
  "Non-nil to always show topic info in the message header.
Otherwise topic info only show if no topic filtering is applied in chatbuf."
  :package-version '(telega . "0.8.170")
  :type 'boolean
  :group 'telega-msg)

(defcustom telega-msg-make-observable-recenter-arg '(nil . 2)
  "Arguments to recenter when making message observable.
Car of the cons cell is the argument to recenter.
In case message is still not fully observable after applying it,
fallback to cdr argument."
  :package-version '(telega . "0.8.215")
  :type '(cons integer integer)
  :group 'telega-msg)


(defgroup telega-story nil
  "Customization for Telegram stories."
  :prefix "telega-story-"
  :group 'telega)

(defcustom telega-story-preload-for '(user is-close-friend)
  "Preload stories media files for chats matching this temex."
  :type 'telega-chat-temex
  :group 'telega-story)

(defcustom telega-story-show-active-stories-for '(return 10)
  "Show active stories in the chatbuf's footer for chats matching this temex.
If temex returns a number then limit number of shown active stories."
  :type 'telega-chat-temex
  :options '((type private) (active-stories-list main))
  :group 'telega-story)

(defcustom telega-story-show-pinned-stories-for '(return 10)
  "Show pinned stories in the chatbuf's footer for chats matching this temex.
If temex returns a number then limit number of shown pinned stories."
  :type 'telega-chat-temex
  :options '((and (user is-close-friend) (active-stories-list main)))
  :group 'telega-story)


(defcustom telega-photo-size-limits '(8 3 55 12)
  "*Limits image size for the photos.
Limits to (MIN-WIDTH MIN-HEIGHT MAX-WIDTH MAX-HEIGHT) characters."
  :package-version '(telega . "0.8.120")
  :type '(list integer integer integer integer)
  :group 'telega)

(defcustom telega-video-size-limits telega-photo-size-limits
  "*Limits image size for the video messages."
  :package-version '(telega . "0.8.221")
  :type '(list integer integer integer integer)
  :group 'telega)

(defcustom telega-thumbnail-size-limits telega-photo-size-limits
  "*Same as `telega-photo-size-limits', but for thumbnails.
Used for such messages as audio/document/etc."
  :package-version '(telega . "0.6.30")
  :type '(list integer integer integer integer)
  :group 'telega)

(defcustom telega-inline-photo-size-limits '(10 4 20 8)
  "Same as `telega-photo-size-limits', but for photos from inline queries.
Inlined photos are displayed, when sending messages via bots, for
example @gif `TAB' will popup buffer with inlined photos. "
  :package-version '(telega . "0.7.5")
  :type '(list integer integer integer integer)
  :group 'telega)

(defcustom telega-ignored-messages-visible nil
  "*Non-nil to make ignored messages visible as <ignored message>.
It can be an inserter function accepting one argument - ignored message."
  :package-version '(telega . "0.8.215")
  :type '(choice (boolean :tag "Enable/Disable")
                 (function :tag "Custom inserter for ignored message"))
  :group 'telega-chat)

(defcustom telega-ignored-messages-ring-size 100
  "*Maximum number of ignored messages in `telega--ignored-messages-ring'.
Message is ignored if its `:ignore' option is set to non-nil."
  :type 'number
  :group 'telega-chat)

(defcustom telega-completing-read-function completing-read-function
  "Completing read function to use."
  :type 'function
  :package-version '(telega . "0.8.291")
  :options '(ido-completing-read
             ivy-completing-read
             helm--completing-read-default)
  :group 'telega)

(defcustom telega-screenshot-function
  (cond ((executable-find "flameshot")
         'telega-screenshot-with-flameshot)
        ((executable-find "scrot")
         'telega-screenshot-with-scrot)
        ((executable-find "screencapture")
         'telega-screenshot-with-screencapture)
        ((executable-find "pngpaste")
         'telega-screenshot-with-pngpaste)
        ((executable-find "gnome-screenshot")
         'telega-screenshot-with-gnome-screenshot)
        ((executable-find "maim")
         'telega-screenshot-with-maim)
        ((executable-find "import")
         'telega-screenshot-with-import))
  "*Function to use to make screenshot.
Function should take two arguments - TOFILE and REGION-P."
  :type 'function
  :group 'telega)

;; special symbols
(defgroup telega-symbol nil
  "Group to customize special symbols used by telega."
  :group 'telega)

(defcustom telega-symbol-telegram (propertize "◀" 'face '(italic telega-blue))
  "*String used as telegram logo."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-mode "◁"
  "*String used for telega modes."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-eliding "..."
  "*String used for eliding long string in formats.
Nice looking middle dots can be done by setting
`telega-symbol-eliding' to `(make-string 3 #x00b7)'
or set it to \"\\u2026\" or \"\\u22ef\" to use unicode char for
ellipsis."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-eye "👁️"
  "String to use as eye symbol."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-pin "📌"
  "*String to use as pin symbol."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-custom-order (cons "🡓" "🡑")
  "Symbols used to emphasize custom order for the chat.
car is used if custom order is less then real chat's order.
cdr is used if custom order is greater then real chat's order."
  :type '(cons string string)
  :group 'telega-symbol)

(defcustom telega-symbol-lock "🔒️"
  "*String to use as lock symbol."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-flames "🔥"
  "*Symbol used in self-destruct photos/videos."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-attachment "📎"  ;\U0001F4CE
  "*String to use as attachment symbol.
\"📄\" is also good candidate."
  :type 'string
  :options '("📄")
  :group 'telega-symbol)

(defcustom telega-symbol-photo "📷"     ;\U0001F4F7
  "*String to use as photo symbol."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-audio "🎶"     ;\U0001F3B6
  "*String to use as audio symbol."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-video "📹"     ;\U0001F4F9
  "*String to use as video symbol."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-game "🎮"      ;\U0001F3AE
  "*String to use as video game symbol."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-pending "⌛"   ;\u231B
  "Symbol to use for pending outgoing messages."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-checkmark "✓" ;\u2713
  "Symbol for simple check mark."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-heavy-checkmark "✔" ;\u2714
  "Symbol for heavy check mark."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-checkbox-on "[×]"
  "Symbol for checked button."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-checkbox-off "[ ]"
  "Symbol for unchecked button."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-radiobox-on "(*)"
  "Symbol for checked radio button."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-radiobox-off "( )"
  "Symbol for unchecked radio button."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-button-close "[×]"
  "Symbol to use for close buttons."
  :package-version '(telega . "0.8.210")
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-button-left "["
  "Symbol to use for left part of the button."
  :package-version '(telega . "0.8.255")
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-button-right "]"
  "Symbol to use for right part of the button."
  :package-version '(telega . "0.8.255")
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-failed (propertize "⛔" 'face 'error)
  "Mark messages that have sending state failed."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-horizontal-bar "-"
  "Symbol used to draw horizontal bars/delimiters.
Horizontal delimiters are used to draw chat filter/sorter bar in rootbuf."
  :package-version '(telega . "0.7.58")
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-vertical-bar "|\u00A0"
  "Symbol used to form vertical lines."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-vbar-left "|"
  "Symbol for vertical bar aligned to the left."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-underline-bar "_"
  "Symbol used to draw underline bar.
\"\uFF3F\" is also good candidate for underline bar."
  :type 'string
  :options (list "⎼"
                 (propertize " " 'face 'underline))
  :group 'telega-symbol)

(defcustom telega-symbol-underline-bar-partial "."
  "Symbol used to draw underline bar in chatbuf with partial history."
  :type 'string
  :options '("🢑" "🢓")
  :group 'telega-symbol)

(defcustom telega-symbol-unread "●"
  "Symbol used for chats marked as unread.
Good candidates also are 🄌 or ⬤."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-verified (propertize "🟏" 'face 'telega-blue)
  "Symbol used to emphasize verified users/groups."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-star (propertize "⭐" 'face 'error)
  "Symbol used to emphasize starred chats."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-lightning "⚡️"
  "Symbol used inside [INSTANT VIEW] buttons."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-boost "🗱"
  "Symbol used to mean \"boost\"."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-location "🌐"
  "Symbol used for location."
  :type 'string
  :options '("🌍")
  :group 'telega-symbol)

(defcustom telega-symbol-phone "📞"
  "Symbol used as phone."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-square "■"
  "Symbol used for large squares."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-member "👤"
  "Symbol used for chat members and non-contact users."
  :type 'string
  :options '("🧍")
  :group 'telega-symbol)

(defcustom telega-symbol-contact "👥"
  "Symbol used for contacts."
  :type 'string
  :options '("👥")
  :group 'telega-symbol)

(defcustom telega-symbol-play "▶"
  "Symbol used for playing."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-pause "⏸"
  "Symbol used for pause."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-invoice "🛒"
  "Symbol used in invoice messages."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-credit-card "💳"
  "Symbol used for inline keyboard buttons of type \"buy\"."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-poll "📊"
  "Symbol used in poll messages."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-poll-options '(radiobox-off radiobox-on)
  "Symbols used to display poll options with single choice.
First - for non-selected option.
Second - for selected option."
  :type '(list (choice string symbol) (choice string symbol))
  :group 'telega-symbol)

(defcustom telega-symbol-poll-multiple-options '(checkbox-off checkbox-on)
  "Symbols used to display poll options with multiple answers allowed.
First - for non-selected option.
Second - for selected option."
  :type '(list (choice string symbol) (choice string symbol))
  :group 'telega-symbol)

(defcustom telega-symbol-quiz-options (list (compose-chars ?○ ?✓)
                                            "○"
                                            (compose-chars ?○ ?✗))
  "Symbols used to display quiz options.
First - for correct option.
Second - for non-selected incorrect option.
Third - for selected incorrect option."
  :type '(list string string string)
  :group 'telega-symbol)

(defcustom telega-symbol-topic-brackets
  (cons (compose-chars ?\⟦ ?\s)
        (compose-chars ?\⟧ ?\s))
  "Symbols used to emphasize topics."
  :type '(cons string string)
  :group 'telega-symbol)

(defcustom telega-symbol-attach-brackets (cons "⟬" "⟭")
  "Symbols used to emphasize attachment in chat buffer input."
  :type '(cons string string)
  :group 'telega-symbol)

(defcustom telega-symbol-expand-details "▼"
  "Symbol used to display expandable sections.
Such as `textEntityTypeExpandableBlockQuote' or `pageBlockDetails'
webpage block."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-collapse-details "▲"
  "Symbol used to display expandable sections.
Such as `textEntityTypeExpandableBlockQuote' or `pageBlockDetails'
webpage block."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-webpage-details (cons "▼" "▲")
  "Symbols used to display `pageBlockDetails' webpage block."
  :type '(cons string string)
  :group 'telega-symbol)

(defcustom telega-symbol-online-status (propertize "*" 'face 'success)
  "Symbol used to display user's online status in root buffer.
If nil, then user's online status is not displayed."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-blocked (propertize "⛒" 'face 'error)
  "Symbol used to mark blacklisted users."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-inline "⮍"
  "Symbol used to mark attachments with inline result from bot."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-alarm "⏲️"
  "*Symbol used for scheduled messages."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-dice-list (list "🎲" "⚀" "⚁" "⚂" "⚃" "⚄" "⚅")
  "List of dices to show for \"messageDice\"."
  :type '(list string string string string string string string)
  :group 'telega-symbol)

(defcustom telega-symbol-folder "📁"
  "Symbol used for Telegram folders."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-multiple-folders "🗂️"
  "Symbol to use to denote multiple folders."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-outline-close "▸"
  "Symbol to be used for closed outlines."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-outline-open "▾"
  "Symbol to be used for open outlines."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-linked "⭾"
  "Symbol used for linked chats button in modeline."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-keyboard "🖮"
  "Symbol used to display reply markup keyboard."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-reply "-'"
  "Symbol used to for replies."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-reply-quote "-\""
  "Symbol used to for replies with quotes."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-forward (compose-chars ?🗩 ?🠒)
  "Symbol used to display forwarding."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-circle "◯"
  "Circle to create nice looking text avatars."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-bulp "💡"
  "Bulp symbol to be used for quiz polls with explanation."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-chat-list "📑"
  "Symbol to use to emphasize main or archive custom filter buttons."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-bell "🔔"
  "Symbol to use to draw a bell (notification)."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-download-progress '(?= . ?>)
  "Symbols to use when drawing progress bar for dowloading files.
By default `(?= . ?>)' is used resulting in =====> progress bar."
  :package-version '(telega . "0.7.5")
  :type '(choice char (cons char char))
  :group 'telega)

(defcustom telega-symbol-upload-progress '(?+ . ?>)
  "Symbols to use when drawing progress bar for uploading files.
By default `(?+ . ?>)' is used resulting in +++++> progress bar."
  :package-version '(telega . "0.7.5")
  :type '(choice char (cons char char))
  :group 'telega)

(defcustom telega-symbol-video-chat-active "🗣️"
  "Symbol to use for non-empty video chats."
  :package-version '(telega . "0.7.90")
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-video-chat-passive "🗧"
  "Symbol to use for empty video chats."
  :package-version '(telega . "0.7.90")
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-favorite "🔖"
  "Symbol to use for favorite messages, bookmarks."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-leave-comment "💬"
  "Symbol used to display symbol before \"Leave Comment\" button."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-timer-clock "⏲"
  "Symbol used as timer clock in live location context."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-distance "📏"
  "Symbol used to display distance in location context."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-copyright "©"
  "Symbol used to emphasize protected content."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-reaction "💟"
  "Symbol used to display reactions."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-premium (propertize "*" 'face 'telega-blue)
  "Symbol used to emphasize premium Telegram users."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-telegram-star
  (propertize "★" 'face '(:foreground "goldenrod"))
  "Symbol used to display Telegram Star."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-forum "🗊"
  "Symbol used for chats as forum."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-topic "#"
  "Symbol used in topic's context."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-sender-and-text-delim ">"
  "Symbol to delimit message sender title from text.
Used in one line message inserter."
  :type 'string
  :options '("›" "〉" "⧽")
  :group 'telega-symbol)

(defcustom telega-symbol-story "◌"
  "Symbol used in stories context."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-story-reply (compose-chars ?◌ ?⮪)
  "Symbol used in replies to stories."
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-right-arrow "->"
  "Symbol used as right arrow."
  :package-version '(telega . "0.8.210")
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-codeblock "</>"
  "Symbol to be used in code blocks."
  :package-version '(telega . "0.8.216")
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-saved-messages-tag-end "▶"
  "End for the tag in the Saved Messages."
  :package-version '(telega . "0.8.253")
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-typing ".."
  "Symbol to be used as prefix for typing actions."
  :package-version '(telega . "0.8.255")
  :type 'string
  :group 'telega-symbol)

;; Symbols marking messages of some sort
(when (fboundp 'define-fringe-bitmap)
  (define-fringe-bitmap 'telega-mark
    (vector #b11111111) nil nil '(top periodic)))

(defcustom telega-symbol-mark
  (propertize " " 'face 'custom-invalid)
  "*Symbol used to denote marked messages/chats."
  :package-version '(telega . "0.8.213")
  :type 'string
  :group 'telega-symbol)

(when (fboundp 'define-fringe-bitmap)
  (define-fringe-bitmap 'telega-mention
    (vector #b01111110
            #b01111110
            #b11000011
            #b11000011
            #b11001111
            #b10011111
            #b10110011
            #b10110011
            #b10011111
            #b11001110
            #b11000000
            #b11000001
            #b01111111
            #b01111110))

  (define-fringe-bitmap 'telega-reaction
    (vector #b011000110
            #b111101111
            #b111111111
            #b111111111
            #b011111110
            #b011111110
            #b001111100
            #b001111100
            #b000111000
            #b000111000
            #b000010000
            )))

(defcustom telega-symbol-mention-mark
  (propertize "@" 'face 'telega-mention-count)
  "*Symbol used to mark messages which contains unread mention."
  :package-version '(telega . "0.8.213")
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbol-reaction-mark telega-symbol-reaction
  "*Symbol used to mark messages which contains unread reaction."
  :package-version '(telega . "0.8.13")
  :type 'string
  :group 'telega-symbol)

(defcustom telega-symbols-emojify
  '((vbar-left (when (and telega-use-images (image-type-available-p 'svg))
                 (telega-svg-create-vertical-bar
                  0.2 0 telega-symbol-vbar-left
                  `(heuristic ,(color-values (face-background 'default))))))
    (verified (when (and telega-use-images (image-type-available-p 'svg))
                (telega-etc-file-create-image "verified.svg" 2)))
    (vertical-bar (when (and telega-use-images (image-type-available-p 'svg))
                    (telega-svg-create-vertical-bar)))
    (horizontal-bar (when (and telega-use-images (image-type-available-p 'svg))
                      (telega-svg-create-horizontal-bar)))
    (underline-bar (when (and telega-use-images (image-type-available-p 'svg))
                     (telega-svg-create-horizontal-bar
                      1 0.7 telega-symbol-underline-bar)))
    alarm
    attachment audio
    bell boost bulp
    (button-close
     (when (and telega-use-images (image-type-available-p 'svg))
       (telega-etc-file-create-image "symbols/button-close.svg" 2)))
    (button-left
     (when (and telega-use-images (image-type-available-p 'svg))
       (when-let ((bg-color (face-background 'default)))
         (telega-create-image (telega-etc-file "symbols/button-left.svg") nil nil
           :scale 1.0
           :ascent 'center
           :background bg-color
           :mask `(heuristic ,(color-values bg-color))
           :height (telega-ch-height 1)))))
    (button-right
     (when (and telega-use-images (image-type-available-p 'svg))
       (when-let ((bg-color (face-background 'default)))
         (telega-create-image (telega-etc-file "symbols/button-right.svg") nil nil
           :scale 1.0
           :ascent 'center
           :background bg-color
           :mask `(heuristic ,(color-values bg-color))
           :height (telega-ch-height 1)))))
    chat-list
    (checkbox-off
     (when (and telega-use-images (image-type-available-p 'svg))
       (telega-etc-file-create-image "unchecked.svg" 2)))
    (checkbox-on
     (when (and telega-use-images (image-type-available-p 'svg))
       (telega-etc-file-create-image "checked.svg" 2)))
    (checkmark
     (when (and telega-use-images (image-type-available-p 'svg))
       (telega-svg-create-checkmark telega-symbol-checkmark
         :stroke-width 1.0)))
    contact
    distance
    eye
    failed favorite flames folder
    (forum (when (and telega-use-images (image-type-available-p 'svg))
             (telega-etc-file-create-image "symbols/forum.svg" 2)))
    (forward (when (and telega-use-images (image-type-available-p 'svg))
               (telega-etc-file-create-image "symbols/forward.svg" 2)))
    game
    (heavy-checkmark
     (when (and telega-use-images (image-type-available-p 'svg))
       (telega-svg-create-checkmark telega-symbol-heavy-checkmark
         :double-p t
         :stroke-width 1.5)))
    invoice
    leave-comment lightning lock location
    member multiple-folders
    (outline-close
     (when (and telega-use-images (image-type-available-p 'svg))
       (telega-etc-file-create-image "outline-close.svg" 1)))
    (outline-open
     (when (and telega-use-images (image-type-available-p 'svg))
       (telega-etc-file-create-image "outline-open.svg" 1)))
    pause pending phone photo pin poll play
    (premium (when (and telega-use-images (image-type-available-p 'svg))
                (telega-etc-file-create-image "symbols/premium.svg" 2)))
    (radiobox-off
     (when (and telega-use-images (image-type-available-p 'svg))
       (telega-etc-file-create-image "radio.svg" 2)))
    (radiobox-on
     (when (and telega-use-images (image-type-available-p 'svg))
       (telega-etc-file-create-image "radio-checked.svg" 2)))
    (reaction (when (and telega-use-images (image-type-available-p 'svg))
                (telega-etc-file-create-image "symbols/reaction.svg" 2)))
    (reaction-mark (when (and telega-use-images (image-type-available-p 'svg))
                     (telega-etc-file-create-image "symbols/reaction.svg" 2)))
    (reply (when (and telega-use-images (image-type-available-p 'svg))
             (telega-etc-file-create-image "symbols/reply.svg" 2)))
    (reply-quote (when (and telega-use-images (image-type-available-p 'svg))
                   (telega-etc-file-create-image "symbols/reply-quote.svg" 2)))
    (right-arrow (when (and telega-use-images (image-type-available-p 'svg))
                   (telega-etc-file-create-image "symbols/right-arrow.svg" 2)))
    (saved-messages-tag-end
     (when (and telega-use-images (image-type-available-p 'svg))
       (telega-create-image (telega-etc-file "symbols/tag-end.svg") nil nil
         :scale 1.0
         :ascent 'center
         :height (telega-ch-height 1))))
    (story
     (when (and telega-use-images (image-type-available-p 'svg))
       (telega-etc-file-create-image "symbols/story.svg" 2)))
    (story-reply
     (when (and telega-use-images (image-type-available-p 'svg))
       (telega-etc-file-create-image "symbols/story-reply.svg" 2)))
    (telegram-star (when (and telega-use-images (image-type-available-p 'svg))
                     (telega-etc-file-create-image "symbols/premium.svg" 2)))
    timer-clock
    (typing
     (when (and telega-use-images (image-type-available-p 'svg))
       (telega-etc-file-create-image "symbols/typing.svg" 2)))
    video video-chat-active video-chat-passive

    "⏪" "⏩"
    )
  "List of symbols to emojify if `telega-emoji-use-images' is non-nil.
Each element is either XXX from ending of telega-symbol-XXX or list,
where car is XXX and rest is form to evaluate to get image or a
filename with an image to be used."
  :package-version '(telega . "0.7.1")
  :type 'sexp
  :group 'telega-symbol)

(defcustom telega-symbols-emojify-function nil
  "*Function to emojify symbols not listen in the `telega-symbols-emojify'.
Should accept single argument - a ending symbol or a string and return
non-nil if symbol gets emojification."
  :type 'function
  :group 'telega-symbol)


;;; Faces
(defgroup telega-faces nil
  "Group to customize faces used by telega."
  :group 'telega)

(defface telega-shadow
  '((t :inherit shadow))
  "Face used to display shadowed text in telega."
  :package-version '(telega . "0.8.111")
  :group 'telega-faces)

(defface telega-link
  '((t :inherit link :underline nil))
  "Face to display various links."
  :group 'telega-faces)

;; NOTE: better to use :line-width (-2 . -2), but this is only in newer Emacs
;; see https://t.me/emacs_telega/22129
(defface telega-box-button
  `((((class color) (min-colors 88) (background light))
     :foreground "RoyalBlue3"
     :box (:line-width ,(if (version< emacs-version "28.0") -2 (cons -2 -2))
                       :color "RoyalBlue3" :style nil))
    (((class color) (min-colors 88) (background dark))
     :foreground "cyan1"
     :box (:line-width ,(if (version< emacs-version "28.0") -2 (cons -2 -2))
                       :color "cyan1" :style nil))
    (t :inherit highlight))
  "Face used for telega buttons."
  :group 'telega-faces)

(defface telega-box-button-active
  '((((class color) (min-colors 88) (background light))
     :inverse-video t :background "white")
    (((class color) (min-colors 88) (background dark))
     :inverse-video t :background "black")
    (t :inverse-video t))
  "Face used for active (cursor inside) telega buttons."
  :group 'telega-faces)

(defface telega-reaction
  `((t :inherit telega-shadow))
  "Face used to display reaction."
  :group 'telega-faces)

(defface telega-reaction-paid
  '((((class color) (min-colors 88) (background light))
     :foreground "dark goldenrod")
    (((class color) (min-colors 88) (background dark))
     :foreground "light goldenrod"))
  "Face used to display reaction."
  :group 'telega-faces)

(defface telega-reaction-chosen
  '((((class color) (min-colors 88) (background light))
     :foreground "white" :background "RoyalBlue3")
    (((class color) (min-colors 88) (background dark))
     :foreground "black" :background "cyan1")
    (t :inverse-video t))
  "Face used to display chosen reaction."
  :group 'telega-faces)

(defface telega-reaction-paid-chosen
  '((((class color) (min-colors 88) (background light))
     :foreground "white" :background "light goldenrod")
    (((class color) (min-colors 88) (background dark))
     :foreground "black" :background "dark goldenrod")
    (t :inverse-video t))
  "Face used to display chosen paid reaction"
  :group 'telega-faces)

(defface telega-blue
  '((t :foreground "#2ca5e0"))
  "*Official blue color of telegram."
  :group 'telega-faces)

(defface telega-enckey-00
  '((t :foreground "#ffffff" :background "#ffffff"))
  "Face used for encryption key"
  :group 'telega-faces)

(defface telega-enckey-01
  '((t :foreground "#d5e6f3" :background "#d5e6f3"))
  "Face used for encryption key"
  :group 'telega-faces)

(defface telega-enckey-10
  '((t :foreground "#2d5775" :background "#2d5775"))
  "Face used for encryption key"
  :group 'telega-faces)

(defface telega-enckey-11
  '((t :foreground "#2f99c9" :background "#2f99c9"))
  "Face used for encryption key"
  :group 'telega-faces)

(defface telega-filter-button-active
  '((t :inherit default))
  "*Face to use for active custom filters."
  :group 'telega-faces)

(defface telega-filter-button-inactive
  '((t :inherit telega-shadow))
  "*Face to use for inactive custom filters."
  :group 'telega-faces)

(defface telega-filter-active
  '((t :inherit bold))
  "Face to emphasize active chat filter other then `telega-filter-default'."
  :group 'telega-faces)

(defface telega-root-heading
  '((((background light))
     :background "light gray" :foreground "dim gray")
    (((background dark))
     :background "dim gray" :foreground "light gray"))
  "Face used to display headings, such as GLOBAL SEARCH, in root buffer."
  :group 'telega-faces)

(defface telega-chat-prompt
  '((t :weight bold))
  "Face for chat input prompt"
  :group 'telega-faces)

(defface telega-chat-prompt-aux
  '((t :inherit telega-chat-prompt :extend t))
  "Face to use in the `telega-chatbuf-footer-ins-aux-plist' inserter."
  :group 'telega-faces)

(defface telega-chat-input-attachment
  '((t :inherit bold))
  "Face for chat input attachments."
  :group 'telega-faces)

(defface telega-unread-unmuted-modeline
  '((t :inherit error))
  "Face used to display number of unread/unmuted messages in modeline."
  :group 'telega-faces)

(defface telega-muted-count
  `((t :inherit telega-shadow))
  "Face to display count of messages in muted chats."
  :group 'telega-faces)

(defface telega-unmuted-count
  '((((class color) (background dark))
     :foreground "RoyalBlue1")
    (((class color) (background light))
     :foreground "blue"))
  "Face to display count messages in unmuted chats."
  :group 'telega-faces)

(defface telega-mention-count
  '((t :inherit telega-unmuted-count :weight bold))
  "Face to display count of the mentions."
  :group 'telega-faces)

(defface telega-username
  '((((class color) (background dark))
     :foreground "DodgerBlue")
    (((class color) (background light))
     :foreground "RoyalBlue")
    (t :bold t))
  "Face to display username for chats/users."
  :group 'telega-faces)

(defface telega-tracking
  '((t :inherit telega-username))
  "Face to display tracking mode-line notifications."
  :group 'telega-faces)

(defface telega-entity-type-mention
  '((t :inherit telega-username))
  "Face to display @mentions."
  :group 'telega-faces)

(defface telega-entity-type-hashtag
  '((t :inherit telega-link))
  "Face to display #hashtags."
  :group 'telega-faces)

(defface telega-entity-type-cashtag
  '((t :inherit telega-link))
  "Face to display $USD cashtags"
  :group 'telega-faces)

(defface telega-entity-type-botcommand
  '((t :inherit telega-link))
  "Face to display /command if there is bot in chat."
  :group 'telega-faces)

(defface telega-entity-type-bold
  '((t :inherit bold))
  "Face to display bold text."
  :group 'telega-faces)

(defface telega-entity-type-italic
  '((t :inherit italic))
  "Face to display italic text."
  :group 'telega-faces)

(defface telega-entity-type-underline
  '((t :inherit underline))
  "Face to display underline text."
  :group 'telega-faces)

(defface telega-entity-type-strikethrough
  '((t :strike-through t))
  "Face to display strikethrough text."
  :group 'telega-faces)

(defface telega-entity-type-blockquote
  '((t :extend t))
  "Face to display block quote formatting."
  :group 'telega-faces)

(defface telega-entity-type-code
  '((t :inherit fixed-pitch-serif))
  "Face to display code."
  :group 'telega-faces)

(defface telega-entity-type-pre
  '((t :inherit fixed-pitch-serif))
  "Face to display text ala <pre> HTML tag."
  :group 'telega-faces)

(defface telega-entity-type-texturl
  '((t :inherit button))
  "Face to display urls."
  :group 'telega-faces)

(defface telega-entity-type-spoiler
  '((t :inherit default))
  "Face to display spoilers in the text."
  :group 'telega-faces)

(defface telega-secret-title
  '((t :foreground "#00b12c"))
  "Face to display title of secret chat in root buffer."
  :group 'telega-faces)

(defface telega-msg-heading
  '((((class color) (background light))
     :background "gray85" :extend t)
    (((class color) (background dark))
     :background "gray25" :extend t)
    (t :inherit widget-single-line-field :extend t))
  "Face to display messages header."
  :group 'telega-faces)

(defface telega-msg-self-title
  '((t :bold t))
  "Face to display title of myself in chat buffers."
  :group 'telega-faces)

(defface telega-msg-user-title
  '((t nil))
  "Face to display user title in chat buffers."
  :group 'telega-faces)

(defface telega-msg-inline-reply
  '((t :inherit (telega-msg-heading telega-shadow)))
  "Face to highlight replies to messages."
  :group 'telega-faces)

(defface telega-msg-inline-forward
  '((t :inherit telega-msg-heading))
  "Face to highlight message forwarding header."
  :group 'telega-faces)

(defface telega-msg-deleted
  '((t :inherit custom-invalid :extend t))
  "Face used to display deleted messages."
  :package-version '(telega . "0.8.101")
  :group 'telega-faces)

(defface telega-webpage-chat-link
  '((t :inherit telega-msg-heading :extend t))
  "Face to display `pageBlockChatLink' web page blocks"
  :group 'telega-faces)

(defface telega-link-preview-sitename
  '((t :inherit telega-link :bold t))
  "Face to display link preview site_name."
  :group 'telega-faces)

(defface telega-link-preview-title
  '((t :inherit bold))
  "Face to display link preview title."
  :group 'telega-faces)

(defface telega-webpage-strike-through
  '((t :strike-through t))
  "Face to display strike through RichText."
  :group 'telega-faces)

(defface telega-webpage-subheader
  '((((type tty pc) (class color)) :weight bold)
    (t :inherit variable-pitch :weight bold :height 1.1))
  "Face to display subheader in webpage instant view."
  :group 'telega-faces)

(defface telega-webpage-header
  '((((type tty pc) (class color)) :weight bold)
    (t :inherit telega-webpage-subheader :height 1.1))
  "Face to display header in webpage instant view."
  :group 'telega-faces)

(defface telega-webpage-fixed
  '((t :inherit fixed-pitch-serif))
  "Face to display fixed text in webpage instant view."
  :group 'telega-faces)

(defface telega-webpage-preformatted
  '((t :inherit telega-webpage-fixed :background "gray85"))
  "Face to display preformatted text in webpage instant view."
  :group 'telega-faces)

(defface telega-webpage-marked
  '((t :inherit match))
  "Face to display marked rich text in a webpage instant view."
  :group 'telega-faces)

(defface telega-user-online-status
  '((((class color) (background dark))
     :foreground "green")
    (((class color) (background light))
     :foreground "cornflower blue")
    (t :bold t))
  "Face to display user status if online."
  :group 'telega-faces)

(defface telega-user-non-online-status
  '((t :inherit telega-shadow))
  "Face to display user status if non-online."
  :group 'telega-faces)

(defface telega-delim-face
  '((t :inherit telega-shadow :height 0.5))
  "Face used to display horizontal delimiters."
  :group 'telega-faces)

(defface telega-button-highlight
  '((t :inherit highlight))
  "Face used to highlight active button."
  :group 'telega-faces)

(defface telega-msg-sponsored
  '((t :inherit telega-shadow))
  "Face to display sponsored message."
  :group 'telega-faces)

(defface telega-topic-button
  '((t :inherit telega-shadow))
  "Face to display topic button in the rootbuf."
  :group 'telega-faces)

(defface telega-describe-section-title
  '((t :inherit bold :underline '(:position descent) :extend t))
  "Face used for section title in help buffers."
  :group 'telega-faces)

(defface telega-describe-subsection-title
  '((t :inherit bold))
  "Face used for subsection title in help buffers."
  :group 'telega-faces)

(defface telega-describe-item-title
  '((t :inherit (bold font-lock-function-name-face)))
  "Face used for item title in help buffers."
  :group 'telega-faces)

(defface telega-has-chatbuf-brackets
  '((t :inherit bold))
  "Face to emphasize brackets for chats having corresponding chatbuf."
  :group 'telega-faces)


(defgroup telega-hooks nil
  "Group to customize hooks used by telega."
  :group 'telega)

(defcustom telega-load-hook nil
  "Hooks run when telega is loaded."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-root-mode-hook nil
  "Hook run when telega root buffer is created."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-root-update-hook nil
  "Hook to run on rootbuf updateds.
This hook is run with rootbuf being current."
  :package-version '(telega . "0.6.23")
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-ready-hook nil
  "Hook called when telega is ready to process queries."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-kill-hook nil
  "Hook called when telega exited."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-connection-state-hook nil
  "Hook called when connection state changes."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-chats-fetched-hook nil
  "Hook called when all chats list has been fetched."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-chat-update-hook nil
  "Hook called with single argument CHAT, when CHAT updates."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-user-update-hook nil
  "Hook called with single argument USER, when USER's info is updated."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-chat-created-hook nil
  "Hook called when new chat has been loaded/created.
Called with one argument - chat."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-chat-pre-message-hook nil
  "Hook called uppon new message arrival, before inserting into chatbuffer.
Called with single argument - MESSAGE.
Always called, even if corresponding chat is closed at the moment."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-chat-post-message-hook nil
  "Hook called when new message has been inserted into chatbuffer.
Called with single argument - MESSAGE.
Always called, even if corresponding chat is closed at the moment.
Called even for messages ignored by client side filtering.
To check message is filtered by client side filtering use
`ignored' Message Temex."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-call-incoming-hook nil
  "Hook called when incoming call pending.
Called with single argument - incoming call.
Use `telega-voip-active-call-p' to understand if call is currently active."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-call-outgoing-hook nil
  "Hook called when outgoing call is made.
Called with single argument - outgoing call."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-call-ready-hook nil
  "Hook called when call is ready.
Called with single argument - the call."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-call-end-hook nil
  "Hook called when call is ended.
Called with single argument - the call.
To find out call state examine the `:state' value."
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-open-file-hook nil
  "Hook called when `telega-open-file' is called.
Hook is called only if file has been opened inside Emacs and has
corresponding buffer."
  :package-version '(telega . "0.6.31")
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-file-downloaded-hook nil
  "Hook called when some file has been downloaded.
Called with single argument - TDLib file structure.
Could be used to copy downloaded files to another place.
See https://t.me/emacs_telega/21925"
  :package-version '(telega . "0.7.1")
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-online-status-hook nil
  "Hook called when my online status changes.
Called with single argument - ONLINE-P."
  :package-version '(telega . "0.7.20")
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-msg-hover-in-hook nil
  "Hook called when message is hovered in.
Called with a single argument - MESSAGE."
  :package-version '(telega . "0.8.50")
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-msg-hover-out-hook nil
  "Hook called when message is hovered out.
Called with a single argument - MESSAGE."
  :package-version '(telega . "0.8.50")
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-chatbuf-pre-msg-insert-hook nil
  "Hook called before inserting message into a chatbuf.
Called with a single argument - MESSAGE.
This hook can be used to ignore message, see
https://github.com/zevlg/telega.el#configuring-client-side-messages-filtering."
  :package-version '(telega . "0.8.72")
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-chatbuf-post-msg-insert-hook nil
  "Hook called in a chatbuf after message has been inserted.
Called with a single argument - message.
For outgoing message hook is called only when message is successfully sent."
  :package-version '(telega . "0.8.72")
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-chatbuf-pre-msg-update-hook nil
  "Hook called in the chatbuf before message's content has been updated.
Called with a single argument - message."
  :package-version '(telega . "0.8.72")
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-chatbuf-post-msg-update-hook nil
  "Hook called in the chatbuf after message's content has been updated.
Called with a single argument - message."
  :package-version '(telega . "0.8.72")
  :type 'hook
  :group 'telega-hooks)

(defcustom telega-chatbuf-kill-hook nil
  "Hook called when chatbuf is killed."
  :package-version '(telega . "0.8.121")
  :type 'hook
  :group 'telega-hooks)

(provide 'telega-customize)

;;; telega-customize.el ends here