diff options
| author | Case Duckworth | 2021-01-02 22:49:41 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-01-02 22:49:41 -0600 |
| commit | cbe8e6a474434601a6e000b64fe692f40d808aec (patch) | |
| tree | aaa12ed84158cce26f6b2d366914f8dfd75817ef | |
| parent | Add disclaimer (diff) | |
| download | emacs-cbe8e6a474434601a6e000b64fe692f40d808aec.tar.gz emacs-cbe8e6a474434601a6e000b64fe692f40d808aec.zip | |
Change ring-bell-function
| -rw-r--r-- | config.org | 19 |
1 files 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. | |||
| 199 | 199 | ||
| 200 | **** The Bell | 200 | **** The Bell |
| 201 | 201 | ||
| 202 | from [[https://www.emacswiki.org/emacs/AlarmBell#h5o-3][EmacsWiki]]. | ||
| 203 | |||
| 202 | #+BEGIN_SRC emacs-lisp | 204 | #+BEGIN_SRC emacs-lisp |
| 203 | (defun acdw/ring-bell-function () | 205 | (setq visible-bell nil |
| 204 | "Ring the bell." | 206 | ring-bell-function 'flash-mode-line) |
| 205 | (let ((orig-face (face-foreground 'mode-line))) | 207 | |
| 206 | (set-face-foreground 'mode-line "#F2804F") | 208 | (defun flash-mode-line () |
| 207 | (run-with-idle-timer | 209 | (invert-face 'mode-line) |
| 208 | 0.1 nil | 210 | (run-with-timer 0.1 nil #'invert-face 'mode-line)) |
| 209 | (lambda (fg) | ||
| 210 | (set-face-foreground 'mode-line fg)) | ||
| 211 | orig-face))) | ||
| 212 | |||
| 213 | (cuss ring-bell-function #'acdw/ring-bell-function) | ||
| 214 | #+END_SRC | 211 | #+END_SRC |
| 215 | 212 | ||
| 216 | *** Frames | 213 | *** Frames |