Work around Emacs window size being weird on VcXsrv

This commit is contained in:
Puppet 2022-09-20 20:42:08 +03:00
parent b064911e2c
commit 1832ad1097
2 changed files with 6 additions and 3 deletions

View file

@ -1,6 +1,3 @@
(add-to-list 'default-frame-alist '(width . 200))
(add-to-list 'default-frame-alist '(height . 60))
(setq package-list '(org use-package))
;; list the repositories containing them
(setq package-archives '(("melpa" . "http://melpa.org/packages/")
@ -73,6 +70,10 @@
(ec/load-or-ask-pred 'my-ec/load-full-config "Do you want to load full config for emacs?")
(ec/load-or-ask-pred 'my-ec/load-org-config "Do you want to load org config?")
(when (not my-ec/is-wsl)
(add-to-list 'default-frame-alist '(width . 200))
(add-to-list 'default-frame-alist '(height . 60)))
;; It is imperative that this be loaded for a nice emacs
;; experience. Only SUPER stable stuff goes in this file, and should
;; rarely be modified

View file

@ -151,6 +151,8 @@
(unless (or tab-explicit-name
(cdr (assoc 'unsplittable
(frame-parameters nil))))
(when my-ec/is-wsl
(set-frame-size frame 80 30))
(tab-bar-rename-tab "scratch")
(tab-bar-new-tab -1)
(tab-bar-rename-tab "emacs-devel")