diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-01-03 21:42:48 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-01-03 21:42:59 +0100 |
| commit | 12ace3a8ab02aa9c354c733e5dac8c6d037ef7c4 (patch) | |
| tree | c6165958eff666b8841bcb64db2dfe0a9990596d | |
| parent | 3cbbdf4bded983dfa19dc4e86bbc34f3446acfc2 (diff) | |
Flash bell more subtly.
| -rw-r--r-- | guile-studio-configure.scm | 10 |
1 files changed, 9 insertions, 1 deletions
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"))) |