diff options
Diffstat (limited to 'guile-studio-configure.scm')
-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"))) |