From 622446d9c07a1190b138eeb3f4efbf07b336d3fa Mon Sep 17 00:00:00 2001 From: Protesilaos Stavrou Date: Sun, 13 Jul 2025 06:15:05 +0300 Subject: [PATCH] emacs: tweak the laptop-specific frame settings --- .../prot-emacs-modules/prot-emacs-essentials.el | 11 +++++++---- emacs/.emacs.d/prot-emacs.org | 11 +++++++---- 2 files changed, 14 insertions(+), 8 deletions(-) diff --git a/emacs/.emacs.d/prot-emacs-modules/prot-emacs-essentials.el b/emacs/.emacs.d/prot-emacs-modules/prot-emacs-essentials.el index a6045591..9163938d 100644 --- a/emacs/.emacs.d/prot-emacs-modules/prot-emacs-essentials.el +++ b/emacs/.emacs.d/prot-emacs-modules/prot-emacs-essentials.el @@ -555,12 +555,15 @@ word. Fall back to regular `expreg-expand'." "When non-nil, we assume to be working on a laptop.") (when prot-laptop-p - (add-to-list 'default-frame-alist '(width . (text-pixels . 800))) - (add-to-list 'default-frame-alist '(height . (text-pixels . 600))) + (defun prot-emacs-maximize-frame (frame) + "Maximise the given FRAME." + (set-frame-parameter frame 'fullscreen 'maximized)) - (toggle-frame-maximized) + (prot-emacs-maximize-frame (selected-frame)) - (add-hook 'after-make-frame-functions (lambda (frame) (toggle-frame-maximized frame)))) + (add-hook 'after-make-frame-functions #'prot-emacs-maximize-frame) + + (add-hook 'window-size-change-functions #'frame-hide-title-bar-when-maximized)) (use-package battery :ensure nil diff --git a/emacs/.emacs.d/prot-emacs.org b/emacs/.emacs.d/prot-emacs.org index 1bf4f368..927997fa 100644 --- a/emacs/.emacs.d/prot-emacs.org +++ b/emacs/.emacs.d/prot-emacs.org @@ -3684,12 +3684,15 @@ line. "When non-nil, we assume to be working on a laptop.") (when prot-laptop-p - (add-to-list 'default-frame-alist '(width . (text-pixels . 800))) - (add-to-list 'default-frame-alist '(height . (text-pixels . 600))) + (defun prot-emacs-maximize-frame (frame) + "Maximise the given FRAME." + (set-frame-parameter frame 'fullscreen 'maximized)) - (toggle-frame-maximized) + (prot-emacs-maximize-frame (selected-frame)) - (add-hook 'after-make-frame-functions (lambda (frame) (toggle-frame-maximized frame)))) + (add-hook 'after-make-frame-functions #'prot-emacs-maximize-frame) + + (add-hook 'window-size-change-functions #'frame-hide-title-bar-when-maximized)) (use-package battery :ensure nil