From c65ffe449e275e3c3e25adb87aff448f02c2b5d2 Mon Sep 17 00:00:00 2001
From: Daniel Weschke <daniel.weschke@directbox.de>
Date: Sun, 16 Jan 2022 12:40:42 +0100
Subject: [PATCH] move default frame settings to early init file

---
 early-init.el                |  8 ++++++++
 settings/general-settings.el | 15 ---------------
 settings/org-settings.el     |  4 ++--
 3 files changed, 10 insertions(+), 17 deletions(-)
 create mode 100644 early-init.el

diff --git a/early-init.el b/early-init.el
new file mode 100644
index 00000000..ac45ef06
--- /dev/null
+++ b/early-init.el
@@ -0,0 +1,8 @@
+
+;; (add-to-list 'default-frame-alist '(fullscreen . maximized))       ;; restore saved geometry, see gui-settings.el my-frame-geometry-
+(add-to-list 'default-frame-alist '(tool-bar-position . left))
+;; (add-to-list 'default-frame-alist '(horizontal-scroll-bars . t))   ;; see gui-settings
+
+;; transparency
+(set-frame-parameter (selected-frame) 'alpha '(95 . 95))              ;; VALUE: '(<active> . <inactive>) / <both>
+(add-to-list 'default-frame-alist '(alpha . (95 . 95)))
diff --git a/settings/general-settings.el b/settings/general-settings.el
index c3f89e8d..38f353c2 100644
--- a/settings/general-settings.el
+++ b/settings/general-settings.el
@@ -9,22 +9,7 @@
 ;; Change "yes or no" to "y or n"
 (fset 'yes-or-no-p 'y-or-n-p)
 
-;; default-frame-alist not empty
-(mapc (lambda (item)
-        (add-to-list 'default-frame-alist item)
-        )
-      '(
-        ;;(fullscreen . maximized)  ;; restore saved geometry, see gui-settings.el my-frame-geometry-
-        (tool-bar-position . left)
-        ;;(horizontal-scroll-bars . t)  ;; see gui-settings
-        )
-      )
-
 ;; transparency
-;;(set-frame-parameter (selected-frame) 'alpha '(<active> . <inactive>))
-;;(set-frame-parameter (selected-frame) 'alpha <both>)
-(set-frame-parameter (selected-frame) 'alpha '(95 . 95))
-(add-to-list 'default-frame-alist '(alpha . (95 . 95)))
 (defun transparency-p ()
   "Toggle transparency of the frame."
   (let ((alpha (frame-parameter nil 'alpha)))
diff --git a/settings/org-settings.el b/settings/org-settings.el
index b9d984c3..983e3a7d 100644
--- a/settings/org-settings.el
+++ b/settings/org-settings.el
@@ -328,10 +328,10 @@ Example defines
 (use-package org-appear
   :hook (org-mode . org-appear-mode)
   :config
-  (setq org-appear-autoentities t)    ;; toogle entities: \alpha -> ɑ, needs `org-pretty-entries' active
+  (setq org-appear-autoentities t)    ;; toogle entities: \alpha -> ɑ, needs `org-pretty-entities' active
   (setq org-appear-autoemphasis t)    ;; toggle emphasis markers, t by default, needs `org-hide-emphasis-markers' active
   (setq org-appear-autolinks t)       ;; toogle links, needs `org-link-descriptive' active
-  (setq org-appear-autosubmarkers t)  ;; toogle subscripts and superscripts: ^3 -> ³, needs `org-pretty-entries' active
+  (setq org-appear-autosubmarkers t)  ;; toogle subscripts and superscripts: ^3 -> ³, needs `org-pretty-entities' active
   (setq org-appear-autokeywords t))   ;; toogle keywords: #+TITLE: foo -> foo, needs `org-hidden-keywords' active
 
 (use-package org-brain  ;; uses org-id If you find that org-brain is missing entries, or list entries which doesn’t exist, try using M-x org-brain-update-id-locations, which syncs the org-brain entries with the org-id caching system.