jimeh/.emacs.d
1
0
Fork 0
mirror of https://github.com/jimeh/.emacs.d.git synced 2026-02-19 13:46:41 +00:00
Code Issues Packages Projects Releases Wiki Activity

Update siren-transparency methods to print current value

Browse Source
This commit is contained in:
Jim Myhrberg
2017-12-23 17:51:07 +00:00
parent e49dd02ba7
commit 44ab3c0da1
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
core/siren-transparency.el
View File

@@ -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)