Fix mode-line flashing

Thanks, doom-themes!

1 files changed, 4 insertions, 9 deletions

@@ -50,14 +50,6 @@
 ;; see also: `acdw' and friends.  Functions here aren't big enough, or they're
 ;; too tightly bound to stuff here, to be placed in `acdw'.
 
-;; Flash the mode line
-(defun flash-mode-line ()
-  "Flash the modeline as a bell."
-  (when (acdw/system :home)
-    (beep))
-  (invert-face 'mode-line)
-  (run-with-timer 0.1 nil #'invert-face 'mode-line))
-
 (defvar lispy-modes '(emacs-lisp-mode
                       eval-expression-minibuffer
                       ielm-mode
@@ -690,11 +682,14 @@
   (:global "M-SPC" cycle-spacing))
 
 (setup windows
+  (require 'acdw-bell)
   (:option use-dialog-box nil
            use-file-dialog nil
            tab-bar-show 1
            visible-bell nil
-           ring-bell-function #'flash-mode-line
+           ring-bell-function (lambda ()
+                                (acdw-bell/flash-mode-line
+                                 (acdw/system :home)))
            recenter-positions '(top middle bottom))
   
   (tooltip-mode -1)