branch: elpa/auto-dim-other-buffers commit 890051374f13e42a8d00c2614c0c0ac3c53b5e25 Author: Steven Degutis <sbdegu...@gmail.com> Commit: Steven Degutis <sbdegu...@gmail.com>
first --- README.md | 16 ++++++++++++++++ auto-dim-other-buffers.el | 35 +++++++++++++++++++++++++++++++++++ 2 files changed, 51 insertions(+) diff --git a/README.md b/README.md new file mode 100644 index 0000000000..66a62d0bc6 --- /dev/null +++ b/README.md @@ -0,0 +1,16 @@ +# auto-dim-other-buffers.el + +Visually makes non-current buffers less prominent. + +## Installation + +Use [MELPA](http://melpa.milkbox.net/): `M-x package-install RET auto-dim-other-buffers RET` + +## Usage + +* `turn-on-auto-dim-other-buffers` +* `turn-off-auto-dim-other-buffers` + +## TODO: + +* Make the face more easily customizable diff --git a/auto-dim-other-buffers.el b/auto-dim-other-buffers.el new file mode 100644 index 0000000000..837a605185 --- /dev/null +++ b/auto-dim-other-buffers.el @@ -0,0 +1,35 @@ +;;; auto-dim-other-buffers.el --- Visually makes non-current buffers less prominent + +;; Author: Steven Degutis +;; URL: https://github.com/sdegutis/auto-dim-other-buffers.el +;; Version: 1.0 + +(make-face 'sd/dimmed-font) +(set-face-attribute 'sd/dimmed-font nil :background "black") + +(defun turn-off-auto-dim-other-buffers () + (interactive) + (remove-hook 'post-command-hook 'sd/auto-dim-other-buffers) + (let ((original (current-buffer))) + (dolist (buffer (buffer-list)) + (set-buffer buffer) + (buffer-face-set nil)) + (set-buffer original) + (buffer-face-set nil))) + +(defun turn-on-auto-dim-other-buffers () + (interactive) + (add-hook 'post-command-hook 'sd/auto-dim-other-buffers)) + +(defun sd/auto-dim-other-buffers () + (let ((original (current-buffer))) + (dolist (buffer (buffer-list)) + (unless (minibufferp buffer) + (set-buffer buffer) + (buffer-face-set 'sd/dimmed-font))) + (set-buffer original) + (buffer-face-set nil))) + +(provide 'auto-dim-other-buffers) + +;;; auto-dim-other-buffers.el ends here