summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--config.org12
1 files changed, 12 insertions, 0 deletions
diff --git a/config.org b/config.org index e429723..61e5342 100644 --- a/config.org +++ b/config.org
@@ -182,6 +182,18 @@ when it errors.
182 182
183#+begin_src emacs-lisp 183#+begin_src emacs-lisp
184 (cuss visible-bell (not (string= (system-name) "larry"))) 184 (cuss visible-bell (not (string= (system-name) "larry")))
185
186 (defun acdw/ring-bell-function ()
187 "Custom bell-ringing function."
188 (let ((orig-face (face-foreground 'mode-line)))
189 (set-face-foreground 'modeline "#F2804F")
190 (run-with-idle-timer
191 0.1 nil
192 (lambda (fg)
193 (set-face-foreground 'mode-line fg))
194 orig-face)))
195
196 (cuss ring-bell-function #'acdw/ring-bell-function)
185#+end_src 197#+end_src
186 198
187*** Tell Ediff to setup windows better 199*** Tell Ediff to setup windows better