blob: 39d38b4005d922afe45397ce24392b7d45b6397b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(defun gx/set-appearance--linux ()
(set-face-attribute 'default nil :height 130))
(defun gx/set-appearance--mac ()
(set-face-attribute 'default nil :height 160)
(custom-set-variables
'(initial-frame-alist '((fullscreen . maximized)))))
(defun gx/set-appearance-for-frame (frame)
(select-frame frame)
(gx/set-appearance))
(defun gx/set-appearance ()
(when (display-graphic-p)
(when *is-a-linux*
(gx/set-appearance--linux))
(when *is-a-mac*
(gx/set-appearance--mac)))
(when (gx/maybe-require-package 'color-theme-sanityinc-tomorrow)
(color-theme-sanityinc-tomorrow-eighties)))
(add-to-list 'after-make-frame-functions #'gx/set-appearance-for-frame)
(add-hook 'after-init-hook #'gx/set-appearance)
(setq-default custom-safe-themes t)
(provide 'init-appearance)
|
