Add conditional system for frame-alist
This commit is contained in:
parent
8421620b9b
commit
5ba49e7264
2 changed files with 6 additions and 6 deletions
|
@ -1,11 +1,11 @@
|
||||||
(setq default-frame-alist
|
(setq default-frame-alist
|
||||||
'((font . "MonoLisa-11")
|
`((font . "MonoLisa-11")
|
||||||
(width . 85)
|
(width . 85)
|
||||||
(height . 50)
|
(height . 50)
|
||||||
(vertical-scroll-bars)))
|
(vertical-scroll-bars)
|
||||||
|
,@(cond ((eq system-type 'gnu/linux)
|
||||||
(when (eq system-type 'gnu/linux)
|
'((fullscreen . maximized)
|
||||||
(add-to-list 'default-frame-alist '(fullscreen . fullscreen)))
|
(undecorated . t))))))
|
||||||
|
|
||||||
(setq frame-resize-pixelwise t)
|
(setq frame-resize-pixelwise t)
|
||||||
|
|
||||||
|
|
|
@ -3,5 +3,5 @@
|
||||||
(font . "MonoLisa-11")
|
(font . "MonoLisa-11")
|
||||||
(width . 85)
|
(width . 85)
|
||||||
(height . 50)
|
(height . 50)
|
||||||
(unless (eq system-type 'windows-nt)
|
(and (eq system-type 'gnu/linux)
|
||||||
(undecorated . t))))
|
(undecorated . t))))
|
||||||
|
|
Loading…
Add table
Reference in a new issue