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

Move around themes, change theme to dark

Browse source
This commit is contained in:
Maciej 2021-04-20 08:35:07 +03:00
parent eb6b5fb740
commit e30eb7950e
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
4 changed files with 65 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

7
init.el
View file

@ -48,7 +48,8 @@
(require '+custom-pkg-speed-type "$HOME/.emacs.d/pkg/speed-type.el")
;; Themes
(require '+custom-themes "$HOME/.emacs.d/themes/themes.el")
(require '+custom-pkg-themes "$HOME/.emacs.d/pkg/themes.el")
(require '+custom-pkg-fonts "$HOME/.emacs.d/pkg/fonts.el")
;; Actual supported languages and file syntax.
(require '+custom-lang-elisp "$HOME/.emacs.d/lang/elisp.el")
@ -92,8 +93,8 @@
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(font-lock-constant-face ((((type graphic)) (:foreground "#dfaf8f")) (((min-colors 256)) (:foreground "brightred")) (t (:foreground "brightred"))))
'(font-lock-type-face ((t (:foreground "#ffcb6b" :family "Hack"))))
'(markdown-code-face ((t (:inherit fixed-pitch :family "Hack"))))
'(font-lock-type-face ((t (:foreground "#ffcb6b" :family "JetBrains Mono"))))
'(markdown-code-face ((t (:inherit fixed-pitch :family "JetBrains Mono"))))
'(mmm-default-submode-face ((t nil))))
;; Restore GC to normal, but still high

8
lang/javascript.el
View file

@ -43,7 +43,13 @@
'(company-capf company-yasnippet)))
(add-hook 'js2-mode-hook 'activate-js2-mode)
(add-hook 'vue-mode-hook 'lsp)
(defun activate-vue-mode ()
"VueJS overrides."
(lsp-deferred)
(setq-local lsp-ui-show-code-actions f))
(add-hook 'vue-mode-hook 'activate-vue-mode)
(provide '+custom-lang-javascript)
;;; javascript.el ends here

51
themes/themes.el → pkg/fonts.el
View file

@ -1,44 +1,15 @@
;;; themes -- summary
;;; fonts.el --- summary
;; Author: Maciej Szlosarczyk
;; Maintainer: Maciej Szlosarczyk
;; Version: 0.1-snapshot
;;; Commentary:
;; Set font stuff
;;; Code:
;; Use smart-mode-line
(use-package smart-mode-line
:straight t
:config
(setq-default sml/no-confirm-load-theme t)
(setq-default display-time-format "%H:%M") ;; time format to display on mode line
(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)
;; Disable cursor blinking
(blink-cursor-mode 0)
;; Light themes
(load-theme 'base16-atelier-forest-light t t)
(load-theme 'base16-harmonic-light t t)
(load-theme 'apropospriate-light t t)
(load-theme 'base16-tomorrow t t)
;; Dark themes
(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 (nth
(random 2)
'(base16-tomorrow base16-harmonic-light))))
(progn
(defvar base16-theme-256-color-source "base16-shell")
(enable-theme 'apropospriate-light)))
;; Set font face
;;;;;;;;;;;;;;;;;;;;;; Font configuration ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun set-font (name size)
@ -77,5 +48,5 @@
:foreground (face-foreground 'default)
:background (face-background 'default))
(provide '+custom-themes)
;;; themes.el ends here
(provide '+custom-pkg-fonts)
;;; fonts.el ends here

43
pkg/themes.el Normal file
View file

@ -0,0 +1,43 @@
;;; themes -- summary
;;; Commentary:
;;; Code:
;; Use smart-mode-line
(use-package smart-mode-line
:straight t
:config
(setq-default sml/no-confirm-load-theme t)
(setq-default display-time-format "%H:%M") ;; time format to display on mode line
(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)
;; Disable cursor blinking
(blink-cursor-mode 0)
;; Light themes
(load-theme 'base16-atelier-forest-light t t)
(load-theme 'base16-harmonic-light t t)
(load-theme 'apropospriate-light t t)
(load-theme 'base16-tomorrow t t)
;; Dark themes
(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 (nth
(random 2)
'(base16-solarflare base16-snazzy))))
(progn
(defvar base16-theme-256-color-source "base16-shell")
(enable-theme 'apropospriate-light)))
(provide '+custom-pkg-themes)
;;; themes.el ends here