Set the bell to flash the mode-line

... and beep at home (I like the little beep!)

1 files changed, 10 insertions, 1 deletions

@@ -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))