Add transparency
This commit is contained in:
parent
c22f29ee02
commit
6ecbdb89dc
1 changed files with 20 additions and 0 deletions
20
config.org
20
config.org
|
|
@ -1349,6 +1349,26 @@ Arandr config is still too static, should find a way to simplify this.
|
||||||
)
|
)
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
|
* Transparency
|
||||||
|
|
||||||
|
Taken from EmacsWiki:
|
||||||
|
https://www.emacswiki.org/emacs/TransparentEmacs
|
||||||
|
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(defun toggle-transparency ()
|
||||||
|
(interactive)
|
||||||
|
(let ((alpha (frame-parameter nil 'alpha)))
|
||||||
|
(set-frame-parameter
|
||||||
|
nil 'alpha
|
||||||
|
(if (eql (cond ((numberp alpha) alpha)
|
||||||
|
((numberp (cdr alpha)) (cdr alpha))
|
||||||
|
;; Also handle undocumented (<active> <inactive>) form.
|
||||||
|
((numberp (cadr alpha)) (cadr alpha)))
|
||||||
|
100)
|
||||||
|
'(85 . 50) '(100 . 100)))))
|
||||||
|
(global-set-key (kbd "C-x t") 'toggle-transparency)
|
||||||
|
#+END_SRC
|
||||||
|
|
||||||
* TODO
|
* TODO
|
||||||
|
|
||||||
stuff i need to look into:
|
stuff i need to look into:
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue