emacs/.emacs.d/init.el

   1 ;; Added by Package.el.  This must come before configurations of
   2 ;; installed packages.  Don't delete this line.  If you don't want it,
   3 ;; just comment it out by adding a semicolon to the start of the line.
   4 ;; You may delete these explanatory comments.
   5 (package-initialize)
   6
   7 (add-to-list 'load-path "~/.emacs.d/lisp/")
   8
   9 (tool-bar-mode -1)
  10
  11 ;; Configure printing using CUPS network printer
  12 (setq lpr-switches
  13       (append '("-o raw"
  14                 "-o media=A4")
  15               lpr-switches))
  16
  17 ;; Enable the melpa archive for packages
  18 (use-package package
  19   :config
  20   (setq package-enable-at-startup nil)
  21   (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
  22   (add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/") t)
  23   (add-to-list 'package-archives
  24                '("elpy" . "http://jorgenschaefer.github.io/packages/")))
  25
  26 (use-package system-packages
  27   :ensure t)
  28
  29 (use-package modus-themes
  30   :ensure t
  31   :demand t ;; Without this, the theme load is deferred due to the
  32             ;; bind keyword below
  33   :init
  34   ;; Add all customisation prior to loading the themes
  35   (setq modus-themes-mixed-fonts t)
  36   :config
  37   (modus-themes-select 'modus-vivendi-tinted)
  38   (variable-pitch-mode)
  39   :bind ("<f5>" . modus-themes-toggle))
  40
  41 (use-package orderless
  42   :ensure t
  43   :config
  44   (setq completion-styles '(orderless basic)
  45         completion-category-overrides '((file (styles basic partial-completion)))))
  46
  47 ;; follow links to version-controlled files without confirming
  48 vc-follow-symlinks t
  49
  50 ;; ESS - for working in R
  51 (autoload 'R-mode "ess-site.el" "Major mode for editing R source." t)
  52 (setq load-path (cons "/usr/share/emacs/site-lisp/ess" load-path))
  53 (load "/usr/share/emacs/site-lisp/ess/lisp/ess-site")
  54 (setq inferior-julia-program-name "/usr/bin/julia")
  55
  56 ;; enable autocomplete
  57 (use-package company
  58   :ensure t
  59   :bind(:map company-active-map
  60              ("<return>" . nil)
  61              ("RET" . nil)
  62              ("C-<return>" . company-complete-selection)
  63              ([tab]    . company-complete-common)
  64              ("TAB"    . company-complete-common))
  65   :config
  66   (setq ispell-complete-word-dict
  67    (expand-file-name (concat user-emacs-directory "aspell_words.txt")))
  68   ;(defun my/text-mode-hook ()
  69   ;  (setq-local company-backends
  70 ;               '((company-dabbrev company-ispell :separate)
  71  ;                 company-files)))
  72  ; (add-hook 'text-mode-hook #'my/text-mode-hook)
  73   (global-company-mode 1))
  74
  75 (use-package org
  76   :ensure t
  77   :bind
  78   (("C-c c" . org-capture)
  79    ("C-c l" . org-store-link)
  80    ("C-c a" . org-agenda))
  81   :custom
  82   (org-default-notes-file "~/Nextcloud/notes/inbox.org")
  83   (org-agenda-files `(,org-default-notes-file "~/Nextcloud/notes/calendar.org"))
  84   (org-capture-bookmark nil)
  85   ;; Capture templates
  86   (org-capture-templates
  87    '(("f" "Fleeting note" item
  88       (file+headline org-default-notes-file "Notes")
  89       "* %?\nEntered on %U\n  %i\n  %a")
  90      ("b" "Tax receipt" item
  91       (file "~/Documents/belastingen/FY24-25.org")
  92       "* %t %a\n")
  93      ("p" "Permanent note" plain
  94       (file denote-last-path)
  95       #'denote-org-capture
  96       :no-save t
  97       :immediate-finish nil
  98       :kill-buffer t
  99       :jump-to-captured t)
 100      ("t" "New task" entry
 101       (file+headline org-default-notes-file "Tasks")
 102       "* TODO %i%?")
 103      ("e" "Email follow-up" entry (file+headline org-default-notes-file "Tasks")
 104       "* TODO %:fromname: %a %?\nDEADLINE: %(org-insert-time-stamp (org-read-date nil t \"+2d\"))")))
 105   ;; Agenda views
 106   (org-agenda-custom-commands
 107    '(("P" "Expired calendar events" ((tags "TIMESTAMP<=\"<now>\"")))
 108      ("n" "Agenda and all TODOs"  ((agenda "") (alltodo "")))))
 109   :config
 110   (setq org-agenda-skip-scheduled-if-done t)
 111   (setq org-agenda-skip-deadline-if-done t)
 112   (setq org-agenda-start-on-weekday nil)
 113   ;; Automatically flow lines based on window width and use
 114   ;; variable width fonts in org-mode.
 115   (add-hook 'org-mode-hook 'visual-line-mode)
 116   (add-hook 'org-mode-hook 'variable-pitch-mode)
 117   ;; org-mode support for R and LaTeX
 118   (org-babel-do-load-languages
 119    'org-babel-load-languages
 120    '((R . t)
 121      (latex . t))))
 122
 123 (use-package org-caldav
 124   :ensure t
 125   :config
 126   (setq org-caldav-url "https://owncloud.vanrenterghem.biz/remote.php/dav/calendars/frederik")
 127   (setq org-caldav-calendar-id "orgmode")
 128   ;; Org filename where new entries from calendar stored
 129   (setq org-caldav-inbox "~/Nextcloud/notes/calendar.org")
 130   ;; Additional Org files to check for calendar events
 131   (setq org-caldav-files nil)
 132   ;; Usually a good idea to set the timezone manually
 133   (setq org-icalendar-timezone "Australia/Perth"))
 134
 135 (use-package tex
 136   :ensure auctex
 137   :config
 138   (setq TeX-auto-save t
 139         TeX-parse-self t
 140         TeX-view-program-selection
 141    '(((output-dvi has-no-display-manager)
 142       "dvi2tty")
 143      ((output-dvi style-pstricks)
 144       "dvips and gv")
 145      (output-dvi "xdvi")
 146      (output-pdf "PDF Tools")
 147      (output-html "xdg-open"))))
 148 ;; (load "preview-latex.el" nil t t)
 149
 150
 151 ;; Automatically switch to various modes
 152 (setq auto-mode-alist
 153     '(("\\.mdwn\\'" . markdown-mode)
 154       ("\\.md\\'" . markdown-mode)
 155       ("\\.yarn\\'" . markdown-mode)
 156       ("\\.cpp\\'" . c++-mode)
 157       ("\\.js\\'" . js-mode)
 158       ("\\.json\\'" . js-mode)
 159       ("Makefile" . makefile-mode)
 160       ("README" . markdown-mode)
 161       ("NEWS" . markdown-mode)
 162       ("COMMIT_EDITMSG\\'" . text-mode)
 163       ("\\.html\\'" . html-mode)
 164       ("\\.css\\'" . css-mode)
 165       ("\\.yaml\\'" . yaml-mode)
 166       ("\\.yml\\'" . yaml-mode)
 167       ("\\.ick\\'" . yaml-mode)
 168       ("\\.py\\'" . python-mode)
 169       ("\\.R\\'" . R-mode)
 170       ("\\.org\\'" . org-mode)
 171       ("\\.tex\\'" . latex-mode)
 172       ("\\.sh\\'" . shell-script-mode)
 173       ("\\.hs\\'" . haskell-mode)
 174       ("\\.el\\'" . emacs-lisp-mode)))
 175
 176
 177 (custom-set-variables
 178  ;; custom-set-variables was added by Custom.
 179  ;; If you edit it by hand, you could mess it up, so be careful.
 180  ;; Your init file should contain only one such instance.
 181  ;; If there is more than one, they won't work right.
 182  '(browse-url-browser-function 'browse-url-firefox)
 183  '(custom-safe-themes
 184    '("8d146df8bd640320d5ca94d2913392bc6f763d5bc2bb47bed8e14975017eea91" "9a977ddae55e0e91c09952e96d614ae0be69727ea78ca145beea1aae01ac78d2" "0cf95236abcf59e05b1ea69b4edd53d293a5baec4fe4c3484543fee99bfd2204" "80b00f3bf7cdbdca6c80aadfbbb03145f3d0aacf6bf2a559301e61109954e30a" default))
 185  '(org-export-backends '(ascii html icalendar latex md odt))
 186  '(package-selected-packages
 187    '(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))
 188  '(use-package-compute-statistics t))
 189 (custom-set-faces
 190  ;; custom-set-faces was added by Custom.
 191  ;; If you edit it by hand, you could mess it up, so be careful.
 192  ;; Your init file should contain only one such instance.
 193  ;; If there is more than one, they won't work right.
 194  )
 195
 196
 197 ;; Send mail using SMTP via mail.vanrenterghem.io.
 198 (setq send-mail-function    'smtpmail-send-it)
 199 (setq smtpmail-smtp-server "mail.vanrenterghem.io"
 200       smtpmail-smtp-service 587
 201       smtpmail-stream-type 'starttls)
 202 (setq user-full-name "Frederik Vanrenterghem"
 203       smtpmail-local-domain "vanrenterghem.io"
 204       user-mail-address (concat "frederik@" smtpmail-local-domain))
 205 ;; Ignored in mu4e as it sets user-agent
 206 (setq mail-default-headers
 207       (concat "X-Mailer: GNU Emacs " (symbol-value 'emacs-version)))
 208 (setq w3m-pop-up-frames t)
 209
 210 (global-set-key [remap list-buffers] 'ibuffer)
 211
 212 ;;; use pass (~/.password-store)
 213 ;;; (see The Unix password store)
 214 (use-package pass
 215   :ensure t
 216   :config
 217   (auth-source-pass-enable)
 218   (setq pass-username-field "Username"))
 219
 220 ;; Elfeed news reader from Nextcloud
 221 (use-package elfeed
 222   :ensure t
 223   :config
 224   (setq elfeed-use-curl nil)
 225   (elfeed-set-timeout 36000)
 226   (define-key elfeed-search-mode-map (kbd "*") (lambda () (interactive) (apply 'elfeed-search-toggle-all '(star))))
 227   (define-key elfeed-show-mode-map (kbd "*") (lambda () (interactive) (apply 'elfeed-show-tag '(star))))
 228   (add-hook 'elfeed-show-mode 'variable-pitch-mode))
 229
 230 (use-package elfeed-protocol
 231   :ensure t
 232   :after elfeed
 233   :config
 234   (setq elfeed-protocol-feeds '(
 235                                 ("owncloud+https://frederik@owncloud.vanrenterghem.biz" :use-authinfo t)
 236         ))
 237   (elfeed-protocol-enable))
 238
 239
 240 ;; Read and write email using mu4e
 241 (use-package mu4e
 242   :ensure nil
 243   ;; :ensure-system-package mu ;; Install from aur
 244   :config
 245   (setq mail-user-agent 'mu4e-user-agent)
 246   ;; Also use mu4e when called from gnus-dired-attach
 247   (setq gnus-dired-mail-mode 'mu4e-user-agent
 248         mu4e-get-mail-command "mbsync io"
 249         mu4e-update-interval 600
 250         mu4e-use-fancy-chars t
 251         mu4e-view-show-images t
 252         mu4e-sent-folder   "/Sent"
 253         mu4e-drafts-folder "/Drafts"
 254         mu4e-trash-folder  "/Trash"
 255         message-kill-buffer-on-exit t
 256         ;;Fixing duplicate UID errors when using mbsync and mu4e
 257         mu4e-change-filenames-when-moving t)
 258   ;; attach files to mu4e messages by marking the file(s) in dired and pressing C-c RET C-a
 259   (add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode)
 260   ;; Define all bookmarks starting with favourite query used in mailcount modeline
 261   (setq mu4e-bookmarks
 262         '(( :name "Last 24h's messages"
 263           :key ?l
 264           :favorite y
 265           :query "date:24h..now AND NOT flag:trashed")
 266         ( :name "Unread messages"
 267           :query "flag:unread AND NOT flag:trashed"
 268           :key ?u)
 269         ( :name "Today's messages"
 270           :query "date:today..now AND NOT flag:trashed"
 271           :key ?t)
 272         ( :name "Last 7 days"
 273           :query "date:7d..now AND NOT flag:trashed"
 274           :hide-unread t
 275           :key ?w)
 276         ( :name "Messages with images"
 277           :query "mime:image/* AND NOT flag:trashed"
 278           :key ?p)))
 279   ;; Create custom spam status header and show in message view
 280   (add-to-list 'mu4e-header-info-custom
 281                '(:spam-status .
 282                               ( :name "Spam-Status"     ;; long name, as seen in the message-view
 283                                 :shortname "Spam"      ;; short name, as seen in the headers view
 284                                 :help "The Spam status" ;; tooltip
 285                                 ;; uses mu4e-fetch-field which is rel. slow, so only appropriate
 286                                 ;; for mu4e-view-fields, and _not_ mu4e-headers-fields
 287                                 :function (lambda (msg)
 288                                             (or (string-join (seq-take (split-string (or (mu4e-fetch-field msg "X-Spam-Status") "") " ") 2) " ") "")))))
 289   (add-to-list 'mu4e-view-fields :spam-status)
 290   ;; Resize image attachments when sending email
 291   (defvar mu4e-resize-image-types '("jpg" "png" "svg" "jpeg")
 292     "List of attached image types to resize.")
 293   (defvar mu4e-inhibit-resize nil)
 294   (defun mu4e-resize-image-attachments ()
 295     (unless mu4e-inhibit-resize
 296       (let (cmds
 297             (image-types
 298              (mapconcat #'identity mu4e-resize-image-types "\\|")))
 299         (save-excursion
 300           (message-goto-body-1)
 301           (while (re-search-forward
 302                   (format "<#part.+\\(filename=\"\\)\\(.+\\(\\.%s\\)\\)\""
 303                           image-types)
 304                   nil t)
 305             (let* ((infile (match-string-no-properties 2))
 306                    (outfile (concat (temporary-file-directory)
 307                                     (file-name-nondirectory infile))))
 308               (push (format "magick convert %s -resize 1200x1200\\> %s"
 309                             (shell-quote-argument infile)
 310                             (shell-quote-argument outfile))
 311                     cmds)
 312               (replace-match outfile t t nil 2)))
 313           (mapcar #'shell-command cmds)))))
 314   (add-hook 'message-send-hook 'mu4e-resize-image-attachments)
 315   (defun mu4e-inhibit-resize()
 316     (interactive)
 317     (set (make-local-variable 'mu4e-inhibit-resize) t)))
 318
 319 ;; Load configuration for website
 320 ;(load "mustache-html")
 321
 322 ;; Denote config
 323 (use-package denote
 324   :ensure t
 325   :hook (dired-mode . denote-dired-mode)
 326   :bind
 327   (("C-c n n" . denote)
 328    ("C-c n r" . denote-rename-file)
 329    ("C-c n l" . denote-link)
 330    ("C-c n b" . denote-backlinks))
 331   :config
 332   (setq denote-directory "/home/frederik/Nextcloud/notes/")
 333   (denote-rename-buffer-mode 1))
 334
 335 (use-package nerd-icons
 336   ;; :custom
 337   ;; The Nerd Font you want to use in GUI
 338   ;; "Symbols Nerd Font Mono" is the default and is recommended
 339   ;; but you can use any other Nerd Font if you want
 340   ;; (nerd-icons-font-family "Symbols Nerd Font Mono")
 341   )
 342
 343 ;; Dired configuration
 344 (with-eval-after-load 'dired
 345   (require 'dired-x)
 346   ;; Set dired-x global variables here.  For example:
 347   ;; (setq dired-x-hands-off-my-keys nil)
 348   )
 349 (add-hook 'dired-mode-hook
 350           (lambda ()
 351             ;; Set dired-x buffer-local variables here.
 352             (dired-omit-mode 1)
 353             (dired-hide-details-mode 1)
 354             (nerd-icons-dired-mode 1)
 355             ))
 356 (setq delete-by-moving-to-trash t)
 357 (setq dired-guess-shell-alist-user
 358       '(("\\.\\(png\\|jpe?g\\|tiff\\)" "feh" "xdg-open")
 359         ("\\.\\(mp[34]\\|m4a\\|ogg\\|flac\\|webm\\|mkv\\)" "mpv" "xdg-open")
 360                 (".*" "xdg-open")))
 361
 362 ;; Use `vertico' package to get a vertical view of the minibuffer.
 363 (use-package vertico
 364   :ensure t
 365   :config
 366   (setq vertico-resize nil)
 367   (vertico-mode 1))
 368
 369 ;; Persist history over Emacs restarts. Vertico sorts by history position.
 370 (use-package savehist
 371   :init
 372   (savehist-mode))
 373
 374 ;; Use `marginalia' package.  This will display useful
 375 ;; annotations next to entries in the minibuffer.  For example, when
 376 ;; using M-x it will show a brief description of the command as well
 377 ;; as the keybinding associated with it (if any).
 378 (use-package marginalia
 379   :ensure t
 380   :config
 381   (marginalia-mode 1))
 382
 383 ;; Use 'winner' mode to undo and redo windows changes
 384 ;; using C-c <left> and C-c <right>.
 385 (use-package winner
 386   :ensure t
 387   :config
 388   (winner-mode 1))
 389
 390 ;; Use a different spell checker, always
 391 (use-package jinx
 392   :ensure t
 393   :config
 394   (keymap-global-set "M-$" #'jinx-correct)
 395   :hook (emacs-startup . global-jinx-mode))
 396
 397
 398 ;; Bind embark
 399 (use-package embark
 400   :ensure t
 401   :config
 402   (keymap-global-set "C-." #'embark-act)
 403   (keymap-global-set "C-;" #'embark-dwim))
 404
 405 (use-package consult
 406   :ensure t
 407   :config
 408   ;; Change default bindings to consult- ones
 409   :bind
 410   (;; C-x bindings in `ctl-x-map'
 411    ("C-x b" . consult-buffer)                ;; orig. switch-to-buffer
 412    ("C-x 4 b" . consult-buffer-other-window) ;; orig. switch-to-buffer-other-window
 413    ("C-x r b" . consult-bookmark)            ;; orig. bookmark-jump
 414    ;; Other custom bindings
 415    ("M-y" . consult-yank-pop)))              ;; orig. yank-pop
 416
 417 (use-package consult-mu
 418   :ensure nil ;; cloned in
 419   :load-path "~/.emacs.d/lisp/consult-mu"
 420   :after (consult mu4e)
 421   :custom
 422   ;;maximum number of results shown in minibuffer
 423   (consult-mu-maxnum 200)
 424   ;;show preview when pressing any keys
 425   (consult-mu-preview-key 'any)
 426   ;;do not mark email as read when previewed
 427   (consult-mu-mark-previewed-as-read nil)
 428   ;;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.
 429   (consult-mu-mark-viewed-as-read nil)
 430   ;; open the message in mu4e-view-buffer when selected.
 431   (consult-mu-action #'consult-mu--view-action)
 432   )
 433
 434 ;; Configure `world-clock'
 435 (use-package time
 436   :ensure nil
 437   :config
 438   (setq zoneinfo-style-world-list '(("Europe/Brussels" "Leuven")))
 439   (add-to-list 'zoneinfo-style-world-list '("Australia/Perth" "Perth")))
 440
 441
 442 ;; View PDFs in Emacs
 443 (pdf-loader-install) ; On demand loading, leads to faster startup time
 444 (setq pdf-misc-print-programm "/usr/bin/lpr")
 445
 446 (use-package magit
 447   :ensure t)
 448
 449 (use-package eat
 450   :ensure t
 451   :config
 452    ;; For `eat-eshell-mode'.
 453   (add-hook 'eshell-load-hook #'eat-eshell-mode)
 454   (setq eshell-visual-commands '()))
 455
 456 ;; Read ePub files
 457 (use-package nov
 458   :ensure t
 459   :init
 460   (add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode))
 461   :config
 462   (add-hook 'nov-mode-hook #'variable-pitch-mode))
 463
 464 ;; Set some preset fonts
 465 (use-package fontaine
 466   :ensure t
 467   :config
 468   (setq fontaine-presets
 469       '((regular-1
 470          :default-family "Iosevka Nerd Font"
 471          :default-height 120
 472          :variable-pitch-family "Linux Biolinum O"
 473          :variable-pitch-weight normal
 474          :variable-pitch-height 1.1
 475          :italic-family "Iosevka Etoile"
 476          :line-spacing 1)
 477         (large-1
 478          :default-family "Iosevka Nerd Font"
 479          :default-height 150
 480          :variable-pitch-family "Linux Biolinum O"
 481          :variable-pitch-weight normal
 482          :variable-pitch-height 1.1
 483          :italic-family "Iosevka Etoile"
 484          :line-spacing 1)
 485         (regular-2
 486          :default-family "Fira Mono Nerd Font"
 487          :default-height 140
 488          :variable-pitch-family "Fira Sans Book"
 489          :variable-pitch-weight normal
 490          :variable-pitch-height 1.0
 491          :line-spacing 1)
 492         (large-2
 493          :default-family "Fira Mono Nerd Font"
 494          :default-height 140
 495          :variable-pitch-family "Fira Sans Book"
 496          :variable-pitch-weight normal
 497          :variable-pitch-height 1.0
 498          :line-spacing 1)
 499         (ereader-Baskerville
 500          :variable-pitch-family "Libre Baskerville"
 501          :variable-pitch-weight normal
 502          :variable-pitch-height 1.0
 503          :line-spacing 1)
 504         (ereader-Noto-Serif
 505          :variable-pitch-family "Noto Serif"
 506          :variable-pitch-weight normal
 507          :variable-pitch-height 1.0
 508          :line-spacing 1)
 509         (ereader-Bembo-Tufte
 510          :variable-pitch-family "ETBembo"
 511          :variable-pitch-weight normal
 512          :variable-pitch-height 1.1
 513          :line-spacing 1)
 514         (ereader-Literata
 515          :variable-pitch-family "Literata"
 516          :variable-pitch-weight normal
 517          :variable-pitch-height 1.0
 518          :line-spacing 1))))
 519
 520 ;; Custom functions
 521
 522 ;; Might want to run this automatically
 523 ;; using variable after-focus-change-function
 524 (defun my/adjust-font-size-based-on-display ()
 525   "Change size of fonts based on monitor."
 526   (interactive)
 527   (let* ((display-name (cdr (assq 'name (frame-monitor-attributes))))
 528          (font-height (cond ((string-equal display-name "eDP-1") 140)
 529                             (t 120) ;; default
 530                             )))
 531     (set-face-attribute 'default (selected-frame) :height font-height)))