From cbe8e6a474434601a6e000b64fe692f40d808aec Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sat, 2 Jan 2021 22:49:41 -0600 Subject: Change ring-bell-function --- config.org | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) diff --git a/config.org b/config.org index d078111..ec81761 100644 --- a/config.org +++ b/config.org @@ -199,18 +199,15 @@ This comes in handy when I want to garbage collect, say, or save recent files. **** The Bell +from [[https://www.emacswiki.org/emacs/AlarmBell#h5o-3][EmacsWiki]]. + #+BEGIN_SRC emacs-lisp -(defun acdw/ring-bell-function () - "Ring the bell." - (let ((orig-face (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-face))) - -(cuss ring-bell-function #'acdw/ring-bell-function) + (setq visible-bell nil + ring-bell-function 'flash-mode-line) + + (defun flash-mode-line () + (invert-face 'mode-line) + (run-with-timer 0.1 nil #'invert-face 'mode-line)) #+END_SRC *** Frames -- cgit 1.4.1-21-gabe81