diff options
| author | bd <bdunahu@operationnull.com> | 2024-06-03 23:27:47 -0600 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-06-04 02:26:57 -0600 |
| commit | a8bcda5d7dc0b05c2b8ea7375ae79c2a0c4c7a2e (patch) | |
| tree | 0d98e683efa6b1ee724f22eb3acc7f0901b242a7 /.config/emacs | |
| parent | 7c2478b08e616b2f4155355cc128bd2fb1d879d1 (diff) | |
xorg->wayland, dwm->dwl, vali only to usable
Diffstat (limited to '.config/emacs')
| -rw-r--r-- | .config/emacs/init.el | 3 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--essentials.el | 10 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--windows.el | 11 |
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) |