;; -*- lexical-binding: t -*-

(require 'which-key)
(custom-set-variables
 '(which-key-prefix-prefix)
 '(which-key-separator
   (if (display-graphic-p) " → " " > ")))
(define-key help-map [f2] #'which-key-show-top-level)
(which-key-mode 1)

(require 'helm)
(require 'helm-config)
(custom-set-variables
 '(helm-visible-mark-prefix ""))
(helm-mode 1)
(define-key global-map [?\M-x] #'helm-M-x)
(define-key global-map [?\C-x b] #'helm-buffers-list)
(define-key global-map [f6] #'helm-buffers-list)
(custom-set-faces
 '(helm-buffer-directory ((((type nil)) (:inherit dired-directory))))
 '(helm-buffer-file ((((type nil)) (:weight normal))))
 '(helm-buffer-modified ((((type nil)) (:inherit error))))
 '(helm-buffer-not-saved ((((type nil)) (:foreground "yellow"))))
 '(helm-buffer-process ((((type nil)) (:foreground "magenta" :weight bold))))
 '(helm-buffer-saved-out ((((type nil)) (:inherit warning))))
 '(helm-non-file-buffer ((((type nil)) (:foreground "cyan" :background "black" :weight bold :inherit nil))))
 '(helm-buffer-size ((((type nil)) (:foreground "yellow"))))
 '(helm-candidate-number ((((type nil)) (:foreground "black" :background "yellow" :weight normal))))
 '(helm-ff-directory ((((type nil)) (:inherit helm-buffer-directory))))
 '(helm-ff-dotted-directory ((((type nil)) (:foreground "white" :weight normal))))
 '(helm-ff-file ((((min-colors 256)) (:inherit default))
                 (((type nil)) (:foreground "white" :background "black" :weight bold))))
 '(helm-ff-prefix ((((min-colors 256)) (:background "#1d1f21" :foreground "#ff3334"))
                   (((type nil)) (:background "black" :foreground "red" :weight normal))))
 ;; helm needs “selected” variant for the following two faces:
 '(helm-ff-symlink ((((type nil)) (:foreground "cyan" :weight bold))))
 '(helm-ff-truename ((((type nil)) (:foreground "yellow" :weight bold))))
 ;; '(helm-ff-prefix ((((type nil)) (:background "red" :foreground "white" :weight normal))))
 '(helm-header-line-left-margin ((((type nil)) (:foreground "black" :background "yellow" :weight normal))))
 '(helm-history-deleted ((((type nil)) (:foreground "black" :background "red" :weight normal))))
 '(helm-lisp-show-completion ((((type nil)) (:foreground "black" :background "green" :weight normal))))
 '(helm-match ((((type nil)) (:inherit match))))
 '(helm-minibuffer-prompt ((((type nil)) (:inherit minibuffer-prompt))))
 '(helm-mode-prefix ((((type nil)) (:foreground "black" :background "red" :weight normal))))
 '(helm-selection ((((type nil)) (:foreground "black" :background "green" :weight normal))))
 '(helm-selection-line ((((type nil)) (:foreground "red" :weight normal :inherit nil))))
 '(helm-separator ((((type nil)) (:foreground "magenta"))))
 '(helm-source-header ((((min-colors 256)) (:foreground "#de935f" :weight bold :height 1.0))
                       (((type nil)) (:weight bold :foreground "yellow"))))
 '(helm-visible-mark ((((min-colors 256)) (:background "#b5bd68" :foreground "#1d1f21"))
                      (((type nil)) (:background "blue" :foreground "white" :weight normal :inherit nil))))

 '(helm-M-x-key ((((min-colors 256)) (:foreground "#f0c674" :underline t)))))

(require 'company)
(global-company-mode)

(require 'telega)
(setq telega-root-fill-column (- (/ (1- (frame-width)) 2) 2)
      telega-chat-fill-column (- telega-root-fill-column 10))
(custom-set-variables
 '(telega-completing-read-function #'helm--completing-read-default))
(define-key global-map [f5] #'telega-chat-with)
(defvar gentoo-telega-no-images nil)
(when gentoo-telega-no-images
  (custom-set-variables
   '(telega-symbol-checkmark ",")
   '(telega-symbol-heavy-checkmark ".")
   '(telega-symbol-pending "~")
   '(telega-symbol-telegram "tg")
   '(telega-symbol-ballout-check "v")
   '(telega-symbol-ballout-empty "x")))

(define-key global-map [f7] #'other-window)
(define-key global-map [f11] #'delete-other-windows)
(define-key global-map [f12] #'split-window-right)

(require 'disp-table)
;; solid window separators in terminal
(set-display-table-slot standard-display-table
			'vertical-border
			(make-glyph-code ?│))
(require 'faces)
(defun telega-standalone-tone-down-vertical-border ()
  (set-face-attribute 'vertical-border nil
		      :foreground (face-foreground 'default)
		      :background (face-background 'default)
		      :inherit nil))
(telega-standalone-tone-down-vertical-border)

(require 'frame)
(defun telega-standalone-tone-down-frame-elements (frame)
  (select-frame frame)
  ;; (telega-standalone-tone-down-fringes)
  (telega-standalone-tone-down-vertical-border))
(add-hook 'after-make-frame-functions
          #'telega-standalone-tone-down-frame-elements)

(provide 'telega-standalone)

(telega)
(sit-for 4)
(progn
  (split-window-right)
  (with-current-buffer (get-buffer-create "*Help: app-emacs/telega*")
    (insert "Press F1 F2 for keys"
            ?\n "Press F1 t for tutorial"
            ?\n "C-h means Ctrl+h, M-x means Alt+x, and so on."
            ?\n "RET means Enter, DEL means Backspace (!), SPC means Spacebar"
            ?\n "To leave most menus, press C-g (remember this)"
            ?\n "To select a candidate in a menu, press RET"
            ?\n "Press F5 to switch between Telegram chats"
            ?\n "Press @ TAB in chat buffers to complete user names"
            ?\n "Press / TAB in chat buffers to complete bot commands"
            ?\n "Press PgUp, PgDown to go up, down and scroll history"
            ?\n "Press F6 to switch between buffers (remember this, and you won't get lost)"
            ?\n "Press F7 to switch between windows"
            ?\n "Press F11 to maximize current window"
            ?\n "Press F12 to split current window in the middle"
            ?\n "Press M-< to go to the beginning of buffer"
            ?\n "Press M-> to go to the end of buffer"
            ?\n "Press M-x to do anything"
            ?\n "Press C-x C-c to leave Emacs (and kill telega-server)")
    (display-buffer (current-buffer))))