mirror of
https://github.com/pestctrl/emacs-config.git
synced 2026-06-14 12:21:20 +00:00
Don't be so transparent outside of exwm
This commit is contained in:
parent
f22b93c72a
commit
6fd6303cd2
1 changed files with 7 additions and 0 deletions
|
|
@ -25,6 +25,13 @@
|
|||
#+begin_src emacs-lisp
|
||||
(add-to-list 'load-path "~/.emacs.d/submodule/exwm-background/")
|
||||
(require 'exwm-background)
|
||||
|
||||
(let ((wm (shell-command-to-string "wmctrl -m")))
|
||||
(when (and (string-match "Name: \\(.*\\)\n" wm)
|
||||
(not (string= "EXWM"
|
||||
(match-string 1 wm))))
|
||||
(setq exwm-background/current-transparency 95)))
|
||||
|
||||
(define-key *window-map* (kbd "t") 'exwm-background/window-transparency-hydra/body)
|
||||
(setq window-system-default-frame-alist `((x . ((alpha . (,exwm-background/current-transparency . 50))))))
|
||||
(exwm-global-set-key (kbd "s-v") #'exwm-background/toggle-viewing-background)
|
||||
|
|
|
|||
Loading…
Reference in a new issue