Support global company-mode.

[Dotty.git] / emacs / .emacs.d / init.el

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index 34715c22b108737c53d3038eefa88f41355eb43d..bc2dd2b3b8f3d5104c2998653f0281c183f284bf 100644 (file)
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -56,6 +56,8 @@ vc-follow-symlinks t
 ;; enable autocomplete
 (use-package company
   :ensure t
+  :demand t ;; Needed to ensure global company-mode works.
+  :commands company-mode
   :bind(:map company-active-map
              ("<return>" . nil)
              ("RET" . nil)
@@ -153,6 +155,7 @@ vc-follow-symlinks t
     '(("\\.mdwn\\'" . markdown-mode)
       ("\\.md\\'" . markdown-mode)
       ("\\.yarn\\'" . markdown-mode)
+      ("\\.cpp\\'" . c++-mode)
       ("\\.js\\'" . js-mode)
       ("\\.json\\'" . js-mode)
       ("Makefile" . makefile-mode)
@@ -183,7 +186,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 +254,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 +368,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 +416,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