[Emacs] Round transparency parameter to a nicer value

This commit is contained in:
Lucien Cartier-Tilet 2022-07-05 15:29:45 +02:00
parent c3a8a7cf4a
commit 431750aa12
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA

View File

@ -1088,13 +1088,18 @@ windows.
This one allows me to manipulate my Emacs frames background This one allows me to manipulate my Emacs frames background
transparency. transparency.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun my/transparency-round (val)
"Round VAL to the nearest tenth of an integer."
(/ (round (* 10 val)) 10.0))
(defun my/increase-frame-alpha-background () (defun my/increase-frame-alpha-background ()
"Increase current frames alpha background." "Increase current frames alpha background."
(interactive) (interactive)
(set-frame-parameter nil (set-frame-parameter nil
'alpha-background 'alpha-background
(min 1.0 (my/transparency-round
(+ (frame-parameter nil 'alpha-background) 0.1))) (min 1.0
(+ (frame-parameter nil 'alpha-background) 0.1))))
(message "%s" (frame-parameter nil 'alpha-background))) (message "%s" (frame-parameter nil 'alpha-background)))
(defun my/decrease-frame-alpha-background () (defun my/decrease-frame-alpha-background ()
@ -1102,8 +1107,9 @@ transparency.
(interactive) (interactive)
(set-frame-parameter nil (set-frame-parameter nil
'alpha-background 'alpha-background
(max 0.0 (my/transparency-round
(- (frame-parameter nil 'alpha-background) 0.1))) (max 0.0
(- (frame-parameter nil 'alpha-background) 0.1))))
(message "%s" (frame-parameter nil 'alpha-background))) (message "%s" (frame-parameter nil 'alpha-background)))
(defhydra my/modify-frame-alpha-background () (defhydra my/modify-frame-alpha-background ()