diff options
author | Case Duckworth | 2020-12-21 22:50:41 -0600 |
---|---|---|
committer | Case Duckworth | 2020-12-21 22:50:41 -0600 |
commit | 9c864ebaac03b761357dc24578c3786f39976a4f (patch) | |
tree | 877f9620d8360384601d166b8e44b45cf60b0b6c | |
parent | Add bookmark: SMOG (diff) | |
download | emacs-9c864ebaac03b761357dc24578c3786f39976a4f.tar.gz emacs-9c864ebaac03b761357dc24578c3786f39976a4f.zip |
Customize bell-ringing function
-rw-r--r-- | config.org | 12 |
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 |