2026-08-16T17:26:11+02:00

1 files changed, 114 insertions, 72 deletions

diff --git a/config.org b/config.org
index cda11b4..8434b00 100644
--- a/config.org
+++ b/config.org
@@ -3521,17 +3521,6 @@ moved to local.el
 ;;   (load-theme 'tokyo-night t))
 #+end_src
 
-** dracula
-
-#+begin_src emacs-lisp
-(use-package dracula-theme
-  :ensure t
-  :config
-  (load-theme 'dracula t)
-  (setq dracula-alternate-mode-line-and-minibuffer t))
-#+end_src
-
-
 * dirvish
 
 #+begin_src emacs-lisp
@@ -3690,6 +3679,12 @@ still require a restart since elpaca queues run at init time."
         projectile-require-project-root nil
         projectile-globally-ignored-buffers '("\\*magit.*"))
   (add-hook 'after-save-hook #'projectile-cache-current-file))
+
+(defun my/projectile-dashboard-fullscreen ()
+  "Show the Projectile dashboard in the full frame."
+  (interactive)
+  (delete-other-windows)
+  (projectile-dashboard))
 #+end_src
 
 ** helm-projectile
@@ -3761,7 +3756,8 @@ place. `C-c C-c' commits, `C-c C-k' aborts."
   (defvar my/workspaces-master "master")
   (defvar my/workspace-last nil)
   (defvar my/workspaces-on-switch-project 'non-empty)
-  (defvar my/workspace-switch-project-function #'projectile-dashboard)
+  (defvar my/workspace-switch-project-function
+    #'my/projectile-dashboard-fullscreen)
 
   (setq persp-autokill-buffer-on-remove 'kill-weak
         persp-reset-windows-on-nil-window-conf nil
@@ -3845,7 +3841,7 @@ place. `C-c C-c' commits, `C-c C-k' aborts."
       (when (my/workspace-exists-p name)
         (user-error "Workspace '%s' already exists" name))
       (my/workspace-switch name t)
-      (switch-to-buffer (my/workspace-fallback-buffer))
+      (minimal-dashboard)
       (my/workspace-display)))
 
   (defun my/workspace-rename (new-name)
@@ -4292,9 +4288,9 @@ workspace (e.g. *scratch*)."
         (call-interactively 'flash-evil-jump)))))
 
 (general-def '(normal visual operator) 'override
-  :predicate '(not (derived-mode-p 'notmuch-hello-mode 'notmuch-search-mode
-                                   'notmuch-show-mode 'message-mode
-                                   'croc-ui-mode 'sync-ui-mode))
+  :predicate '(not (derived-mode-p 'mu4e-main-mode 'mu4e-headers-mode
+                                    'mu4e-view-mode 'mu4e-compose-mode
+                                    'croc-ui-mode 'sync-ui-mode))
   "s" 'my/s-key-dispatch)
 
 
@@ -4454,7 +4450,7 @@ date) and the dired header are never skipped."
   "a" '(org-agenda :wk "org agenda")
   "c" '(my/centered-cursor :wk "center cursor")
   "f" '(dirvish :wk "file manager")
-  "m" '(notmuch :wk "notmuch")
+  "m" '(mu4e :wk "mu4e")
   "i" '(run-irc :wk "irc")
   "r" '(async-shell-command :wk "run async")
   "t" '(ghostel-project :wk "terminal (project)")
@@ -4699,68 +4695,113 @@ reset is unnecessary, so do the handler resolution ourselves and skip
     "F" #'link-hint-copy-link))
 #+end_src
 
-* notmuch
+* mu4e
 
 #+begin_src emacs-lisp
-(use-package notmuch
+(use-package mu4e
   :ensure nil
   :defer t
-  :commands (notmuch notmuch-hello notmuch-mua-new-mail)
+  :commands (mu4e mu4e-compose-new)
+  :config
+
+  (setq mu4e-mu-binary (executable-find "mu"))
+  (setq mu4e-split-view 'vertical)
+  (setq mu4e-thread-mode t)
+  (setq mu4e-maildir "~/Mails")
+  (setq mu4e-get-mail-command (concat (executable-find "mbsync") " -a"))
+  (setq mu4e-update-interval 300)
+  (setq mu4e-attachment-dir "~/Downloads")
+  (setq mu4e-change-filenames-when-moving t)
+
+  (setq mu4e-user-mail-address-list
+        '("cashmeresamurai@autistici.org"
+          "cashmere@cashmere.rs"))
+
+  (setq mu4e-contexts
+        `(,(make-mu4e-context
+            :name "autistici"
+            :match-func
+            (lambda (msg)
+              (when msg
+                (string-prefix-p "/autistici" (mu4e-message-field msg :maildir))))
+            :vars '((user-mail-address . "cashmeresamurai@autistici.org")
+                    (user-full-name . "cashmere")
+                    (mu4e-drafts-folder . "/autistici/Drafts")
+                    (mu4e-sent-folder . "/autistici/Sent")
+                    (mu4e-trash-folder . "/autistici/Trash")
+                    (mu4e-refile-folder . "/autistici/Archive")))
+
+          ,(make-mu4e-context
+            :name "cashmere"
+            :match-func
+            (lambda (msg)
+              (when msg
+                (string-prefix-p "/cashmere/cashmere" (mu4e-message-field msg :maildir))))
+            :vars '((user-mail-address . "cashmere@cashmere.rs")
+                    (user-full-name . "cashmere")
+                    (mu4e-drafts-folder . "/cashmere/cashmere/Drafts")
+                    (mu4e-sent-folder . "/cashmere/cashmere/Sent")
+                    (mu4e-trash-folder . "/cashmere/cashmere/Trash")
+                    (mu4e-refile-folder . "/cashmere/cashmere/Archive")))))
+
+  (setq mu4e-context-policy 'pick-first)
+  (setq mu4e-compose-context-policy 'ask)
+
+  (setq sendmail-program (executable-find "msmtp"))
+  (setq send-mail-function 'sendmail-send-it)
+  (setq message-send-mail-function 'sendmail-send-it)
+  (setq message-sendmail-envelope-from 'header)
+  (setq message-kill-buffer-on-exit t)
+
+  (defun mu4e-set-msmtp-account ()
+    (if (message-mail-p)
+        (save-excursion
+          (let* ((from (save-restriction
+                         (message-narrow-to-headers)
+                         (message-fetch-field "from")))
+                 (account
+                  (cond
+                   ((string-match "cashmeresamurai@autistici.org" from) "autistici")
+                   ((string-match "cashmere@cashmere.rs" from) "cashmere/cashmere"))))
+            (setq message-sendmail-extra-arguments (list '"-a" account))))))
+
+  (add-hook 'message-send-mail-hook 'mu4e-set-msmtp-account))
+#+end_src
+
+** mu4e-alerts
+
+#+begin_src emacs-lisp
+(use-package mu4e-alert
+  :ensure t
+  :after mu4e
   :config
-  (setq notmuch-search-oldest-first nil
-        notmuch-show-logo nil
-        notmuch-column-control 1.0
-        notmuch-hello-sections
-        '(notmuch-hello-insert-saved-searches
-          notmuch-hello-insert-alltags
-          notmuch-hello-insert-recent-searches)
-        notmuch-saved-searches
-        '((:name "Inbox"
-           :query "tag:inbox AND NOT tag:trash"
-           :sort-order newest-first)
-          (:name "Unread"
-           :query "tag:unread AND NOT tag:trash"
-           :sort-order newest-first)
-          (:name "Sent"
-           :query "tag:sent"
-           :sort-order newest-first)
-          (:name "Starred"
-           :query "tag:flagged"
-           :sort-order newest-first))
-        notmuch-search-line-faces
-        '(("unread" . notmuch-search-unread-face)
-          ("flagged" . notmuch-search-flagged-face))
-        notmuch-message-headers '("Subject" "From" "To" "Cc" "Date")
-        notmuch-show-stash-mlarchive-link-alist
-        '(("https?://lists\\.gnu\\.org/archive/html/\\([^/]+\\)/.*"
-           . "https://lists.gnu.org/archive/html/%s/"))
-        notmuch-archive-tags '("-inbox" "+archive")
-        notmuch-fcc-dirs nil
-        notmuch-hello-auto-refresh t
-        notmuch-hello-thousands-separator ","
-        notmuch-attachment-dir "~/Downloads"
-        sendmail-program (executable-find "msmtp")
-        send-mail-function #'sendmail-send-it
-        message-send-mail-function #'sendmail-send-it
-        message-sendmail-envelope-from 'header
-        message-kill-buffer-on-exit t)
+  ;; Use libnotify for desktop notifications (notify-send / swaync)
+  (mu4e-alert-set-default-style 'libnotify)
+
+  ;; Interesting mail query: unread, exclude trash and sent folders
+  (setq mu4e-alert-interesting-mail-query
+        (concat "flag:unread AND NOT flag:trashed"
+                " AND NOT maildir:\"/autistici/Sent\""
+                " AND NOT maildir:\"/cashmere/cashmere/Sent\""))
+
+  ;; Show both count and per-sender subject notifications
+  (setq mu4e-alert-email-notification-types '(count subjects))
 
-  (defun my/notmuch-set-msmtp-account ()
-    "Select the msmtp account matching the message's From header."
-    (when (message-mail-p)
-      (save-excursion
-        (let ((from (save-restriction
-                      (message-narrow-to-headers)
-                      (message-fetch-field "from"))))
-          (setq message-sendmail-extra-arguments
-                (list "-a"
-                      (if (and from
-                               (string-match-p
-                                "cashmere@cashmere\\.rs" from))
-                          "cashmere/cashmere"
-                        "autistici")))))))
+  ;; Group desktop notifications by maildir (per-account grouping)
+  (setq mu4e-alert-group-by :maildir)
 
-  (add-hook 'message-send-mail-hook #'my/notmuch-set-msmtp-account))
+  ;; Disable X11 urgency hints (does not work on Wayland)
+  (setq mu4e-alert-set-window-urgency nil)
+
+  ;; Enable desktop notifications
+  (mu4e-alert-enable-notifications)
+
+  ;; Enable mode-line data updates (populates mu4e-alert-mode-line variable).
+  ;; We strip the default global-mode-string entry afterwards since we use
+  ;; a custom maple-modeline segment instead.
+  (mu4e-alert-enable-mode-line-display)
+  (setq global-mode-string
+        (delete '(:eval mu4e-alert-mode-line) global-mode-string)))
 #+end_src
 
 * colorful-mode
@@ -5051,6 +5092,7 @@ opening another file in same project does not re-notify."
 #+begin_src emacs-lisp
 (use-package minimal-dashboard
   :ensure t
+  :demand t
   :init
   (setq initial-buffer-choice #'minimal-dashboard) ;; set initial buffer as dashboard
   :custom