[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
transparency.
#+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 ()
"Increase current frames alpha background."
(interactive)
(set-frame-parameter nil
'alpha-background
(min 1.0
(+ (frame-parameter nil 'alpha-background) 0.1)))
(my/transparency-round
(min 1.0
(+ (frame-parameter nil 'alpha-background) 0.1))))
(message "%s" (frame-parameter nil 'alpha-background)))
(defun my/decrease-frame-alpha-background ()
@ -1102,8 +1107,9 @@ transparency.
(interactive)
(set-frame-parameter nil
'alpha-background
(max 0.0
(- (frame-parameter nil 'alpha-background) 0.1)))
(my/transparency-round
(max 0.0
(- (frame-parameter nil 'alpha-background) 0.1))))
(message "%s" (frame-parameter nil 'alpha-background)))
(defhydra my/modify-frame-alpha-background ()