(use-package all-the-icons
  :if (display-graphic-p)
  :commands all-the-icons-install-fonts
  :init
  (unless (find-font (font-spec :name "all-the-icons"))
    (all-the-icons-install-fonts t)))

(use-package all-the-icons-dired
  :if (display-graphic-p)
  :hook (dired-mode . all-the-icons-dired-mode))

;; (use-package doom-themes
;;     :init (setq doom-themes-enable-bold t    ; if nil, bold is universally disabled
;;                 doom-themes-enable-italic t) ; if nil, italics is universally disabled
;;     (load-theme 'doom-one t))

(use-package doom-modeline
  :init (doom-modeline-mode 1)
  :custom (doom-modeline-height 0))

(use-package helpful
  :commands (helpful-callable helpful-variable helpful-command helpful-key)
  :bind ([remap describe-command] . helpful-command) ([remap describe-key] . helpful-key))

(use-package rainbow-delimiters :hook (prog-mode . rainbow-delimiters-mode))

(use-package olivetti
  :custom (olivetti-body-width 83)
  :bind ("<f6>" . olivetti-mode))

(add-hook 'Info-mode-hook
          (lambda ()
            (make-local-variable 'olivetti-body-width)
            (setq olivetti-body-width 75)
            (olivetti-mode)))

(use-package ace-window :init (global-set-key (kbd "M-o") 'ace-window))

;; (use-package emojify
;;     ;; https://ianyepan.github.io/posts/emacs-emojis/
;;     :config
;;   (when (member "Segoe UI Emoji" (font-family-list))
;;     (set-fontset-font
;;      t 'symbol (font-spec :family "Segoe UI Emoji") nil 'prepend))
;;   (setq emojify-display-style 'unicode)
;;   (setq emojify-emoji-styles '(unicode)))

;; (use-package vertico :init (vertico-mode))

(use-package webjump
  :bind ("C-c j" . webjump)
  :custom
  (webjump-sites
   (append '(("Wikipedia_de" . [simple-query "de.wikipedia.org" "https://de.wikipedia.org/wiki/" ""])
             ("leo.org" . [simple-query "dict.leo.org" "https://dict.leo.org/german-english/" ""]))
           webjump-sample-sites)))

(setq tab-bar-format
      '(tab-bar-format-history
        tab-bar-format-tabs-groups))
(global-set-key (kbd "M-[") 'tab-bar-history-back)
(global-set-key (kbd "M-]") 'tab-bar-history-forward)
(tab-bar-mode 1)

(setq tab-line-close-button-show nil)
(setq tab-line-new-button-show nil)
(setq tab-line-tabs-function 'tab-line-tabs-mode-buffers)
;(global-tab-line-mode 1)