From 12ace3a8ab02aa9c354c733e5dac8c6d037ef7c4 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Sun, 3 Jan 2021 21:42:48 +0100
Subject: Flash bell more subtly.

---
 guile-studio-configure.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm
index 9dafa4c..a7bd8b3 100644
--- a/guile-studio-configure.scm
+++ b/guile-studio-configure.scm
@@ -79,10 +79,18 @@
           apropos-do-all t
           mouse-yank-at-point t
           require-final-newline t
-          visible-bell t
+          visible-bell nil
           load-prefer-newer t
           save-place-file (concat user-emacs-directory "places"))
 
+    (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))))
+
     ;; Hide the fact that this is Emacs
     (modify-frame-parameters nil '((title . "Guile Studio")))
 
-- 
cgit v1.2.3