maciej/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change themes to use zenburn

Browse source
This commit is contained in:
Maciej 2021-08-05 20:41:29 +03:00
parent 49a986a337
commit 2bd997af29
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
4 changed files with 25 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

13
pkg/fonts.el
View file

@ -24,12 +24,12 @@
(defun set-font (name size)
"Set font to NAME and its SIZE to X pixels."
(interactive "sNew font: \nnEnter size for %s: ")
(defvar +custom-font name)
(defvar +custom-font-size size)
(setq +custom-font name)
(setq +custom-font-size size)
(set-face-attribute 'default nil :font (format "%s %d" name size))
;; Set comletion and modeline font to be 1 pixel point smaller than
;; Set completion and modeline font to be 1 pixel point smaller than
;; the general font
;; (set-face-attribute 'markdown-code-face nil :font (format "%s %d" name (- size 1)))
(set-face-attribute 'tooltip nil :font (format "%s %d" name (- size 1)))
@ -42,12 +42,11 @@
;; Call LSP-UI hook
(+custom-set-lsp-ui-font-hook))
;; (defconst +custom-font "Iosevka Term")
;; (defconst +custom-font "JetBrains Mono")
(defvar +custom-font "IBM Plex Mono")
;; (defvar +custom-font "Iosevka Term")
(defvar +custom-font "JetBrains Mono")
;; (defvar +custom-font "IBM Plex Mono")
(defvar +custom-font-size 14)
(defun set-font-to-screen ()
"Automatically set font size to suit the monitor."
;; If display is set to emulate FullHD resultion or less, make the font

25
pkg/themes.el
View file

@ -11,35 +11,34 @@
(sml/setup))
(use-package base16-theme :straight t :defer t)
(use-package flatui-theme :straight t :defer t)
(use-package planet-theme :straight t :defer t)
(use-package apropospriate-theme :straight t :defer t)
(use-package material-theme :straight t :defer t)
;; Disable cursor blinking
(blink-cursor-mode 0)
;; Set themes for terminal mode
(setq base16-theme-256-color-source "colors")
;; Light themes
(load-theme 'material-light t)
(load-theme 'base16-zenburn t)
(load-theme 'base16-atelier-forest-light t t)
(load-theme 'base16-harmonic-light t t)
(load-theme 'apropospriate-light t t)
(load-theme 'base16-humanoid-light t t)
;; Dark themes
(load-theme 'material t)
(load-theme 'base16-zenburn t)
(load-theme 'base16-tomorrow-night-eighties t t)
(load-theme 'base16-dracula t t)
(load-theme 'base16-solarflare t t)
(load-theme 'base16-snazzy t t)
(load-theme 'base16-gruvbox-dark-hard t t)
(if (display-graphic-p)
(progn
(sml/apply-theme 'respectful)
(enable-theme 'base16-harmonic-light))
(progn
(defvar base16-theme-256-color-source "base16-shell")
(enable-theme 'apropospriate-light)))
;; My own theme modifications:
(require 'base16-zenburn-modified-theme
"$HOME/.emacs.d/themes/base16-zenburn-modified.el")
(sml/apply-theme 'respectful)
(enable-theme 'base16-zenburn-modified)
(provide '+custom-pkg-themes)
;;; themes.el ends here