emacs.d/bundle/bundle--gui.el

(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))

;(when (eq system-type 'gnu/linux)
  (use-package doom-modeline
               :init (doom-modeline-mode 1)
               :custom (doom-modeline-height 33))

(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)))

(use-package tab-bar
    :ensure nil
    :init (setq tab-bar-mode nil)
    :custom
    (tab-bar-format
     '(tab-bar-format-history
       tab-bar-format-tabs-groups)))