From 132d910347a4ad1003b68fb96f91875885a3c052 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 21 Oct 2021 18:59:54 -0500
Subject: Add mode-line-bell

---
 init.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index e90da32..cb665ec 100644
--- a/init.el
+++ b/init.el
@@ -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"))
-- 
cgit 1.4.1-21-gabe81