X-Git-Url: http://git.vanrenterghem.biz/Dotty.git/blobdiff_plain/daaf8486c1129d7e6c97bd55eac12d0d18aef9c3..4779acb056bafd13c5a99ab9b94d753fe98b5bc8:/emacs/.emacs.d/init.el

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index 8b56c18..51f86f1 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -11,7 +11,9 @@
 
 ;; Use light theme
 ;;(load-theme 'leuven t)
+(require 'modus-themes)
 (load-theme 'modus-operandi t)
+(setq modus-themes-mixed-fonts t)
 
 ;; ESS - for working in R
 (autoload 'R-mode "ess-site.el" "Major mode for editing R source." t)
@@ -24,6 +26,11 @@
 
 (require 'org)
 
+;; Automatically flow lines based on window width and use
+;; variable width fonts in org-mode.
+(add-hook 'org-mode-hook 'visual-line-mode)
+(add-hook 'org-mode-hook 'variable-pitch-mode)
+
 ;; Auctex
 (load "auctex.el" nil t t)
 (load "preview-latex.el" nil t t)
@@ -122,12 +129,24 @@
 (require 'mu4e)
 (setq mail-user-agent 'mu4e-user-agent)
 (setq mu4e-get-mail-command "mbsync io")
+(setq mu4e-update-interval 600)
 (setq mu4e-use-fancy-chars t)
 (setq mu4e-view-show-images t)
 (setq mu4e-sent-folder   "/Sent"
       mu4e-drafts-folder "/Drafts"
       mu4e-trash-folder  "/Trash")
-	       
+;; Create custom spam status header and show in message view
+(add-to-list 'mu4e-header-info-custom
+ '(:spam-status .
+     ( :name "Spam-Status"     ;; long name, as seen in the message-view
+       :shortname "Spam"      ;; short name, as seen in the headers view
+       :help "The Spam status" ;; tooltip
+       ;; uses mu4e-fetch-field which is rel. slow, so only appropriate
+       ;; for mu4e-view-fields, and _not_ mu4e-headers-fields
+       :function (lambda (msg)
+		   (or (string-join (seq-take (split-string (mu4e-fetch-field msg "X-Spam-Status") " ") 2) " ") "")))))
+(add-to-list 'mu4e-view-fields :spam-status)
+b
 ;; Load configuration for website
 ;(load "mustache-html")