emacs.d/bundle/bundle--gui.el
2023-10-02 11:52:21 +02:00

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