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

This commit can be reversed later

Browse source
This commit is contained in:
Maciej 2021-08-04 22:32:07 +03:00
parent f282c5e64c
commit 49a986a337
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
4 changed files with 35 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

31
pkg/fonts.el
View file

@ -12,18 +12,41 @@
;; Set font face
;;;;;;;;;;;;;;;;;;;;;; Font configuration ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun +custom-set-lsp-ui-font-hook ()
"Reset LSP IO font to specified +custom-font and +custom-font-size."
(setq lsp-ui-doc-frame-hook nil)
(add-hook 'lsp-ui-doc-frame-hook
(lambda (frame _w)
(set-face-attribute
'default frame :font
(format "%s %d" +custom-font (- +custom-font-size 2))))))
(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)
(set-face-attribute 'default nil :font (format "%s %d" name size))
;; Set modeline font to be 1 pixel point smaller than the general font
;; Set comletion 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)))
(set-face-attribute 'company-tooltip nil :font (format "%s %d" name (- size 1)))
(set-face-attribute 'company-tooltip-annotation nil :font (format "%s %d" name (- size 1)))
(set-face-attribute 'company-tooltip-mouse nil :font (format "%s %d" name (- size 1)))
(set-face-attribute 'mode-line nil :font (format "%s %d" name (- size 1)))
(set-face-attribute 'mode-line-inactive nil :font
(format "%s %d" name (- size 1))))
(set-face-attribute 'mode-line-inactive nil :font (format "%s %d" name (- size 1)))
;; Call LSP-UI hook
(+custom-set-lsp-ui-font-hook))
;; (defconst +custom-font "Iosevka Term")
;; (defconst +custom-font "JetBrains Mono")
(defconst +custom-font "IBM Plex 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."

8
pkg/themes.el
View file

@ -14,17 +14,21 @@
(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)
;; 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-solarflare t t)
(load-theme 'base16-snazzy t t)
(load-theme 'base16-gruvbox-dark-hard t t)
@ -32,9 +36,7 @@
(if (display-graphic-p)
(progn
(sml/apply-theme 'respectful)
(enable-theme (nth
(random 2)
'(base16-humanoid-light base16-harmonic-light))))
(enable-theme 'base16-harmonic-light))
(progn
(defvar base16-theme-256-color-source "base16-shell")
(enable-theme 'apropospriate-light)))