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