Separate theme-setup code into helper function
This commit is contained in:
parent
9635ec2b94
commit
84584daf00
@ -50,6 +50,26 @@ Made solely to reduce lines in the init-file."
|
||||
;; (set-marker fixup-mark nil)))
|
||||
;; (advice-add #'evil-join :override #'+evil-join-a)
|
||||
)
|
||||
(defun mitch/visual-setup ()
|
||||
"Commands to run when setting up any display. To be called in use-package
|
||||
declarations for color schemes."
|
||||
(tooltip-mode -1)
|
||||
(menu-bar-mode -1)
|
||||
(set-face-attribute 'fixed-pitch nil
|
||||
:family "MesloLGS NF")
|
||||
(set-face-attribute 'default nil
|
||||
:family "MesloLGS NF")
|
||||
(set-face-attribute 'variable-pitch nil
|
||||
:inherit 'default
|
||||
:family "Sans Serif")
|
||||
(setq window-divider-default-places t)
|
||||
(setq right-divider-width 5)
|
||||
(setq ring-bell-function 'ignore)
|
||||
(setq rainbow-delimiters-max-face-count 2)
|
||||
(add-to-list 'initial-frame-alist '(alpha-background . 50))
|
||||
(add-to-list 'default-frame-alist '(alpha-background . 50))
|
||||
(add-to-list 'default-frame-alist '(cursor-color . "white"))
|
||||
(add-to-list 'default-frame-alist '(fullscreen . maximized)))
|
||||
(defun mitch/graphical-setup ()
|
||||
"Commands to run at the beginning of init when on a graphical display.
|
||||
This prevents errors in termux and speeds up init when editing from the
|
||||
|
@ -423,25 +423,6 @@ targets."
|
||||
;; (load-theme 'naquadah t)
|
||||
;; (load-theme 'airline-deus t))
|
||||
(use-package dark-krystal-theme
|
||||
:custom
|
||||
(window-divider-default-places t)
|
||||
(right-divider-width 5)
|
||||
(ring-bell-function 'ignore)
|
||||
:config
|
||||
(tooltip-mode -1)
|
||||
(menu-bar-mode -1)
|
||||
(set-face-attribute 'fixed-pitch nil
|
||||
:family "MesloLGS NF")
|
||||
(set-face-attribute 'default nil
|
||||
:family "MesloLGS NF")
|
||||
(set-face-attribute 'variable-pitch nil
|
||||
:inherit 'default
|
||||
:family "Sans Serif")
|
||||
(setq rainbow-delimiters-max-face-count 2)
|
||||
(add-to-list 'initial-frame-alist '(alpha-background . 50))
|
||||
(add-to-list 'default-frame-alist '(alpha-background . 50))
|
||||
(add-to-list 'default-frame-alist '(cursor-color . "white"))
|
||||
(add-to-list 'default-frame-alist '(fullscreen . maximized))
|
||||
:init
|
||||
(load-theme 'dark-krystal t)
|
||||
(load-theme 'airline-google_dark t))
|
||||
|
Loading…
Reference in New Issue
Block a user