From 44ab3c0da1165051c80bbb51ab2cd7919b522bd0 Mon Sep 17 00:00:00 2001 From: Jim Myhrberg Date: Sat, 23 Dec 2017 17:51:07 +0000 Subject: [PATCH] Update siren-transparency methods to print current value --- core/siren-transparency.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/core/siren-transparency.el b/core/siren-transparency.el index 2f6510a..cb573e0 100644 --- a/core/siren-transparency.el +++ b/core/siren-transparency.el @@ -17,7 +17,9 @@ (interactive) (siren-transparency-fix) (if (> (frame-parameter nil 'alpha) 0) - (set-frame-parameter nil 'alpha (+ (frame-parameter nil 'alpha) -1)) + (let ((new-level (+ (frame-parameter nil 'alpha) -1))) + (set-frame-parameter nil 'alpha new-level) + (message "Frame transparency set to %s" new-level)) (message "This is a minimum value of transparency!"))) (defun siren-transparency-decrease () @@ -25,7 +27,9 @@ (interactive) (siren-transparency-fix) (if (< (frame-parameter nil 'alpha) 100) - (set-frame-parameter nil 'alpha (+ (frame-parameter nil 'alpha) +1)) + (let ((new-level (+ (frame-parameter nil 'alpha) +1))) + (set-frame-parameter nil 'alpha (+ (frame-parameter nil 'alpha) +1)) + (message "Frame transparency set to %s" new-level)) (message "This is a minimum value of transparency!"))) (defun siren-transparency (numb)