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

61 lines
2.3 KiB
EmacsLisp

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