X-Git-Url: http://git.vanrenterghem.biz/Dotty.git/blobdiff_plain/fe02ecfb12b6920b3b608f83a572d10056a18798..a2fd61580e4866a78e6730e62dbd2a3e4a5cfe65:/emacs/.emacs.d/init.el diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el index a26675a..d2cc817 100644 --- a/emacs/.emacs.d/init.el +++ b/emacs/.emacs.d/init.el @@ -12,8 +12,17 @@ ;; Use light theme ;;(load-theme 'leuven t) (require 'modus-themes) -(load-theme 'modus-operandi t) (setq modus-themes-mixed-fonts t) +(load-theme 'modus-operandi t) +(variable-pitch-mode) +(define-key global-map (kbd "") #'modus-themes-toggle) + +(require 'orderless) +(setq completion-styles '(orderless basic) + completion-category-overrides '((file (styles basic partial-completion)))) + +;; follow links to version-controlled files without confirming +vc-follow-symlinks t ;; ESS - for working in R (autoload 'R-mode "ess-site.el" "Major mode for editing R source." t) @@ -62,6 +71,7 @@ ("\\.py\\'" . python-mode) ("\\.R\\'" . R-mode) ("\\.org\\'" . org-mode) + ("\\.tex\\'" . latex-mode) ("\\.sh\\'" . shell-script-mode) ("\\.hs\\'" . haskell-mode) ("\\.el\\'" . emacs-lisp-mode))) @@ -79,19 +89,27 @@ ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. + '(TeX-view-program-selection + '(((output-dvi has-no-display-manager) + "dvi2tty") + ((output-dvi style-pstricks) + "dvips and gv") + (output-dvi "xdvi") + (output-pdf "PDF Tools") + (output-html "xdg-open"))) '(browse-url-browser-function 'browse-url-firefox) '(custom-safe-themes '("0cf95236abcf59e05b1ea69b4edd53d293a5baec4fe4c3484543fee99bfd2204" "80b00f3bf7cdbdca6c80aadfbbb03145f3d0aacf6bf2a559301e61109954e30a" default)) '(denote-directory "/home/frederik/Nextcloud/notes/" t) '(org-export-backends '(ascii html icalendar latex md odt)) '(package-selected-packages - '(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))) + '(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))) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. - '(default ((t (:family "Source Code Pro" :foundry "ADBO" :slant normal :weight normal :height 143 :width normal))))) + ) ;; Send mail using SMTP via mail.vanrenterghem.io. @@ -102,6 +120,7 @@ (setq user-full-name "Frederik Vanrenterghem" smtpmail-local-domain "vanrenterghem.io" user-mail-address (concat "frederik@" smtpmail-local-domain)) +;; Ignored in mu4e as it sets user-agent (setq mail-default-headers (concat "X-Mailer: GNU Emacs " (symbol-value 'emacs-version))) (setq w3m-pop-up-frames t) @@ -124,10 +143,13 @@ (elfeed-protocol-enable) (define-key elfeed-search-mode-map (kbd "*") (lambda () (interactive) (apply 'elfeed-search-toggle-all '(star)))) (define-key elfeed-show-mode-map (kbd "*") (lambda () (interactive) (apply 'elfeed-show-tag '(star)))) +(add-hook 'elfeed-show-mode 'variable-pitch-mode) -;; Read email using mu4e +;; Read and write email using mu4e (require 'mu4e) (setq mail-user-agent 'mu4e-user-agent) +;; Also use mu4e when called from gnus-dired-attach +(setq gnus-dired-mail-mode 'mu4e-user-agent) (setq mu4e-get-mail-command "mbsync io") (setq mu4e-update-interval 600) (setq mu4e-use-fancy-chars t) @@ -135,6 +157,29 @@ (setq mu4e-sent-folder "/Sent" mu4e-drafts-folder "/Drafts" mu4e-trash-folder "/Trash") +(setq message-kill-buffer-on-exit 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 +(setq mu4e-bookmarks + '(( :name "Last 24h's messages" + :key ?l + :favorite y + :query "date:24h..now AND NOT flag:trashed") + ( :name "Unread messages" + :query "flag:unread AND NOT flag:trashed" + :key ?u) + ( :name "Today's messages" + :query "date:today..now AND NOT flag:trashed" + :key ?t) + ( :name "Last 7 days" + :query "date:7d..now AND NOT flag:trashed" + :hide-unread t + :key ?w) + ( :name "Messages with images" + :query "mime:image/* AND NOT flag:trashed" + :key ?p))) + ;; Create custom spam status header and show in message view (add-to-list 'mu4e-header-info-custom '(:spam-status . @@ -167,7 +212,7 @@ (let* ((infile (match-string-no-properties 2)) (outfile (concat (temporary-file-directory) (file-name-nondirectory infile)))) - (push (format "convert %s -resize 1200x1200\\> %s" + (push (format "magick convert %s -resize 1200x1200\\> %s" (shell-quote-argument infile) (shell-quote-argument outfile)) cmds) @@ -218,3 +263,25 @@ ;; Use 'winner' mode to undo and redo windows changes ;; using C-c and C-c . (winner-mode 1) + +;; Use a different spell checker, always +(add-hook 'emacs-startup-hook #'global-jinx-mode) +(keymap-global-set "M-$" #'jinx-correct) + +;; Bind embark +(keymap-global-set "C-." #'embark-act) +(keymap-global-set "C-;" #'embark-dwim) + +;; Change default bindings to consult- ones +(keymap-set ctl-x-map "b" #'consult-buffer) +(global-set-key (kbd "M-y") 'consult-yank-pop) + +;; Configure `world-clock' + +(with-eval-after-load 'time + (setq zoneinfo-style-world-list '(("Europe/Brussels" "Leuven"))) + (add-to-list 'zoneinfo-style-world-list '("Australia/Perth" "Perth"))) + + +;; View PDFs in Emacs +(pdf-loader-install) ; On demand loading, leads to faster startup time