Fixes Emacs transparency, fmt init.el

This commit is contained in:
willemml 2023-11-18 04:17:14 -08:00
parent 7910b9cc99
commit 1b03aad8dc
Signed by: willemml
GPG key ID: C3DE5DF6198DACBD

View file

@ -14,12 +14,10 @@
(setq inhibit-default-init t) (setq inhibit-default-init t)
;; Transparent background for Emacs in terminal windows. ;; Transparent background for Emacs in terminal windows.
(defun on-after-init () (add-hook 'server-switch-hook
(unless (display-graphic-p (selected-frame)) (lambda ()
(set-face-background 'default "unspecified-bg" (selected-frame)))) (set-face-background 'default "unspecified-bg" (selected-frame))))
(add-hook 'window-setup-hook 'on-after-init)
;; Typically, I only want spaces when pressing the TAB key. I also ;; Typically, I only want spaces when pressing the TAB key. I also
;; want 4 of them. ;; want 4 of them.
(setq-default indent-tabs-mode nil (setq-default indent-tabs-mode nil
@ -93,11 +91,11 @@
(let ((org-config (expand-file-name "~/.emacs.d/org-tex-cfg.el"))) (let ((org-config (expand-file-name "~/.emacs.d/org-tex-cfg.el")))
(when (file-exists-p org-config) (when (file-exists-p org-config)
(load-file org-config)) (load-file org-config))
) )
(let ((nix-extraconfig (expand-file-name "~/.emacs.d/nix-extraconfig.el"))) (let ((nix-extraconfig (expand-file-name "~/.emacs.d/nix-extraconfig.el")))
(when (file-exists-p nix-extraconfig) (when (file-exists-p nix-extraconfig)
(load-file nix-extraconfig)) (load-file nix-extraconfig))
) )
(setq org-directory (expand-file-name "~/Documents/org")) (setq org-directory (expand-file-name "~/Documents/org"))