From cbe8e6a474434601a6e000b64fe692f40d808aec Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 2 Jan 2021 22:49:41 -0600
Subject: Change ring-bell-function

---
 config.org | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

(limited to 'config.org')

diff --git a/config.org b/config.org
index d078111..ec81761 100644
--- a/config.org
+++ b/config.org
@@ -199,18 +199,15 @@ This comes in handy when I want to garbage collect, say, or save recent files.
 
 **** The Bell
 
+from [[https://www.emacswiki.org/emacs/AlarmBell#h5o-3][EmacsWiki]].
+
 #+BEGIN_SRC emacs-lisp
-(defun acdw/ring-bell-function ()
-  "Ring the bell."
-  (let ((orig-face (face-foreground 'mode-line)))
-    (set-face-foreground 'mode-line "#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)
+  (setq visible-bell nil
+	ring-bell-function 'flash-mode-line)
+
+  (defun flash-mode-line ()
+    (invert-face 'mode-line)
+    (run-with-timer 0.1 nil #'invert-face 'mode-line))
 #+END_SRC
 
 *** Frames
-- 
cgit 1.4.1-21-gabe81