3 files changed, 19 insertions, 5 deletions
diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index 5670895..edbf190 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -14,7 +14,8 @@
         backup-directory-alist `(("." . ,(expand-file-name "tmp/backups/" user-emacs-directory))))
 (make-directory (expand-file-name "tmp/auto_saves/" user-emacs-directory) t)
 
-
+;;;; display type
+(setq display (getenv "XDG_SESSION_TYPE"))
 ;;;; path
 (setenv "PATH" (format "%s:%s" (expand-file-name "~/.local/bin/") (getenv "PATH")))
 
diff --git a/.config/emacs/modules/bd--essentials.el b/.config/emacs/modules/bd--essentials.el
index de72c20..49e50e3 100644
--- a/.config/emacs/modules/bd--essentials.el
+++ b/.config/emacs/modules/bd--essentials.el
@@ -18,10 +18,18 @@
   (pulse-momentary-highlight-one-line (point)))
 
 (dolist (command '(scroll-up-command scroll-down-command
-				     recenter-top-bottom other-window))
+                                     recenter-top-bottom other-window))
   (advice-add command :after #'pulse-line))
 
 
+;;;; insecure passwording
+(use-package pinentry
+  :init
+  (pinentry-start)
+  :custom
+  (pinentry-popup-prompt-window nil))
+
+
 ;;;; defaults
 ;; basic editing
 (setopt kill-whole-line t
diff --git a/.config/emacs/modules/bd--windows.el b/.config/emacs/modules/bd--windows.el
index 81ea1df..b92eb1a 100644
--- a/.config/emacs/modules/bd--windows.el
+++ b/.config/emacs/modules/bd--windows.el
@@ -42,12 +42,17 @@ dedicated buffer will never be automatically orphaned."
   (max lower-bound (min value upper-bound)))
 
 (defun set-frame-alpha (value)
-  "Sets the transparency of the frame background. 0=transparent/100=opaque"
+  "Sets the transparency of the frame background. 0=transparent/100=opaque
+Due to a bug with guix-packaged emacs, only uses true-transparency on wayland."
   (interactive "nTransparency Value (30 - 100 opaque): ")
   (setq value (bd/clamp 30 100 value))
-  (set-frame-parameter (selected-frame) 'alpha `(,value . ,value))
+  (if (equal display "wayland")
+      (set-frame-parameter (selected-frame) 'alpha-background value)
+    (set-frame-parameter (selected-frame) 'alpha `(,value . ,value)))
   (message "Alpha set to %d" value))
-(add-to-list 'default-frame-alist '(alpha . (82 . 82)))
+(if (equal display "wayland")
+    (add-to-list 'default-frame-alist '(alpha-background . 66))
+  (add-to-list 'default-frame-alist '(alpha . (82 . 82))))
 
 
 (require 'project)