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

fix to load early-init.el also if init is loaded via --load-file

Browse Source
This commit is contained in:
Daniel Weschke
2022-12-10 17:12:13 +01:00
parent 48a4ef89dd
commit 4cb72a991a
2 changed files with 23 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
early-init.el
View File

@@ -15,7 +15,7 @@
;; `set-language-enviornment' sets `default-input-method', which is unwanted
(setq default-input-method nil)
(setq config-dir (file-name-directory (file-truename user-init-file))) ;; user-init-file: ~/.config/emacs/init, file-truename: /opt/emacs-conf/init
(defvar config-dir (file-name-directory (file-truename load-file-name)))
(setq user-emacs-directory "~/.config/emacs/") ;; for cache etc.
(defconst user-cache-directory
(file-name-as-directory (concat user-emacs-directory ".cache"))
@@ -48,7 +48,7 @@
(add-to-list 'default-frame-alist '(alpha . (95 . 95)))
;; Custom functions/hooks for persisting/loading frame geometry upon save/load
(setq my-frame-geometry-file (concat user-cache-directory "frame-geometry.el"))
(defvar my-frame-geometry-file (concat user-cache-directory "frame-geometry.el"))
(defun my-frame-geometry-save ()
"Gets the current frame's geometry and save it to `my-frame-geometry-file'."
(let ((frameg-font (frame-parameter (selected-frame) 'font))
@@ -87,3 +87,6 @@
(lambda ()
(if (display-graphic-p)
(add-hook 'kill-emacs-hook 'my-frame-geometry-save))))
(provide 'early-init)
;;; early-init.el ends here