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(+)

(limited to 'config.org')

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