diff options
| author | David Morgan <djm_uk@protonmail.com> | 2023-11-11 13:34:55 +0000 |
|---|---|---|
| committer | David Morgan <djm_uk@protonmail.com> | 2023-11-11 13:34:55 +0000 |
| commit | 33aae456ef3dc0d80d9d4391dd0bce5f63a7d328 (patch) | |
| tree | 466217b25eb82e63e9f7db1a5304d4df4a7dee91 | |
| parent | 3f288c5c2bbcba1ebdb478bd67c1366045679037 (diff) | |
| download | dotfiles-33aae456ef3dc0d80d9d4391dd0bce5f63a7d328.tar.gz | |
Flash modeline with ring-bell-function
| -rw-r--r-- | .emacs.d/lisp/init-ui.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/.emacs.d/lisp/init-ui.el b/.emacs.d/lisp/init-ui.el index 297540a..0677c30 100644 --- a/.emacs.d/lisp/init-ui.el +++ b/.emacs.d/lisp/init-ui.el @@ -58,7 +58,11 @@ (setq show-trailing-whitespace t) (setq-default indicate-empty-lines t) - (setq ring-bell-function 'ignore + + ;; http://whattheemacsd.com/appearance.el-02.html (if this gets to annoying, just set back to 'ignore) + (setq ring-bell-function (lambda () + (invert-face 'mode-line) + (run-with-timer 0.05 nil 'invert-face 'mode-line)) visible-bell t) ;; TODO do we want these? (copied from prelude) |