From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Steven Degutis Newsgroups: gmane.emacs.help Subject: `auto-dim-other-windows` -- scrutiny invited Date: Tue, 2 Apr 2013 16:06:17 -0500 Message-ID: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=e89a8ff1c3f6c1f74204d9671bd5 X-Trace: ger.gmane.org 1364936795 7658 80.91.229.3 (2 Apr 2013 21:06:35 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 2 Apr 2013 21:06:35 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue Apr 02 23:07:03 2013 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1UN8Q2-0005Md-Aw for geh-help-gnu-emacs@m.gmane.org; Tue, 02 Apr 2013 23:07:02 +0200 Original-Received: from localhost ([::1]:54823 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UN8Pd-0004Zx-G5 for geh-help-gnu-emacs@m.gmane.org; Tue, 02 Apr 2013 17:06:37 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:54798) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UN8PQ-0004Zh-TM for help-gnu-emacs@gnu.org; Tue, 02 Apr 2013 17:06:27 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UN8PK-0002fj-9V for help-gnu-emacs@gnu.org; Tue, 02 Apr 2013 17:06:24 -0400 Original-Received: from mail-da0-x230.google.com ([2607:f8b0:400e:c00::230]:60383) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UN8PK-0002fc-28 for help-gnu-emacs@gnu.org; Tue, 02 Apr 2013 17:06:18 -0400 Original-Received: by mail-da0-f48.google.com with SMTP id p8so349836dan.35 for ; Tue, 02 Apr 2013 14:06:17 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:x-received:date:message-id:subject:from:to :content-type; bh=JkqQ9FP02SjgUts4rfLBZ265IA3QQZVHMv4pbICR/kc=; b=ca1AD7l0go1XO5d1JCXpQQ8GxDpDRSzIqvyOAknxIm1at7UMMk86Ka1jWq9u6BCJAS inB5eTADlwy3N5eu3pWBmf6DHbXPsfG5hOXMF7S7TcbC/jJYruWfz4TBPs7HVE0a08pH OhXTqFtm/R7E3RBrswgTarwhFjtGQl8mrKDJYL8PEMqtTkp3Fxm9GSngE79trLnnuizz gNZb9Eqbz/Gb5FYzZNXBf2fzVeubWZdt+51EBwFrT+B4AbtoWlpcTJ6aMolH+66Lo2XR XppDi32352jk/jVc9PxBunfJp9GNu4eWNlsN2DdEu82HSLq6t/Q2X7cBGKjgPE6HjslN v51Q== X-Received: by 10.68.212.170 with SMTP id nl10mr26443501pbc.39.1364936777396; Tue, 02 Apr 2013 14:06:17 -0700 (PDT) Original-Received: by 10.70.30.35 with HTTP; Tue, 2 Apr 2013 14:06:17 -0700 (PDT) X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Received-From: 2607:f8b0:400e:c00::230 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:89907 Archived-At: --e89a8ff1c3f6c1f74204d9671bd5 Content-Type: text/plain; charset=ISO-8859-1 (defun auto-dim-other-windows () (make-face 'sd/dimmed-font) (set-face-attribute 'sd/dimmed-font nil :background "black") (defun sd/prominantize-current-buffer (fn) (buffer-face-set 'sd/dimmed-font) (funcall fn) (buffer-face-set nil)) (defmacro sd/advise-window-changing-fn (fn) `(defadvice ,fn (around window-changing-fn-advice activate) (sd/prominantize-current-buffer (lambda () ad-do-it)))) (sd/advise-window-changing-fn other-window) (sd/advise-window-changing-fn other-frame) (sd/advise-window-changing-fn next-buffer) (sd/advise-window-changing-fn previous-buffer) (sd/advise-window-changing-fn quit-window) (sd/advise-window-changing-fn mouse-select-window)) -Steven --e89a8ff1c3f6c1f74204d9671bd5 Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable
=A0 =A0 (defun auto-dim-other-windows ()
=A0 =A0 =A0 (make-face 'sd/dimmed-font)
=A0 =A0 = =A0 (set-face-attribute 'sd/dimmed-font nil :background "black&quo= t;)
=A0 =A0=A0
=A0 =A0 =A0 (defun sd/prominantize-current-buffer (fn)
=A0 = =A0 =A0 =A0 (buffer-face-set 'sd/dimmed-font)
=A0 =A0 =A0 =A0= (funcall fn)
=A0 =A0 =A0 =A0 (buffer-face-set nil))
= =A0 =A0=A0
=A0 =A0 =A0 (defmacro sd/advise-window-changing-fn (fn= )
=A0 =A0 =A0 =A0 `(defadvice ,fn (around window-changing-fn-advice acti= vate)
=A0 =A0 =A0 =A0 =A0 =A0(sd/prominantize-current-buffer (lam= bda () ad-do-it))))
=A0 =A0=A0
=A0 =A0 =A0 (sd/advise-w= indow-changing-fn other-window)
=A0 =A0 =A0 (sd/advise-window-changing-fn other-frame)
=A0 =A0 =A0 (sd/advise-window-changing-fn next-buffer)
=A0 =A0 = =A0 (sd/advise-window-changing-fn previous-buffer)
=A0 =A0 =A0 (s= d/advise-window-changing-fn quit-window)
=A0 =A0 =A0 (sd/advise-window-changing-fn mouse-select-window))
<= div>
-Steven
--e89a8ff1c3f6c1f74204d9671bd5--