From 58dec6ba0c77817a963397887e8b6338cab9d0bf Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 12 Apr 2021 09:45:53 -0500
Subject: Set the bell to flash the mode-line

... and beep at home (I like the little beep!)
---
 init.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index ebbc6dd..1348bdc 100644
--- a/init.el
+++ b/init.el
@@ -200,7 +200,16 @@
            w32-pass-rwindow-to-system nil
            w32-rwindow-modifier 'super
            w32-pass-apps-to-system nil
-           w32-apps-modifier 'hyper)
+           w32-apps-modifier 'hyper
+           visible-bell nil
+           ring-bell-function #'flash-mode-line)
+
+  (defun flash-mode-line ()
+    "Flash the modeline as a bell."
+    (when (eq acdw/system :home)
+      (beep))
+    (invert-face 'mode-line)
+    (run-with-timer 0.1 nil #'invert-face 'mode-line))
 
   (when-unfocused garbage-collect
     (garbage-collect))
-- 
cgit 1.4.1-21-gabe81