From 9c864ebaac03b761357dc24578c3786f39976a4f Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 21 Dec 2020 22:50:41 -0600 Subject: Customize bell-ringing function --- config.org | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/config.org b/config.org index e429723..61e5342 100644 --- a/config.org +++ b/config.org @@ -182,6 +182,18 @@ when it errors. #+begin_src emacs-lisp (cuss visible-bell (not (string= (system-name) "larry"))) + + (defun acdw/ring-bell-function () + "Custom bell-ringing function." + (let ((orig-face (face-foreground 'mode-line))) + (set-face-foreground 'modeline "#F2804F") + (run-with-idle-timer + 0.1 nil + (lambda (fg) + (set-face-foreground 'mode-line fg)) + orig-face))) + + (cuss ring-bell-function #'acdw/ring-bell-function) #+end_src *** Tell Ediff to setup windows better -- cgit 1.4.1-21-gabe81