Add mode-line-bell

1 files changed, 9 insertions, 4 deletions

@@ -1094,7 +1094,7 @@ specific to most general, they are these:
   )
 
 (setup window
-  (require 'acdw-bell)
+  ;; (require 'acdw-bell)
   (:option
    ;; Man-notify-method 'pushy
    ;; display-buffer-alist         ; from FrostyX
@@ -1103,9 +1103,10 @@ specific to most general, they are these:
    ;;          display-buffer-same-window)
    ;;    (reusable-frames . t)))
    recenter-positions '(top middle bottom)
-   ring-bell-function (lambda ()
-                        (acdw-bell/flash-mode-line
-                         (acdw/system :home)))
+   ;; ring-bell-function
+   ;; (lambda ()
+   ;;   (acdw-bell/flash-mode-line
+   ;;    (acdw/system :home)))
    use-dialog-box nil
    use-file-dialog nil
    visible-bell nil)
@@ -1984,6 +1985,10 @@ browser defined in `browse-url-secondary-browser-function'."
   (:advise mastodon-tl--goto-next-toot :after #'mastodon-goto-toot@recenter
            mastodon-tl--goto-prev-toot :after #'mastodon-goto-toot@recenter))
 
+(setup (:straight mode-line-bell)
+  (:option mode-line-bell-flash-time 0.1)
+  (mode-line-bell-mode +1))
+
 (setup (:straight (modus-themes
                    :host gitlab
                    :repo "protesilaos/modus-themes"))