about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-01-02 22:49:41 -0600
committerCase Duckworth2021-01-02 22:49:41 -0600
commitcbe8e6a474434601a6e000b64fe692f40d808aec (patch)
treeaaa12ed84158cce26f6b2d366914f8dfd75817ef
parentAdd disclaimer (diff)
downloademacs-cbe8e6a474434601a6e000b64fe692f40d808aec.tar.gz
emacs-cbe8e6a474434601a6e000b64fe692f40d808aec.zip
Change ring-bell-function
-rw-r--r--config.org19
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
202from [[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