;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)

(add-to-list 'load-path "~/.emacs.d/lisp/")

(tool-bar-mode -1)
(scroll-bar-mode -1)

(setopt custom-file "~/.emacs.d/custom.el")
(load custom-file)

;; Configure printing using CUPS network printer
(setq lpr-switches
      (append '("-o raw"
		"-o media=A4")
              lpr-switches))

;; Enable the melpa archive for packages
(use-package package
  :config
  (setq package-enable-at-startup nil)
  (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
  (add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/") t)
  (add-to-list 'package-archives
               '("elpy" . "http://jorgenschaefer.github.io/packages/")))

(use-package system-packages
  :ensure t)

(use-package modus-themes
  :ensure t
  :demand t ;; Without this, the theme load is deferred due to the
	    ;; bind keyword below
  :init
  ;; Add all customisation prior to loading the themes
  (setq modus-themes-mixed-fonts t)
  :config
  (modus-themes-select 'modus-vivendi-tinted)
  (variable-pitch-mode)
  :bind ("<f5>" . modus-themes-toggle))

(use-package orderless
  :ensure t
  :config
  (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)
(setq load-path (cons "/usr/share/emacs/site-lisp/ess" load-path))
(load "/usr/share/emacs/site-lisp/ess/lisp/ess-site")
(setq inferior-julia-program-name "/usr/bin/julia")

(use-package ess-view-data
  :ensure t)

;; Configure Tempel
(use-package tempel
  :ensure t
  ;; Require trigger prefix before template name when completing.
  ;; :custom
  ;; (tempel-trigger-prefix "<")

  :bind (("M-+" . tempel-complete) ;; Alternative tempel-expand
         ("M-*" . tempel-insert))

  :init

  ;; Setup completion at point
  (defun tempel-setup-capf ()
    ;; Add the Tempel Capf to `completion-at-point-functions'.
    ;; `tempel-expand' only triggers on exact matches. Alternatively use
    ;; `tempel-complete' if you want to see all matches, but then you
    ;; should also configure `tempel-trigger-prefix', such that Tempel
    ;; does not trigger too often when you don't expect it. NOTE: We add
    ;; `tempel-expand' *before* the main programming mode Capf, such
    ;; that it will be tried first.
    (setq-local completion-at-point-functions
                (cons #'tempel-expand
                      completion-at-point-functions)))

  (add-hook 'conf-mode-hook 'tempel-setup-capf)
  (add-hook 'prog-mode-hook 'tempel-setup-capf)
  (add-hook 'text-mode-hook 'tempel-setup-capf)

  ;; Optionally make the Tempel templates available to Abbrev,
  ;; either locally or globally. `expand-abbrev' is bound to C-x '.
  ;; (add-hook 'prog-mode-hook #'tempel-abbrev-mode)
  ;; (global-tempel-abbrev-mode)
)

;; Optional: Add tempel-collection.
;; The package is young and doesn't have comprehensive coverage.
(use-package tempel-collection
  :ensure t
  :after tempel)

;; enable autocomplete
(use-package corfu
  :ensure t
  ;; Optional customizations
  :custom
  (corfu-cycle t)                ;; Enable cycling for `corfu-next/previous'
  (corfu-auto t)                 ;; Enable auto completion
  ;; (corfu-separator ?\s)          ;; Orderless field separator
  ;; (corfu-quit-at-boundary nil)   ;; Never quit at completion boundary
  ;; (corfu-quit-no-match nil)      ;; Never quit, even if there is no match
  ;; (corfu-preview-current nil)    ;; Disable current candidate preview
  ;; (corfu-preselect 'prompt)      ;; Preselect the prompt
  ;; (corfu-on-exact-match nil)     ;; Configure handling of exact matches
  ;; (corfu-scroll-margin 5)        ;; Use scroll margin

  ;; Enable Corfu only for certain modes. See also `global-corfu-modes'.
  ;; :hook ((prog-mode . corfu-mode)
  ;;        (shell-mode . corfu-mode)
  ;;        (eshell-mode . corfu-mode))

  ;; Recommended: Enable Corfu globally.  This is recommended since Dabbrev can
  ;; be used globally (M-/).  See also the customization variable
  ;; `global-corfu-modes' to exclude certain modes.
  :init
  (global-corfu-mode)
  (corfu-history-mode))

(use-package cape
  :ensure t
  ;; Bind prefix keymap providing all Cape commands under a mnemonic key.
  ;; Press C-c p ? to for help.
  :bind ("C-c p" . cape-prefix-map) ;; Alternative keys: M-p, M-+, ...
  ;; Alternatively bind Cape commands individually.
  ;; :bind (("C-c p d" . cape-dabbrev)
  ;;        ("C-c p h" . cape-history)
  ;;        ("C-c p f" . cape-file)
  ;;        ...)
  :init
  ;; Add to the global default value of `completion-at-point-functions' which is
  ;; used by `completion-at-point'.  The order of the functions matters, the
  ;; first function returning a result wins.  Note that the list of buffer-local
  ;; completion functions takes precedence over the global list.
  (add-hook 'completion-at-point-functions #'cape-dict) ;; requires words package to be installed on Arch to provide /usr/share/dict/words
  (add-hook 'completion-at-point-functions #'cape-dabbrev)
  (add-hook 'completion-at-point-functions #'cape-file) 
  (add-hook 'completion-at-point-functions #'cape-elisp-block)
  ;; (add-hook 'completion-at-point-functions #'cape-history)
  ;; ...
  )

(use-package gnuplot
  :ensure t)

(use-package org
  :ensure t
  :bind
  (("C-c c" . org-capture)
   ("C-c l" . org-store-link)
   ("C-c a" . org-agenda))
  :custom
  (org-default-notes-file "~/Nextcloud/notes/inbox.org")
  (org-agenda-files `(,org-default-notes-file "~/Nextcloud/notes/calendar-nextcloud.org"))
  (org-capture-bookmark nil)
  ;; Capture templates
  (org-capture-templates
   '(("f" "Fleeting note" entry
      (file+headline org-default-notes-file "Notes")
      "* %?\nEntered on %U\n  %i\n  %a")
     ("b" "Tax receipt" item
      (file "~/Documents/belastingen/FY24-25.org")
      "* %t %a\n")
     ("a" "Appointment" entry
           (file+olp+datetree "~/Nextcloud/notes/calendar-nextcloud.org")
           "* %?\n :PROPERTIES:\n :location: %^{Location}\n :END:\n%(fv/org-capture-appointment-timestamp)\n\n"
           :jump-to-captured t
	   :empty-lines 1
	   :tree-type month
	   :time-prompt t)
     ("p" "Permanent note" plain
      (file denote-last-path)
      #'denote-org-capture
      :no-save t
      :immediate-finish nil
      :kill-buffer t
      :jump-to-captured t)
     ("t" "New task" entry
      (file+headline org-default-notes-file "Tasks")
      "* TODO %i%?")
     ("e" "Email follow-up" entry (file+headline org-default-notes-file "Tasks")
      "* TODO %:fromname: %a %?\nDEADLINE: %(org-insert-time-stamp (org-read-date nil t \"+2d\") t)")))
  ;; Agenda views
  (org-agenda-custom-commands
   '(("P" "Expired calendar events" ((tags "TIMESTAMP<=\"<now>\"")))
     ("n" "Agenda and all TODOs"  ((agenda "") (alltodo "")))))
  :config
  ;; Configure refile
  (defun my/opened-buffer-files ()
    "Return the list of org files currently opened in emacs"
    (delq nil
          (mapcar (lambda (x)
                    (if (and (buffer-file-name x)
                             (string-match "\\.org$"
                                           (buffer-file-name x)))
                        (buffer-file-name x)))
                  (buffer-list))))
  (setq org-refile-targets `((my/opened-buffer-files :maxlevel . 9)
                             (,(file-expand-wildcards  "~/Nextcloud/notes/*.org") :maxlevel . 1)))
  (setq org-agenda-skip-scheduled-if-done t)
  (setq org-agenda-skip-deadline-if-done t)
  (setq org-agenda-start-on-weekday nil)
  (setq org-log-done 'time)
  (require 'subr-x)
  (defun fv/org-babel-after-execute-redisplay ()
  "Redisplay inline images in subtree if cursor in source block with :result graphics."

  (when-let ((info (org-babel-get-src-block-info t))
             (params (org-babel-process-params (nth 2 info)))
             (result-params (cdr (assq :result-params params)))
             ((member "graphics" result-params)))
    (org-display-inline-images nil t)))
  (add-hook 'org-babel-after-execute-hook #'fv/org-babel-after-execute-redisplay)
  ;; 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)
  ;; org-mode support for R and LaTeX
  (org-babel-do-load-languages
   'org-babel-load-languages
   '((R . t)
     (latex . t)
     (gnuplot . t)
     (dot . t))))

(defun fv/org-capture-appointment-timestamp (&optional duration)
  "Get an Org timestamp for an appointment.
Prompt for a start time, calculate the end time by adding DURATION (default 30
minutes), and return a formatted Org timestamp with start and end times."
  (let* ((duration (or duration 30))
         (start-time (org-read-date t t nil "From:"))
         (end-time (time-add start-time (seconds-to-time (* duration 60)))))
    (concat (format-time-string (org-time-stamp-format t) start-time)
            "--"
            (format-time-string (org-time-stamp-format t) end-time))))

(use-package org-caldav
  :ensure t
  :config
  (setq org-caldav-url "https://owncloud.vanrenterghem.biz/remote.php/dav/calendars/frederik")
  (setq org-caldav-calendar-id "default%20calendar")
  ;; Org filename where new entries from calendar stored
  (setq org-caldav-inbox '(file+olp+datetree "~/Nextcloud/notes/calendar-nextcloud.org"))
  ;; Additional Org files to check for calendar events
  (setq org-caldav-files `(,org-default-notes-file))
  (setq org-export-with-broken-links t)
  ;; This makes sure to-do items as a category can show up on the calendar
  (setq org-icalendar-include-todo t)
  ;; This ensures all org "deadlines" show up, and show up as due dates
  (setq org-icalendar-use-deadline '(event-if-todo event-if-not-todo todo-due))
  ;; This ensures "scheduled" org items show up, and show up as start times
  (setq org-icalendar-use-scheduled '(todo-start event-if-todo event-if-not-todo))
  ;; Usually a good idea to set the timezone manually
  (setq org-icalendar-timezone "Australia/Perth")
  (setq org-caldav-delete-calendar-entries 'ask))

(use-package org-protocol)

(use-package edraw-org
  :ensure nil ;; cloned in
  :load-path "~/.emacs.d/lisp/el-easydraw/"
  :after (org)
  :config
  (edraw-org-setup-default)
  (edraw-org-setup-exporter))
  
(use-package tex
  :ensure auctex
  :config
  (setq TeX-auto-save t
	TeX-parse-self t
	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"))))
;; (load "preview-latex.el" nil t t)


;; Automatically switch to various modes
(setq auto-mode-alist
    '(("\\.mdwn\\'" . markdown-mode)
      ("\\.md\\'" . markdown-mode)
      ("\\.yarn\\'" . markdown-mode)
      ("\\.cpp\\'" . c++-mode)
      ("\\.js\\'" . js-mode)
      ("\\.json\\'" . js-mode)
      ("Makefile" . makefile-mode)
      ("README" . markdown-mode)
      ("NEWS" . markdown-mode)
      ("COMMIT_EDITMSG\\'" . text-mode)
      ("\\.html\\'" . html-mode)
      ("\\.css\\'" . css-mode)
      ("\\.yaml\\'" . yaml-mode)
      ("\\.yml\\'" . yaml-mode)
      ("\\.ick\\'" . yaml-mode)
      ("\\.py\\'" . python-mode)
      ("\\.R\\'" . R-mode)
      ("\\.org\\'" . org-mode)
      ("\\.tex\\'" . latex-mode)
      ("\\.sh\\'" . shell-script-mode)
      ("\\.hs\\'" . haskell-mode)
      ("\\.el\\'" . emacs-lisp-mode)))

;; Send mail using SMTP via mail.vanrenterghem.io.
(setq send-mail-function    'smtpmail-send-it)
(setq smtpmail-smtp-server "mail.vanrenterghem.io"
      smtpmail-smtp-service 587
      smtpmail-stream-type 'starttls)
(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)

(setq gnus-select-method '(nntp "news.eternal-september.org"
				(nntp-open-connection-function nntp-open-tls-stream)
				(nntp-port-number 563)
				(nntp-authinfo-user "frederikv")
				(nntp-authinfo-force t)))

(global-set-key [remap list-buffers] 'ibuffer)

;;; use pass (~/.password-store)
;;; (see The Unix password store)
(use-package pass
  :ensure t
  :config
  (auth-source-pass-enable)
  (setq pass-username-field "Username"))

;; Elfeed news reader from Nextcloud
(use-package elfeed
  :ensure t
  :config
  (setq elfeed-use-curl nil)
  (elfeed-set-timeout 36000)
  (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))

(use-package elfeed-protocol
  :ensure t
  :after elfeed
  :config
  (setq elfeed-protocol-feeds '(
				("owncloud+https://frederik@owncloud.vanrenterghem.biz" :use-authinfo t)
        ))
  (elfeed-protocol-enable))


;; Read and write email using mu4e
(use-package mu4e
  :ensure nil
  ;; :ensure-system-package mu ;; Install from aur
  :config
  (setq mail-user-agent 'mu4e-user-agent)
  ;; Also use mu4e when called from gnus-dired-attach
  (setq gnus-dired-mail-mode 'mu4e-user-agent
	mu4e-get-mail-command "mbsync io"
	mu4e-update-interval 600
	mu4e-use-fancy-chars t
	mu4e-view-show-images t
	mu4e-sent-folder   "/Sent"
	mu4e-drafts-folder "/Drafts"
	mu4e-trash-folder  "/Trash"
	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
  (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 .
			      ( :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 (or (mu4e-fetch-field msg "X-Spam-Status") "") " ") 2) " ") "")))))
  (add-to-list 'mu4e-view-fields :spam-status)
  ;; Resize image attachments when sending email
  (defvar mu4e-resize-image-types '("jpg" "png" "svg" "jpeg")
    "List of attached image types to resize.")
  (defvar mu4e-inhibit-resize nil)
  (defun mu4e-resize-image-attachments ()
    (unless mu4e-inhibit-resize
      (let (cmds
	    (image-types
	     (mapconcat #'identity mu4e-resize-image-types "\\|")))
	(save-excursion
	  (message-goto-body-1)
	  (while (re-search-forward 
		  (format "<#part.+\\(filename=\"\\)\\(.+\\(\\.%s\\)\\)\""
			  image-types)
		  nil t)
	    (let* ((infile (match-string-no-properties 2))
		   (outfile (concat (temporary-file-directory)
				    (file-name-nondirectory infile))))
              (push (format "magick convert %s -resize 1200x1200\\> %s"
			    (shell-quote-argument infile)
			    (shell-quote-argument outfile))
		    cmds)
              (replace-match outfile t t nil 2)))
	  (mapcar #'shell-command cmds)))))
  (add-hook 'message-send-hook 'mu4e-resize-image-attachments)
  (add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode) ;; Attach files to messages using dired C-c RET C-a
  (defun mu4e-inhibit-resize()
    (interactive)
    (set (make-local-variable 'mu4e-inhibit-resize) t)))

;; Load configuration for website
;(load "mustache-html")

;; Denote config
(use-package denote
  :ensure t
  :hook (dired-mode . denote-dired-mode)
  :bind
  (("C-c n n" . denote)
   ("C-c n r" . denote-rename-file)
   ("C-c n l" . denote-link)
   ("C-c n b" . denote-backlinks))
  :config
  (setq denote-directory "/home/frederik/Nextcloud/notes/")
  (denote-rename-buffer-mode 1))

(use-package nerd-icons
  ;; :custom
  ;; The Nerd Font you want to use in GUI
  ;; "Symbols Nerd Font Mono" is the default and is recommended
  ;; but you can use any other Nerd Font if you want
  ;; (nerd-icons-font-family "Symbols Nerd Font Mono")
  )

;; Dired configuration
(with-eval-after-load 'dired
  (require 'dired-x)
  ;; Set dired-x global variables here.  For example:
  ;; (setq dired-x-hands-off-my-keys nil)
  )
(add-hook 'dired-mode-hook
          (lambda ()
            ;; Set dired-x buffer-local variables here.
            (dired-omit-mode 1)
	    (dired-hide-details-mode 1)
	    (nerd-icons-dired-mode 1)
            ))
(setq delete-by-moving-to-trash t)
(setq dired-guess-shell-alist-user
      '(("\\.\\(png\\|jpe?g\\|tiff\\)" "feh" "xdg-open")
        ("\\.\\(mp[34]\\|m4a\\|ogg\\|flac\\|webm\\|mkv\\)" "mpv" "xdg-open")
		(".*" "xdg-open")))

;; Use `vertico' package to get a vertical view of the minibuffer.
(use-package vertico
  :ensure t
  :config
  (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
;; as the keybinding associated with it (if any).
(use-package marginalia
  :ensure t
  :config
  (marginalia-mode 1))

;; Use 'winner' mode to undo and redo windows changes
;; using C-c <left> and C-c <right>.
(use-package winner
  :ensure t
  :config
  (winner-mode 1))

;; Use a different spell checker, always
(use-package jinx
  :ensure t
  :config
  (keymap-global-set "M-$" #'jinx-correct)
  :hook (emacs-startup . global-jinx-mode))

(use-package powerthesaurus
  :ensure t
  :init
  (require 'transient)
  (transient-define-prefix my/transient-spelling ()
    "Spelling commands"
    ["Spelling"
      ["Lookups"
        ("y" "Synonyms" powerthesaurus-lookup-synonyms-dwim)
        ("a" "Antonyms" powerthesaurus-lookup-antonyms-dwim)]
      ["Spelling Tools"
        ("x" "Jinx" jinx-mode)
        ("c" "Jinx correct" jinx-correct)]
      ["Dictionary"
        ("d" "Lookup" dictionary-lookup-definition)]
      ["Miscellaneous"
        ("q" "Quit" transient-quit-one)]])
  :bind
  ("C-c s" . my/transient-spelling))

;; Bind embark
(use-package embark
  :ensure t
  :config
  (keymap-global-set "C-." #'embark-act)
  (keymap-global-set "C-;" #'embark-dwim))

(use-package consult
  :ensure t
  :config
  ;; Change default bindings to consult- ones
  :bind
  (;; C-x bindings in `ctl-x-map'
   ("C-x b" . consult-buffer)                ;; orig. switch-to-buffer
   ("C-x 4 b" . consult-buffer-other-window) ;; orig. switch-to-buffer-other-window
   ("C-x r b" . consult-bookmark)            ;; orig. bookmark-jump
   ;; 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)
  )

(use-package consult-denote
  :ensure t)

;; Configure `world-clock'
(use-package time
  :ensure nil
  :config
  (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
(setq pdf-misc-print-programm "/usr/bin/lpr")
  
(use-package magit
  :ensure t)

(use-package eat
  :ensure t
  :config
   ;; For `eat-eshell-mode'.
  (add-hook 'eshell-load-hook #'eat-eshell-mode)
  (setq eshell-visual-commands '()))

;; Read ePub files
(use-package nov
  :ensure t
  :init
  (add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode))
  :config
  (add-hook 'nov-mode-hook #'variable-pitch-mode))

;; Set some preset fonts
(use-package fontaine
  :ensure t
  :config
  (setq fontaine-presets
      '((regular-1
         :default-family "Iosevka Nerd Font"
         :default-height 120
         :variable-pitch-family "Linux Biolinum O"
	 :variable-pitch-weight normal
	 :variable-pitch-height 1.1
         :italic-family "Iosevka Etoile"
         :line-spacing 1)
	(large-1
         :default-family "Iosevka Nerd Font"
         :default-height 150
         :variable-pitch-family "Literata"
	 :variable-pitch-weight normal
	 :variable-pitch-height 1.0
         :line-spacing 1)
	(regular-2
         :default-family "Fira Mono Nerd Font"
         :default-height 140
         :variable-pitch-family "Fira Sans Book"
	 :variable-pitch-weight normal
	 :variable-pitch-height 1.0
         :line-spacing 1)
        (large-2
         :default-family "Fira Mono Nerd Font"
         :default-height 140
         :variable-pitch-family "Fira Sans Book"
	 :variable-pitch-weight normal
	 :variable-pitch-height 1.0
         :line-spacing 1)
	(ereader-Baskerville
         :variable-pitch-family "Libre Baskerville"
	 :variable-pitch-weight normal
	 :variable-pitch-height 1.0
         :line-spacing 1)
	(ereader-Noto-Serif
	 :variable-pitch-family "Noto Serif"
	 :variable-pitch-weight normal
	 :variable-pitch-height 1.0
         :line-spacing 1)
	(ereader-Bembo-Tufte
	 :variable-pitch-family "ETBembo"
	 :variable-pitch-weight normal
	 :variable-pitch-height 1.1
         :line-spacing 1)
	(ereader-Literata
	 :variable-pitch-family "Literata"
	 :variable-pitch-weight normal
	 :variable-pitch-height 1.0
         :line-spacing 1))))

(use-package devdocs
  :ensure t
  :bind
  ("C-h D" . devdocs-lookup))

(use-package emms
  :ensure t
  :config
  (require 'emms-setup)
  (require 'emms-player-mpd)
  (emms-all) ; don't change this to values you see on stackoverflow questions if you expect emms to work
  (setq emms-player-list '(emms-player-mpd))
  (add-to-list 'emms-info-functions 'emms-info-mpd)
  (add-to-list 'emms-player-list 'emms-player-mpd)
  
  ;; Socket is not supported
  (setq emms-player-mpd-server-name "mea-hookani-pila")
  (setq emms-player-mpd-server-port "6600")
  (emms-player-mpd-connect))

;; Custom functions

;; Might want to run this automatically
;; using variable after-focus-change-function
(defun my/adjust-font-size-based-on-display ()
  "Change size of fonts based on monitor."
  (interactive)
  (let* ((display-name (cdr (assq 'name (frame-monitor-attributes))))
	 (font-height (cond ((string-equal display-name "eDP-1") 140) 
			    (t 120) ;; default
			    )))
    (set-face-attribute 'default (selected-frame) :height font-height)))