emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/auto-dim-other-buffers d8987326e6 20/82: dim new windows t


From: ELPA Syncer
Subject: [nongnu] elpa/auto-dim-other-buffers d8987326e6 20/82: dim new windows that pop up
Date: Mon, 12 Dec 2022 20:58:39 -0500 (EST)

branch: elpa/auto-dim-other-buffers
commit d8987326e685272a74f118d1bc4f5e5f861ea81c
Author: Steven Degutis <sbdegutis@gmail.com>
Commit: Steven Degutis <sbdegutis@gmail.com>

    dim new windows that pop up
---
 auto-dim-other-buffers.el | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/auto-dim-other-buffers.el b/auto-dim-other-buffers.el
index 35734041d9..0a60110071 100644
--- a/auto-dim-other-buffers.el
+++ b/auto-dim-other-buffers.el
@@ -2,7 +2,7 @@
 
 ;; Author: Steven Degutis
 ;; URL: https://github.com/sdegutis/auto-dim-other-buffers.el
-;; Version: 1.2
+;; Version: 1.3
 
 (defface auto-dim-other-buffers-face '((t :background "black"))
   "Face (presumably dimmed somehow) for non-current buffers."
@@ -32,6 +32,12 @@
       (set-buffer original)
       (buffer-face-set nil))))
 
+;; if a new window pops up, like a help window or something, we
+;; should dim or undim it, depending on if its selected.
+(defun adob/after-change-major-mode-hook ()
+  (buffer-face-set (unless (eq (current-buffer) (window-buffer))
+                     'auto-dim-other-buffers-face)))
+
 (defun adob/set-face-on-all-buffers (face)
   (let ((original (current-buffer)))
     (dolist (buffer (buffer-list))
@@ -48,13 +54,15 @@
 (defun turn-off-auto-dim-other-buffers ()
   (remove-hook 'pre-command-hook 'adob/pre-command-hook)
   (remove-hook 'post-command-hook 'adob/post-command-hook)
+  (remove-hook 'after-change-major-mode-hook 
'adob/after-change-major-mode-hook)
   (adob/undim-all-windows))
 
 (defun turn-on-auto-dim-other-buffers ()
   (setq adob/last-buffer nil)
   (adob/dim-all-windows)
   (add-hook 'pre-command-hook 'adob/pre-command-hook)
-  (add-hook 'post-command-hook 'adob/post-command-hook))
+  (add-hook 'post-command-hook 'adob/post-command-hook)
+  (add-hook 'after-change-major-mode-hook 'adob/after-change-major-mode-hook))
 
 (define-minor-mode auto-dim-other-buffers-mode
   "Visually makes non-current buffers less prominent"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]