Enable corfu history, mu4e completion filter to personal mail only

Personal mail meaning mail with one of my addresses in the to field,
not personal as opposed to work
This commit is contained in:
Evie Litherland-Smith 2024-06-12 07:28:50 +01:00
parent f1f2c2e654
commit bad0de0fea
2 changed files with 13 additions and 1 deletions

13
init.el
View file

@ -74,7 +74,10 @@
(setq backup-directory-alist '(("." . "~/.local/state/emacs/backups"))) (setq backup-directory-alist '(("." . "~/.local/state/emacs/backups")))
(savehist-mode +1) (use-package savehist
:demand
:config
(savehist-mode +1))
(use-package dired (use-package dired
:custom :custom
@ -715,7 +718,9 @@
:custom :custom
(corfu-cycle t) (corfu-cycle t)
(corfu-auto nil) (corfu-auto nil)
(corfu-preselect 'directory)
:config :config
(require 'corfu-history)
(when (require 'nerd-icons-corfu nil :noerror) (when (require 'nerd-icons-corfu nil :noerror)
(add-to-list 'corfu-margin-formatters #'nerd-icons-corfu-formatter)) (add-to-list 'corfu-margin-formatters #'nerd-icons-corfu-formatter))
(when (require 'corfu-popupinfo nil :noerror) (when (require 'corfu-popupinfo nil :noerror)
@ -724,6 +729,12 @@
(not (display-graphic-p))) (not (display-graphic-p)))
(corfu-terminal-mode +1))) (corfu-terminal-mode +1)))
(use-package corfu-history
:requires (corfu savehist)
:functions corfu-history
:config
(add-to-list 'savehist-additional-variables #'corfu-history))
(use-package corfu-popupinfo (use-package corfu-popupinfo
:requires corfu :requires corfu
:defines corfu-popupinfo-map :defines corfu-popupinfo-map

View file

@ -29,6 +29,7 @@
(mu4e-context-policy 'pick-first) (mu4e-context-policy 'pick-first)
(mu4e-compose-context-policy 'ask) (mu4e-compose-context-policy 'ask)
(mu4e-compose-signature-auto-include nil) (mu4e-compose-signature-auto-include nil)
(mu4e-compose-complete-only-personal t)
(mu4e-search-full nil) (mu4e-search-full nil)
(mu4e-search-include-related t) (mu4e-search-include-related t)
(mu4e-search-threads t) (mu4e-search-threads t)