From 012f31b351232e301251a01a5d855a96ff41f147 Mon Sep 17 00:00:00 2001
From: Chris Cochrun <chris@tfcconnection.org>
Date: Tue, 12 Oct 2021 12:05:31 -0500
Subject: [PATCH] idk       maybe something

---
 README.org | 15 +++++++--------
 init.el    | 15 +++++++--------
 2 files changed, 14 insertions(+), 16 deletions(-)

diff --git a/README.org b/README.org
index c6457945..f2135f40 100644
--- a/README.org
+++ b/README.org
@@ -104,9 +104,9 @@ In order to have this config work on both my desktop with regular joe-schmoe mon
 (defun chris/set-transparency ()
   "Set the frame to be transparent on Wayland compositors"
   (if (string-search "wayland" x-display-name)
-       '((set-frame-parameter (selected-frame) 'alpha '(80 . 50))
-       (add-to-list 'default-frame-alist '(alpha . (80 . 50)))
-       (add-to-list 'initial-frame-alist '(alpha . (80 . 50))))))
+       '((set-frame-parameter (selected-frame) 'alpha '(80 . 80))
+       (add-to-list 'default-frame-alist '(alpha . (80 . 80)))
+       (add-to-list 'initial-frame-alist '(alpha . (80 . 80))))))
 
 (if (daemonp)
     (add-hook 'after-make-frame-functions
@@ -1176,11 +1176,10 @@ Part of this config includes some special capture templates for my work as a you
   (defun chris/org-agenda ()
     "create a window that houses my org-agenda"
     (interactive)
-    (if (not (ignore-errors (select-frame-by-name "org-agenda")))
-        (with-selected-frame (make-frame
-                              '((name . "org-agenda")
-                                (width . 100)))
-          (org-agenda-list))))
+    (with-selected-frame (make-frame
+                          '((name . "org-agenda")
+                            (width . 100)))
+      (org-agenda-list)))
 
 
   :general
diff --git a/init.el b/init.el
index 38e77191..1cedb60b 100644
--- a/init.el
+++ b/init.el
@@ -39,9 +39,9 @@
 (defun chris/set-transparency ()
   "Set the frame to be transparent on Wayland compositors"
   (if (string-search "wayland" x-display-name)
-       '((set-frame-parameter (selected-frame) 'alpha '(80 . 50))
-       (add-to-list 'default-frame-alist '(alpha . (80 . 50)))
-       (add-to-list 'initial-frame-alist '(alpha . (80 . 50))))))
+       '((set-frame-parameter (selected-frame) 'alpha '(80 . 80))
+       (add-to-list 'default-frame-alist '(alpha . (80 . 80)))
+       (add-to-list 'initial-frame-alist '(alpha . (80 . 80))))))
 
 (if (daemonp)
     (add-hook 'after-make-frame-functions
@@ -777,11 +777,10 @@ vertically."
   (defun chris/org-agenda ()
     "create a window that houses my org-agenda"
     (interactive)
-    (if (not (ignore-errors (select-frame-by-name "org-agenda")))
-        (with-selected-frame (make-frame
-                              '((name . "org-agenda")
-                                (width . 100)))
-          (org-agenda-list))))
+    (with-selected-frame (make-frame
+                          '((name . "org-agenda")
+                            (width . 100)))
+      (org-agenda-list)))
 
 
   :general