mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Separate theme-setup code into helper function

Browse Source
This commit is contained in:
MitchMarq42 2022-10-10 13:36:52 -08:00
parent 9635ec2b94
commit 84584daf00
2 changed files with 20 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/mitch-defuns.el
View File

@ -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

19
lisp/mitch-packages.el
View File

@ -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))