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 /config.org | |
| parent | Add bookmark: SMOG (diff) | |
| download | emacs-9c864ebaac03b761357dc24578c3786f39976a4f.tar.gz emacs-9c864ebaac03b761357dc24578c3786f39976a4f.zip | |
Customize bell-ringing function
Diffstat (limited to 'config.org')
| -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 |