X-Git-Url: http://git.vanrenterghem.biz/Dotty.git/blobdiff_plain/b5a4a9f6a8bd6f46c0a7b8511ef1d84882af5593..93531ffa52dfea23aa60d9ee1668f0277f66334a:/emacs/.emacs.d/init.el

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index 34715c2..ddb78c4 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -183,7 +183,8 @@ vc-follow-symlinks t
    '("8d146df8bd640320d5ca94d2913392bc6f763d5bc2bb47bed8e14975017eea91" "9a977ddae55e0e91c09952e96d614ae0be69727ea78ca145beea1aae01ac78d2" "0cf95236abcf59e05b1ea69b4edd53d293a5baec4fe4c3484543fee99bfd2204" "80b00f3bf7cdbdca6c80aadfbbb03145f3d0aacf6bf2a559301e61109954e30a" default))
  '(org-export-backends '(ascii html icalendar latex md odt))
  '(package-selected-packages
-   '(nov eat mu4e ellama emms mpdel-embark libmpdel pass password-store fontaine osm orderless embark-consult embark consult jinx dired-preview ftable flx nerd-icons-dired nerd-icons all-the-icons-dired marginalia vertico denote ox-rss org-ql org-contrib mustache org-static-blog haskell-mode julia-mode elfeed-protocol ack company magit auctex lsp-mode elpy ## org htmlize leuven-theme lua-mode ess-smart-underscore ess-R-data-view ess)))
+   '(straight calfw calfw-org engrave-faces org-caldav nov eat mu4e ellama emms mpdel-embark libmpdel pass password-store fontaine osm orderless embark-consult embark consult jinx dired-preview ftable flx nerd-icons-dired nerd-icons all-the-icons-dired marginalia vertico denote ox-rss org-ql org-contrib mustache org-static-blog haskell-mode julia-mode elfeed-protocol ack company magit auctex lsp-mode elpy ## org htmlize leuven-theme lua-mode ess-smart-underscore ess-R-data-view ess))
+ '(use-package-compute-statistics t))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
@@ -250,7 +251,9 @@ vc-follow-symlinks t
 	mu4e-sent-folder   "/Sent"
 	mu4e-drafts-folder "/Drafts"
 	mu4e-trash-folder  "/Trash"
-	message-kill-buffer-on-exit t)
+	message-kill-buffer-on-exit t
+	;;Fixing duplicate UID errors when using mbsync and mu4e
+	mu4e-change-filenames-when-moving t)
   ;; attach files to mu4e messages by marking the file(s) in dired and pressing C-c RET C-a
   (add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode)
   ;; Define all bookmarks starting with favourite query used in mailcount modeline
@@ -362,6 +365,11 @@ vc-follow-symlinks t
   (setq vertico-resize nil)
   (vertico-mode 1))
 
+;; Persist history over Emacs restarts. Vertico sorts by history position.
+(use-package savehist
+  :init
+  (savehist-mode))
+
 ;; Use `marginalia' package.  This will display useful
 ;; annotations next to entries in the minibuffer.  For example, when
 ;; using M-x it will show a brief description of the command as well
@@ -405,6 +413,23 @@ vc-follow-symlinks t
    ;; Other custom bindings
    ("M-y" . consult-yank-pop)))              ;; orig. yank-pop
 
+(use-package consult-mu
+  :ensure nil ;; cloned in
+  :load-path "~/.emacs.d/lisp/consult-mu"
+  :after (consult mu4e)
+  :custom
+  ;;maximum number of results shown in minibuffer
+  (consult-mu-maxnum 200)
+  ;;show preview when pressing any keys
+  (consult-mu-preview-key 'any)
+  ;;do not mark email as read when previewed
+  (consult-mu-mark-previewed-as-read nil)
+  ;;do not amrk email as read when selected. This is a good starting point to ensure you would not miss important emails marked as read by mistake especially when trying this package out. Later you can change this to t.
+  (consult-mu-mark-viewed-as-read nil)
+  ;; open the message in mu4e-view-buffer when selected.
+  (consult-mu-action #'consult-mu--view-action)
+  )
+
 ;; Configure `world-clock'
 (use-package time
   :ensure nil