summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-04-12 09:45:53 -0500
committerCase Duckworth2021-04-12 09:45:53 -0500
commit58dec6ba0c77817a963397887e8b6338cab9d0bf (patch)
tree947bab38abc109801a395614c4feab150bc330ab
parentAdd `company' (diff)
downloademacs-58dec6ba0c77817a963397887e8b6338cab9d0bf.tar.gz
emacs-58dec6ba0c77817a963397887e8b6338cab9d0bf.zip
Set the bell to flash the mode-line
... and beep at home (I like the little beep!)
-rw-r--r--init.el11
1 files changed, 10 insertions, 1 deletions
diff --git a/init.el b/init.el index ebbc6dd..1348bdc 100644 --- a/init.el +++ b/init.el
@@ -200,7 +200,16 @@
200 w32-pass-rwindow-to-system nil 200 w32-pass-rwindow-to-system nil
201 w32-rwindow-modifier 'super 201 w32-rwindow-modifier 'super
202 w32-pass-apps-to-system nil 202 w32-pass-apps-to-system nil
203 w32-apps-modifier 'hyper) 203 w32-apps-modifier 'hyper
204 visible-bell nil
205 ring-bell-function #'flash-mode-line)
206
207 (defun flash-mode-line ()
208 "Flash the modeline as a bell."
209 (when (eq acdw/system :home)
210 (beep))
211 (invert-face 'mode-line)
212 (run-with-timer 0.1 nil #'invert-face 'mode-line))
204 213
205 (when-unfocused garbage-collect 214 (when-unfocused garbage-collect
206 (garbage-collect)) 215 (garbage-collect))