From 813b626aef196fdce3c308b17fa3adff15faeb9e Mon Sep 17 00:00:00 2001
From: Marcus Kammer <2262664-marcuskammer@user.noreply.gitlab.com>
Date: Fri, 30 Apr 2021 07:50:32 +0200
Subject: [PATCH] Add transparency funktion

---
 bundle/bundle--defaults.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/bundle/bundle--defaults.el b/bundle/bundle--defaults.el
index 5de3edfa..f6933407 100644
--- a/bundle/bundle--defaults.el
+++ b/bundle/bundle--defaults.el
@@ -85,3 +85,9 @@
                  minor-mode-alist
                  mode-line-end-spaces "%-"
                  )))
+
+ ;; Set transparency of emacs
+ (defun transparency (value)
+   "Sets the transparency of the frame window. 0=transparent/100=opaque"
+   (interactive "nTransparency Value 0 - 100 opaque:")
+   (set-frame-parameter (selected-frame) 'alpha value))