From 1176aaae0b8b5bd1ccabb7871ad156ede320553a Mon Sep 17 00:00:00 2001
From: Sean Farley <sean@farley.io>
Date: Mon, 18 Dec 2023 19:41:52 -0800
Subject: [PATCH] feat(mu4e): use built-in notifications instead of mu4e-alert

Now that mu4e has its own notification feature since 1.10 (and as of
this commit version 1.12 is already out), we can just use that. Much
less code to maintain.

Closes: https://github.com/doomemacs/doomemacs/issues/6896
---
 modules/email/mu4e/config.el   | 75 +---------------------------------
 modules/email/mu4e/packages.el |  2 -
 2 files changed, 1 insertion(+), 76 deletions(-)

diff --git a/modules/email/mu4e/config.el b/modules/email/mu4e/config.el
index f4f6d9c5b..072309620 100644
--- a/modules/email/mu4e/config.el
+++ b/modules/email/mu4e/config.el
@@ -75,6 +75,7 @@ is non-nil."
      (setq mu4e-get-mail-command "offlineimap -o -q")))
 
   (setq mu4e-update-interval nil
+        mu4e-notification-support t
         mu4e-sent-messages-behavior 'sent
         mu4e-hide-index-messages t
         ;; configuration for sending mail
@@ -671,77 +672,3 @@ See `+mu4e-msg-gmail-p' and `mu4e-sent-messages-behavior'.")
             (`refile (mu4e-action-retag-message msg "-\\Inbox"))
             (`flag   (mu4e-action-retag-message msg "+\\Starred"))
             (`unflag (mu4e-action-retag-message msg "-\\Starred"))))))))
-
-;;
-;;; Alerts
-
-(use-package! mu4e-alert
-  :after mu4e
-  :config
-  (setq doom-modeline-mu4e t)
-
-  (mu4e-alert-enable-mode-line-display)
-  (mu4e-alert-enable-notifications)
-
-  (when (version<= "1.6" mu4e-mu-version)
-    (defadvice! +mu4e-alert-filter-repeated-mails-fixed-a (mails)
-      "Filters the MAILS that have been seen already\nUses :message-id not :docid."
-      :override #'mu4e-alert-filter-repeated-mails
-      (cl-remove-if (lambda (mail)
-                      (prog1 (and (not mu4e-alert-notify-repeated-mails)
-                                  (ht-get mu4e-alert-repeated-mails
-                                          (plist-get mail :message-id)))
-                        (ht-set! mu4e-alert-repeated-mails
-                                 (plist-get mail :message-id)
-                                 t)))
-                    mails)))
-
-  (when (featurep :system 'linux)
-    (mu4e-alert-set-default-style 'libnotify)
-
-    (defvar +mu4e-alert-bell-cmd '("paplay" . "/usr/share/sounds/freedesktop/stereo/message.oga")
-      "Cons list with command to play a sound, and the sound file to play.
-Disabled when set to nil.")
-
-    (setq mu4e-alert-email-notification-types '(subjects))
-    (defun +mu4e-alert-grouped-mail-notification-formatter-with-bell (mail-group _all-mails)
-      "Default function to format MAIL-GROUP for notification.
-ALL-MAILS are the all the unread emails"
-      (when +mu4e-alert-bell-cmd
-        (start-process "mu4e-alert-bell" nil (car +mu4e-alert-bell-cmd) (cdr +mu4e-alert-bell-cmd)))
-      (if (> (length mail-group) 1)
-          (let* ((mail-count (length mail-group))
-                 (first-mail (car mail-group))
-                 (title-prefix (format "You have %d unread emails"
-                                       mail-count))
-                 (field-value (mu4e-alert--get-group first-mail))
-                 (title-suffix (format (pcase mu4e-alert-group-by
-                                         (`:from "from %s:")
-                                         (`:to "to %s:")
-                                         (`:maildir "in %s:")
-                                         (`:priority "with %s priority:")
-                                         (`:flags "with %s flags:"))
-                                       field-value))
-                 (title (format "%s %s" title-prefix title-suffix)))
-            (list :title title
-                  :body (s-join "\n"
-                                (mapcar (lambda (mail)
-                                          (format "%s<b>%s</b> • %s"
-                                                  (cond
-                                                   ((plist-get mail :in-reply-to) "⮩ ")
-                                                   ((string-match-p "\\`Fwd:"
-                                                                    (plist-get mail :subject)) " ⮯ ")
-                                                   (t "  "))
-                                                  (truncate-string-to-width (or (caar (plist-get mail :from))
-                                                                                (cdar (plist-get mail :from)))
-                                                                            20 nil nil t)
-                                                  (truncate-string-to-width
-                                                   (replace-regexp-in-string "\\`Re: \\|\\`Fwd: " ""
-                                                                             (plist-get mail :subject))
-                                                   40 nil nil t)))
-                                        mail-group))))
-        (let* ((new-mail (car mail-group))
-               (subject (plist-get new-mail :subject))
-               (sender (caar (plist-get new-mail :from))))
-          (list :title sender :body subject))))
-    (setq mu4e-alert-grouped-mail-notification-formatter #'+mu4e-alert-grouped-mail-notification-formatter-with-bell)))
diff --git a/modules/email/mu4e/packages.el b/modules/email/mu4e/packages.el
index 6e0aa3fda..1d2642782 100644
--- a/modules/email/mu4e/packages.el
+++ b/modules/email/mu4e/packages.el
@@ -3,5 +3,3 @@
 
 (when (modulep! +org)
   (package! org-msg :pin "0b65f0f77a7a71881ddfce19a8cdc60465bda057"))
-
-(package! mu4e-alert :pin "6beda20fc69771f2778f507c4a9e069dbaf1b628")