From 2e93133943d295f8dfad863c5bdedc8d7eb5f9d8 Mon Sep 17 00:00:00 2001
From: mms <michal@sapka.me>
Date: Tue, 9 Jul 2024 23:24:54 +0200
Subject: fix: proper audio fix

flash modeline color
---
 mms-configuration.org | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/mms-configuration.org b/mms-configuration.org
index 57b93ba..4ff72fb 100644
--- a/mms-configuration.org
+++ b/mms-configuration.org
@@ -73,7 +73,13 @@ Let's use spaces everywhere
 Stop Emacs from using =audible bell=
 
 #+begin_src emacs-lisp
-(setq visible-bell t)
+  (setq ring-bell-function
+      (lambda ()
+        (let ((orig-fg (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-fg))))
 #+end_src
 
 * Package management
-- 
cgit v1.2.3