daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

load frame-geometry only in gui mode

Browse Source
This commit is contained in:
Daniel Weschke
2025-07-03 12:16:25 +02:00
parent 0325922dd3
commit 904dd985ea
1 changed files with 37 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
early-init.el
View File

@@ -377,8 +377,6 @@ startup phase.")
(defvar my-frame-title-format "%b – Emacs" (defvar my-frame-title-format "%b – Emacs"
"Template for displaying the title bar of visible and iconified frame.") "Template for displaying the title bar of visible and iconified frame.")
;; `display-graphic-p' not working during early-init
(setq frame-title-format my-frame-title-format) (setq frame-title-format my-frame-title-format)
(setq icon-title-format my-frame-title-format) (setq icon-title-format my-frame-title-format)
@@ -437,42 +435,43 @@ startup phase.")
(add-to-list 'initial-frame-alist '(background-color . "#1e1e1e")) (add-to-list 'initial-frame-alist '(background-color . "#1e1e1e"))
(add-to-list 'initial-frame-alist '(foreground-color . "#b2b2b2")) (add-to-list 'initial-frame-alist '(foreground-color . "#b2b2b2"))
;; Custom functions/hooks for persisting/loading frame geometry upon save/load (when (display-graphic-p)
(defvar my-frame-geometry-file (concat user-cache-directory "frame-geometry.el")) ;; Custom functions/hooks for persisting/loading frame geometry upon save/load
(defun my-frame-geometry-save () (defvar my-frame-geometry-file (concat user-cache-directory "frame-geometry.el"))
"Gets the current frame's geometry and save it to `my-frame-geometry-file'." (defun my-frame-geometry-save ()
(let (;; (frameg-font (frame-parameter (selected-frame) 'font)) "Gets the current frame's geometry and save it to `my-frame-geometry-file'."
(frameg-top (frame-parameter (selected-frame) 'top)) (let (;; (frameg-font (frame-parameter (selected-frame) 'font))
(frameg-left (frame-parameter (selected-frame) 'left)) (frameg-top (frame-parameter (selected-frame) 'top))
(frameg-width (frame-parameter (selected-frame) 'width)) (frameg-left (frame-parameter (selected-frame) 'left))
(frameg-height (frame-parameter (selected-frame) 'height)) (frameg-width (frame-parameter (selected-frame) 'width))
;; (frameg-alpha (frame-parameter (selected-frame) 'alpha)) (frameg-height (frame-parameter (selected-frame) 'height))
(frameg-file my-frame-geometry-file)) ;; (frameg-alpha (frame-parameter (selected-frame) 'alpha))
(with-temp-buffer (frameg-file my-frame-geometry-file))
;; Turn off backup for this file (with-temp-buffer
(make-local-variable 'make-backup-files) ;; Turn off backup for this file
(setq make-backup-files nil) (make-local-variable 'make-backup-files)
(when (featurep 'scroll-bar) ;; for terminal scroll-bar ist not loaded (setq make-backup-files nil)
(scroll-bar-mode -1)) (when (featurep 'scroll-bar) ;; for terminal scroll-bar is not loaded
(insert (scroll-bar-mode -1))
";;; " (file-name-nondirectory frameg-file) " --- Frame configuration -*- no-byte-compile: t; lexical-binding: t; -*-" (insert
";;; This file stores the previous emacs frame's geometry.\n" ";;; " (file-name-nondirectory frameg-file) " --- Frame configuration -*- no-byte-compile: t; lexical-binding: t; -*-"
";;; Last generated " (current-time-string) ".\n" ";;; This file stores the previous emacs frame's geometry.\n"
(format "(add-to-list 'initial-frame-alist '(top . %d))\n" (max frameg-top 0)) ";;; Last generated " (current-time-string) ".\n"
(format "(add-to-list 'initial-frame-alist '(left . %d))\n" (max frameg-left 0)) (format "(add-to-list 'initial-frame-alist '(top . %d))\n" (max frameg-top 0))
(format "(add-to-list 'initial-frame-alist '(width . %d))\n" (max frameg-width 0)) (format "(add-to-list 'initial-frame-alist '(left . %d))\n" (max frameg-left 0))
(format "(add-to-list 'initial-frame-alist '(height . %d))\n" (max frameg-height 0)) (format "(add-to-list 'initial-frame-alist '(width . %d))\n" (max frameg-width 0))
) (format "(add-to-list 'initial-frame-alist '(height . %d))\n" (max frameg-height 0))
(when (file-writable-p frameg-file) )
(write-file frameg-file))))) (when (file-writable-p frameg-file)
(defun my-frame-geometry-load () (write-file frameg-file)))))
"Load `my-frame-geometry-file' which should load the previous frame's geometry." (defun my-frame-geometry-load ()
(let ((frameg-file my-frame-geometry-file)) "Load `my-frame-geometry-file' which should load the previous frame's geometry."
(when (file-readable-p frameg-file) (let ((frameg-file my-frame-geometry-file))
;; (load-file frameg-file) (when (file-readable-p frameg-file)
(load (expand-file-name frameg-file) nil (not my-debug) t)))) ;; (load-file frameg-file)
(my-frame-geometry-load) (load (expand-file-name frameg-file) nil (not my-debug) t))))
(add-hook 'kill-emacs-hook 'my-frame-geometry-save) (my-frame-geometry-load)
(add-hook 'kill-emacs-hook 'my-frame-geometry-save))
;;; Security ;;; Security