[core] disable internal border (#15843)

* core/core-spacemacs.el: disable internal border with undecorated frame

* core/core-spacemacs.el: enable maximized-at-startup by default
This commit is contained in:
bb2020 2022-12-10 08:46:38 +03:00 committed by GitHub
parent 3be65c7354
commit 866a2d5ae1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 8 additions and 6 deletions

View File

@ -472,7 +472,7 @@ to disable fullscreen animations on macOS."
'boolean 'boolean
'spacemacs-dotspacemacs-init) 'spacemacs-dotspacemacs-init)
(spacemacs|defc dotspacemacs-maximized-at-startup nil (spacemacs|defc dotspacemacs-maximized-at-startup t
"If non nil the frame is maximized when Emacs starts up (Emacs 24.4+ only). "If non nil the frame is maximized when Emacs starts up (Emacs 24.4+ only).
Takes effect only if `dotspacemacs-fullscreen-at-startup' is nil." Takes effect only if `dotspacemacs-fullscreen-at-startup' is nil."
'boolean 'boolean

View File

@ -94,7 +94,9 @@ the final step of executing code in `emacs-startup-hook'.")
(when dotspacemacs-undecorated-at-startup (when dotspacemacs-undecorated-at-startup
;; this should be called before toggle-frame-maximized ;; this should be called before toggle-frame-maximized
(set-frame-parameter nil 'undecorated t) (set-frame-parameter nil 'undecorated t)
(add-to-list 'default-frame-alist '(undecorated . t))) (set-frame-parameter nil 'internal-border-width 0)
(add-to-list 'default-frame-alist '(undecorated . t))
(add-to-list 'default-frame-alist '(internal-border-width . 0)))
(when dotspacemacs-maximized-at-startup (when dotspacemacs-maximized-at-startup
(unless (frame-parameter nil 'fullscreen) (unless (frame-parameter nil 'fullscreen)
(toggle-frame-maximized)) (toggle-frame-maximized))

View File

@ -359,12 +359,12 @@ It should only modify the values of Spacemacs settings."
;; If non-nil the frame is maximized when Emacs starts up. ;; If non-nil the frame is maximized when Emacs starts up.
;; Takes effect only if `dotspacemacs-fullscreen-at-startup' is nil. ;; Takes effect only if `dotspacemacs-fullscreen-at-startup' is nil.
;; (default nil) (Emacs 24.4+ only) ;; (default t) (Emacs 24.4+ only)
dotspacemacs-maximized-at-startup nil dotspacemacs-maximized-at-startup t
;; If non-nil the frame is undecorated when Emacs starts up. Combine this ;; If non-nil the frame is undecorated when Emacs starts up. Combine this
;; variable with `dotspacemacs-maximized-at-startup' in OSX to obtain ;; variable with `dotspacemacs-maximized-at-startup' to obtain fullscreen
;; borderless fullscreen. (default nil) ;; without external boxes. Also disables the internal border. (default nil)
dotspacemacs-undecorated-at-startup nil dotspacemacs-undecorated-at-startup nil
;; A value from the range (0..100), in increasing opacity, which describes ;; A value from the range (0..100), in increasing opacity, which describes