#+title: Emacs Configuration
#+AUTHOR: Preston Pan
#+DESCRIPTION: my personal emacs configuration for nixOS
#+html_head: <link rel="stylesheet" type="text/css" href="../style.css" />

* Introduction
This is my Vanilla Emacs configuration, made to work with my NixOS configuration. For that
reason, you will not see :ensure t inside any use-package declaration, for emacs packages
are all compiled natively and reproducibly on the NixOS side. This configuration uses the
emacs-lisp language only to configure variables for said packages, for the most part.
** User
Change these variables:
#+begin_src emacs-lisp
  (setq system-email "ret2pop@gmail.com")
  (setq system-username "prestonpan")
  (setq system-fullname "Preston Pan")
#+end_src
** Emacs
#+begin_src emacs-lisp
  (use-package emacs
    :custom
    (scroll-conservatively 101)
    (display-time-24hr-format t)
    (display-line-numbers-type 'relative)
    (use-short-answers t)
    (make-backup-files nil)
    (warning-minimum-level :emergency)
    (debug-ignored-errors
     (cons 'remote-file-error debug-ignored-errors))
    (mouse-wheel-scroll-amount '(1 ((shift) . 1)))
    (mouse-wheel-progressive-speed nil)
    (mouse-wheel-follow-mouse 't)
    (scroll-step 1)
    (display-fill-column-indicator-column 100)
    :config
    (require 'tex-site)
    (pixel-scroll-precision-mode 1)
    (display-battery-mode 1)
    (display-time-mode 1)
    (menu-bar-mode -1)
    (scroll-bar-mode -1)
    (tool-bar-mode -1)
    (and window-system (server-start))
    (load-theme 'catppuccin :no-confirm)
    (set-face-attribute 'default nil :height 120)
    (set-frame-parameter nil 'alpha-background 90)
    (add-to-list 'default-frame-alist '(alpha-background . 90))
    (set-face-attribute 'default nil :font "Iosevka Nerd Font" :height 140)
    (setq-default line-spacing 2)
    (setq-default fill-column 100)
    (global-prettify-symbols-mode 1)

    :hook ((text-mode . auto-fill-mode)
  	 (text-mode . visual-line-mode)
  	 (prog-mode . auto-fill-mode)
  	 (prog-mode . display-line-numbers-mode)
  	 (prog-mode . display-fill-column-indicator-mode)
  	 (org-mode . auto-fill-mode)
  	 (org-mode . display-fill-column-indicator-mode)

  	 (org-mode . (lambda ()
    		       (setq prettify-symbols-alist
    			     '(("#+begin_src" . ?)
    			       ("#+BEGIN_SRC" . ?)
    			       ("#+end_src" . ?)
    			       ("#+END_SRC" . ?)
    			       ("#+begin_example" . ?)
    			       ("#+BEGIN_EXAMPLE" . ?)
    			       ("#+end_example" . ?)
    			       ("#+END_EXAMPLE" . ?)
    			       ("#+header:" . ?)
    			       ("#+HEADER:" . ?)
    			       ("#+name:" . ?﮸)
    			       ("#+NAME:" . ?﮸)
    			       ("#+results:" . ?)
    			       ("#+RESULTS:" . ?)
    			       ("#+call:" . ?)
    			       ("#+CALL:" . ?)
    			       (":PROPERTIES:" . ?)
    			       (":properties:" . ?)
    			       ("lambda" . ?λ)
    			       ("->"     . ?→)
    			       ("map"    . ?↦)
    			       ("/="     . ?≠)
    			       ("!="     . ?≠)
    			       ("=="     . ?≡)
    			       ("<="     . ?≤)
    			       (">="     . ?≥)
    			       ("&&"     . ?∧)
    			       ("||"     . ?∨)
    			       ("sqrt"   . ?√)
    			       ("..."    . ?…)))
    		   (prettify-symbols-mode)))
  	 (prog-mode .
    		    (lambda ()
    		      (setq prettify-symbols-alist
    			    '(("lambda" . ?λ)
    			      ("->"     . ?→)
    			      ("map"    . ?↦)
    			      ("/="     . ?≠)
    			      ("!="     . ?≠)
    			      ("=="     . ?≡)
    			      ("<="     . ?≤)
    			      (">="     . ?≥)
    			      ("&&"     . ?∧)
    			      ("||"     . ?∨)
    			      ("sqrt"   . ?√)
    			      ("..."    . ?…)))
    		      (prettify-symbols-mode)))))
#+end_src
** Org Mode
#+begin_src emacs-lisp
  (use-package org
    :init
    (setq org-confirm-babel-evaluate nil)
    (setq org-export-with-broken-links t)
    (setq org-src-fontify-natively t)
    (setq org-latex-preview-image-directory (expand-file-name "~/.cache/ltximg/"))
    (setq org-preview-latex-image-directory (expand-file-name "~/.cache/ltximg/"))
    (setq org-latex-pdf-process
  	'("xelatex -interaction=nonstopmode -output-directory=%o %f"))
    (setq preview-default-option-list '("displaymath" "textmath" "graphics"))
    (setq preview-image-type 'png)
    (setq TeX-engine 'xetex)
    (setq TeX-PDF-mode t)
    (setq org-format-latex-options (plist-put org-format-latex-options :scale 1.5))
    (setq org-return-follows-link t)
    (setq org-startup-with-latex-preview t)
    (setq org-habit-preceding-days 1)
    (setq-default org-startup-indented t
    		org-pretty-entities t
    		org-use-sub-superscripts "{}"
    		org-hide-emphasis-markers t
    		org-startup-with-inline-images t
    		org-image-actual-width '(300))
    (setq org-agenda-files (list "~/org/agenda.org"
  			       "~/org/notes.org"
  			       "~/org/website/agenda.org"))
    (setq org-default-notes-file (concat org-directory "/notes.org"))
    (setq org-publish-project-alist
  	'(("website-org"
  	   :base-directory "~/org/website"
  	   :base-extension "org"
  	   :publishing-directory "~/website_html"
  	   :recursive t
  	   :publishing-function org-html-publish-to-html
  	   :headline-levels 4
  	   :html-preamble t
  	   :html-preamble-format (("en" "<p class=\"preamble\"><a href=\"/index.html\">home</a> | <a href=\"./index.html\">section main page</a></p><hr>")))
  	  ("website-static"
  	   :base-directory "~/org/website"
  	   :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf\\|ico\\|asc\\|pub\\|webmanifest\\|xml"
  	   :publishing-directory "~/website_html/"
  	   :recursive t
  	   :publishing-function org-publish-attachment)
  	  ("website" :auto-sitemap t :components ("website-org" "website-static"))))
    (setq org-html-postamble "Copyright © 2024 Preston Pan")
    :config
    (require 'ox-publish)
    (require 'org-tempo)
    (require 'org-habit)
    (org-babel-do-load-languages 'org-babel-load-languages
  			       '((shell . t)
  				 (python . t)
  				 (latex . t))))
#+end_src
* Unicode
#+begin_src emacs-lisp
  (use-package unicode-fonts
    :init (unicode-fonts-setup))
#+end_src
* Autopair
Use electric-pair to automatically complete pairs of things. We need to change
what electric-pair does based on the mode.
#+begin_src emacs-lisp
  (use-package electric-pair
    :hook ((org-mode . electric-pair-mode)
  	 (prog-mode . electric-pair-mode)))
#+end_src
* Lyrics
#+begin_src emacs-lisp
  (use-package lyrics-fetcher
    :after (emms)
    :config
    (setq lyrics-fetcher-genius-access-token
      (password-store-get "genius_api"))
    (lyrics-fetcher-use-backend 'genius))
#+end_src
* Fragtog
#+begin_src emacs-lisp
  (use-package org-fragtog :hook (org-mode . org-fragtog-mode))
#+end_src
* Snippets
#+begin_src emacs-lisp
  (use-package yasnippet
    :config
    (add-to-list 'yas-snippet-dirs "~/org/website/yasnippet/")
    (yas-global-mode 1)
    :hook (org-mode . (lambda () (yas-minor-mode) (yas-activate-extra-mode 'latex-mode))))
#+end_src
* Completion
Company-mode! We need this to do autocomplete stuff.
#+begin_src emacs-lisp
  (use-package company
    :config
    '(add-to-list 'company-backends
  		'(company-ispell company-capf company-irony
  				 company-yasnippet company-files))
    :hook ((after-init . global-company-mode)))
#+end_src
* Spelling
#+begin_src emacs-lisp
  (use-package ispell
    :init
    (setq ispell-program-name "aspell")
    (setq ispell-silently-savep t)
    (setq ispell-dictionary "en")
    (setq ispell-alternate-dictionary "~/.local/share/dict"))

  (use-package flyspell
    :hook (text-mode . flyspell-mode))
#+end_src
* Packages
First, some small configurations and some evil-mode initilaization because I like vim keybindings:
#+begin_src emacs-lisp
  (use-package evil
    :init
    (setq evil-want-keybinding nil)
    :config
    (evil-mode 1)
    (evil-set-undo-system 'undo-redo))

  (use-package evil-collection
    :after (evil)
    :init
    (setq evil-want-keybinding nil)
    :config
    (evil-collection-init))
  (with-eval-after-load 'evil-maps
  (define-key evil-motion-state-map (kbd "SPC") nil)
  (define-key evil-motion-state-map (kbd "RET") nil)
  (define-key evil-motion-state-map (kbd "TAB") nil))

  (use-package evil-commentary
    :after (evil)
    :config
    (evil-commentary-mode))

  (use-package evil-org
    :after (evil org) 
    :hook (org-mode . (lambda () evil-org-mode))
    :config
    (require 'evil-org-agenda)
    (evil-org-agenda-set-keys))

  (use-package which-key
    :config
    (which-key-mode))

  (use-package page-break-lines
    :init
    (page-break-lines-mode))
  (evil-set-initial-state 'pdf-view-mode 'normal)
#+end_src
** Journal
I use org-journal to journal about my life, and it's a part of my website:
#+begin_src emacs-lisp
  (use-package org-journal
    :after (org)
    :init
      (setq org-journal-dir "~/org/website/journal/")
      (setq org-journal-date-format "%A, %d %B %Y")

      (defun org-journal-file-header-func (time)
      "Custom function to create journal header."
      (concat
	(pcase org-journal-file-type
	  (`daily "#+TITLE: Daily Journal\n#+STARTUP: showeverything\n#+DESCRIPTION: My daily journal entry\n#+AUTHOR: Preston Pan\n#+HTML_HEAD: <link rel=\"stylesheet\" type=\"text/css\" href=\"../style.css\" />\n#+html_head: <script src=\"https://polyfill.io/v3/polyfill.min.js?features=es6\"></script>\n#+html_head: <script id=\"MathJax-script\" async src=\"https://cdn.jsdelivr.net/npm/mathjax@3/es5/tex-mml-chtml.js\"></script>\n#+options: broken-links:t")
	  (`weekly "#+TITLE: Weekly Journal\n#+STARTUP: folded")
	  (`monthly "#+TITLE: Monthly Journal\n#+STARTUP: folded")
	  (`yearly "#+TITLE: Yearly Journal\n#+STARTUP: folded"))))

    (setq org-journal-file-header 'org-journal-file-header-func)
    (setq org-journal-file-format "%Y%m%d.org")
    (setq org-journal-enable-agenda-integration t))
#+end_src
** Doom Modeline
The default modeline is ugly.
#+begin_src emacs-lisp
  (use-package doom-modeline
    :config
    (doom-modeline-mode 1))
#+end_src
** Grammar
I want to write good!
#+begin_src emacs-lisp
(use-package writegood-mode
  :hook (text-mode . writegood-mode))
#+end_src
** Make Org Look Better
Org superstar adds those nice looking utf-8 bullets:
#+begin_src emacs-lisp
  (use-package org-superstar
    :after (org)
    :hook (org-mode . (lambda () (org-superstar-mode 1))))
#+end_src
** LSP
We set up eglot, the LSP manager for emacs, now built in:
#+begin_src emacs-lisp
  (use-package eglot
    :config
    (add-to-list 'eglot-server-programs '(nix-mode . ("nil")))
    :hook
    (prog-mode . eglot-ensure)
    (nix-mode . eglot-ensure))
  (use-package lsp
    :hook
    (prog-mode . lsp))
  (use-package platformio-mode
    :hook (prog-mode . platformio-conditionally-enable))
#+end_src
*** C/C++
#+begin_src emacs-lisp
  (use-package irony-mode
    :hook (
    (c++-mode . irony-mode)
    (c-mode . irony-mode)
    (objc-mode . irony-mode)
    (irony-mode . irony-cdb-autosetup-compile-options)))

  (use-package irony-eldoc
    :hook ((irony-mode . irony-eldoc)))
#+end_src
*** Solidity
For writing solidity:
#+begin_src emacs-lisp
  (use-package solidity-mode)
  (use-package company-solidity)
  (use-package solidity-flycheck
    :init
    (setq solidity-flycheck-solc-checker-active t))

  (use-package flycheck
    :config (global-flycheck-mode))
#+end_src
** Projectile
Manages projects and shit.
#+begin_src emacs-lisp
  (use-package projectile
    :init
    (setq projectile-project-search-path '("~/org" "~/src"))
    :config
    (projectile-mode +1))
#+end_src
** Dashboard
We want our emacs initialization to be pretty and display useful things.
#+begin_src emacs-lisp
  (use-package dashboard
    :after (projectile)
    :init
    (setq dashboard-banner-logo-title "Welcome, Commander!")
    (setq dashboard-icon-type 'nerd-icons)
    (setq dashboard-vertically-center-content t)
    (setq dashboard-set-init-info t)
    (setq dashboard-week-agenda t)
    (setq dashboard-items '((recents   . 5)
			(bookmarks . 5)
			(projects  . 5)
			(agenda    . 5)
			(registers . 5)))
    :config
    (dashboard-setup-startup-hook))
#+end_src
** Ivy
Ivy is a pretty cool general program for displaying stuff:
#+begin_src emacs-lisp
  (use-package counsel)
  (use-package ivy
    :init
    (setq ivy-use-virtual-buffers t)
    (setq enable-recursive-minibuffers t)
    :bind
    ;; enable this if you want `swiper' to use it
    ;; (setq search-default-mode #'char-fold-to-regexp)
    ("C-s" . swiper)
    ("C-c C-r" . ivy-resume)
    ("M-x" . counsel-M-x)
    ("C-x C-f" . counsel-find-file)
    ("<f1> f" . counsel-describe-function)
    ("<f1> v" . counsel-describe-variable)
    ("<f1> o" . counsel-describe-symbol)
    ("<f1> l" . counsel-find-library)
    ("<f2> i" . counsel-info-lookup-symbol)
    ("<f2> u" . counsel-unicode-char)
    ("C-c g" . counsel-git)
    ("C-c j" . counsel-git-grep)
    ("C-c k" . counsel-ag)
    ("C-x l" . counsel-locate)
    :config
    (ivy-mode))
  (define-key ivy-minibuffer-map (kbd "C-j") 'ivy-immediate-done)
#+end_src
** Magit
#+begin_src emacs-lisp
(use-package magit)
#+end_src
** IRC
#+begin_src emacs-lisp
  (use-package erc
    :init
    (setq
     erc-nick system-username
     erc-user-full-name system-fullname))
#+end_src
** Keybindings
#+begin_src emacs-lisp
  (use-package general
    :init
    (defun prestonpan ()
      (interactive)
      (erc-tls :server "nullring.xyz"
    	     :port   "6697"))
    (defun liberachat ()
      (interactive)
      (erc-tls :server "irc.libera.chat"
    	     :port   "6697"))
    (defun efnet ()
      (interactive)
      (erc-tls :server "irc.prison.net"
    	     :port   "6697"))
    (defun matrix-org ()
      (interactive)
      (ement-connect :uri-prefix "http://localhost:8009"))
    :config
    (general-create-definer leader-key
      :prefix "SPC")
    (leader-key 'normal
      "o a" '(org-agenda :wk "Open agenda")
      "o c" '(org-capture :wk "Capture")
      "n j j" '(org-journal-new-entry :wk "Make new journal entry")
      "n r f" '(org-roam-node-find :wk "Find roam node")
      "n r i" '(org-roam-node-insert :wk "Insert roam node")
      "n r a" '(org-roam-alias-add :wk "Add alias to org roam node")
      "n r g" '(org-roam-graph :wk "Graph roam database")
      "r s s" '(elfeed :wk "rss feed")
      "." '(counsel-find-file :wk "find file")
      "g /" '(magit-dispatch :wk "git commands")
      "g P" '(magit-push :wk "git push")
      "g c" '(magit-commit :wk "git commit")
      "g p" '(magit-pull :wk "Pull from git")
      "g s" '(magit-status :wk "Change status of files")
      "o t" '(vterm :wk "Terminal")
      "o e" '(eshell :wk "Elisp Interpreter")
      "o m" '(mu4e :wk "Email")
      "e w w" '(eww :wk "web browser")
      "e c c" '(ellama-chat :wk "Chat with Ollama")
      "e a b" '(ellama-ask-about :wk "Ask Ollama")
      "e s" '(ellama-summarize :wk "Summarize text with Ollama")
      "e c r" '(ellama-code-review :wk "Review code with Ollama")
      "e c C" '(ellama-code-complete :wk "Complete code with Ollama")
      "e c a" '(ellama-code-add :wk "Add code with Ollama")
      "e c e" '(ellama-code-edit :wk "Edit code with Ollama")
      "e w i" '(ellama-improve-wording :wk "Improve wording with Ollama")
      "e g i" '(ellama-improve-grammar :wk "Improve grammar with Ollama")
      "g s" '(gptel-send :wk "Send to Ollama")
      "g e" '(gptel :wk "Ollama interface")
      "p w" '(ivy-pass :wk "Password manager interface")
      "m P p" '(org-publish :wk "Publish website components")
      "s e" '(sudo-edit :wk "Edit file with sudo")
      "m m" '(emms :wk "Music player")
      "m l" '(lyrics-fetcher-show-lyrics :wk "Music lyrics")
      "o p" '(treemacs :wk "Project Drawer")
      "o P" '(treemacs-projectile :wk "Import Projectile project to treemacs")
      "f f" '(eglot-format :wk "Format code buffer")
      "i p c" '(prestonpan :wk "Connect to my IRC server")
      "i l c" '(liberachat :wk "Connect to libera chat server")
      "i e c" '(efnet :wk "Connect to efnet chat server")
      "h m" '(woman :wk "Manual")
      "h i" '(info :wk "Info")
      "s m" '(proced :wk "System Manager")
      "l p" '(list-processes :wk "List Emacs Processes")
      "m I" '(org-id-get-create :wk "Make org id")
      "w r" '(writeroom-mode :wk "focus mode for writing")
      "y n s" '(yas-new-snippet :wk "Create new snippet")
      "u w" '((lambda () (interactive) (shell-command "rsync -azvP ~/website_html/ root@nullring.xyz:/usr/share/nginx/ret2pop/")) :wk "rsync website update")
      "h r r" '(lambda () (interactive) (org-babel-load-file (expand-file-name "~/org/website/config/emacs.org")))))
#+end_src
** LLM
I use LLMs in order to help me come up with ideas. I use a local LLM so that I can have a
competitive LLM that doesn't cost money.
#+begin_src emacs-lisp
  (use-package ellama
    :init
    (setopt ellama-sessions-directory "~/org/ellama/")
    (require 'llm-ollama)
    (with-eval-after-load 'llm-ollama)
    (setopt ellama-provider (make-llm-ollama
	     :host "localhost"
	     :chat-model "gemma:7b")))
#+end_src
** RSS Feed
I use really simple syndication (RSS) in order to read news. As a result, I use
elfeed to fetch feeds found on my website:
#+begin_src emacs-lisp
  (use-package elfeed
    :hook ((elfeed-search-mode . elfeed-update))
    :init
    (setq elfeed-search-filter "@1-month-ago +unread"))

  (use-package elfeed-org
    :init
    (setq rmh-elfeed-org-files '("~/org/website/config/elfeed.org"))
    :config
    (elfeed-org))
#+end_src
Then we set up elfeed-tube for Youtube video RSS feeds (so I don't ever have to use the web
interface and can control it from emacs):
#+begin_src emacs-lisp
  (use-package elfeed-tube
    :after elfeed
    :demand t
    :config
    ;; (setq elfeed-tube-auto-save-p nil) ; default value
    ;; (setq elfeed-tube-auto-fetch-p t)  ; default value
    (elfeed-tube-setup)

    :bind (:map elfeed-show-mode-map
           ("F" . elfeed-tube-fetch)
           ([remap save-buffer] . elfeed-tube-save)
           :map elfeed-search-mode-map
           ("F" . elfeed-tube-fetch)
           ([remap save-buffer] . elfeed-tube-save)))

  (use-package elfeed-tube-mpv
    :bind (:map elfeed-show-mode-map
                ("C-c C-f" . elfeed-tube-mpv-follow-mode)
                ("C-c C-c" . elfeed-tube-mpv)
                ("C-c C-w" . elfeed-tube-mpv-where)
           :map elfeed-search-mode-map
  	        ("M" . elfeed-tube-mpv)))
#+end_src
** Project Drawer
#+begin_src emacs-lisp
  (use-package treemacs)
  (use-package treemacs-evil
    :after (treemacs evil))
  (use-package treemacs-projectile
    :after (treemacs projectile))
  (use-package treemacs-magit
    :after (treemacs magit))
#+end_src
** Eww
Used only for the purpose of viewing RSS feed items in emacs if I can, only resorting
to Chromium if I have to:
#+begin_src emacs-lisp
  (use-package eww
    :init
    (setq search-engines
  	'((("google" "g") "https://google.com/search?q=%s")
            (("duckduckgo" "d" "ddg") "https://duckduckgo.com/?q=%s")
            (("rfc" "r") "https://www.rfc-editor.org/rfc/rfc%s.txt")
            (("rfc-kw" "rk") "https://www.rfc-editor.org/search/rfc_search_detail.php?title=%s")))

    (setq search-engine-default "google")
    (setq eww-search-prefix "https://google.com/search?q=")
    (setq browse-url-secondary-browser-function 'browse-url-generic browse-url-generic-program "firefox")
    :hook ((eww-mode . (lambda () (local-set-key (kbd "y Y") #'eww-copy-page-url)))))
#+end_src
** Org Roam
For all my mathematics and programming notes:
#+begin_src emacs-lisp
    (use-package org-roam
      :after (org)
      :init
      (setq org-roam-db-update-on-save t)
      (setq org-roam-graph-viewer "chromium")
      (setq org-roam-directory (file-truename "~/org/website/mindmap"))
      (setq org-roam-capture-templates '(("d" "default" plain "%?"
      :target (file+head "${title}.org"
  	   "#+title: ${title}\n#+author: Preston Pan\n#+html_head: <link rel=\"stylesheet\" type=\"text/css\" href=\"../style.css\" />\n#+html_head: <script src=\"https://polyfill.io/v3/polyfill.min.js?features=es6\"></script>\n#+html_head: <script id=\"MathJax-script\" async src=\"https://cdn.jsdelivr.net/npm/mathjax@3/es5/tex-mml-chtml.js\"></script>\n#+options: broken-links:t")
  	:unnarrowed t)))
      :config
      (org-roam-db-autosync-mode))

  (use-package org-roam-ui
      :after org-roam
      :hook (after-init . org-roam-ui-mode)
      :config
      (setq org-roam-ui-sync-theme t
  	    org-roam-ui-follow t
  	    org-roam-ui-update-on-save t
  	    org-roam-ui-open-on-start t))
#+end_src

** Pinentry
Set up pinentry so that I can use emacs as my pinentry frontend:
#+begin_src emacs-lisp
  (use-package pinentry
    :init (setq epa-pinentry-mode `loopback)
    :config (pinentry-start))
#+end_src
** LaTeX
Make LaTeX a litle better:
#+begin_src emacs-lisp
  ;; (use-package latex-preview-pane
  ;;   :config
  ;;   (latex-preview-pane-enable))
#+end_src
** Email
Email in emacs can be done with Mu4e.
#+begin_src emacs-lisp
  ;; SMTP settings:
  (use-package smtpmail
    :config
    (setq user-mail-address system-email)
    (setq user-full-name system-fullname)
    (setq sendmail-program "msmtp"
  	send-mail-function 'smtpmail-send-it
  	message-sendmail-f-is-evil t
  	message-sendmail-extra-arguments '("--read-envelope-from")
  	message-send-mail-function 'message-send-mail-with-sendmail))

  (use-package mu4e
    :after smtpmail
    :init
    (setq mu4e-drafts-folder "/Drafts")
    (setq mu4e-sent-folder   "/Sent")
    (setq mu4e-trash-folder  "/Trash")
    (setq mu4e-attachment-dir  "~/Downloads")
    (setq mu4e-view-show-addresses 't)
    (setq mu4e-confirm-quit nil)


    (setq message-kill-buffer-on-exit t)
    (setq mu4e-compose-dont-reply-to-self t)
    (setq mu4e-change-filenames-when-moving t)
    (setq mu4e-get-mail-command "mbsync ret2pop")
    (setq mu4e-compose-reply-ignore-address (list "no-?reply" system-email))
    (setq mu4e-html2text-command "w3m -T text/html" ; how to hanfle html-formatted emails
  	    mu4e-update-interval 300                  ; seconds between each mail retrieval
  	    mu4e-headers-auto-update t                ; avoid to type `g' to update
  	    mu4e-view-show-images t                   ; show images in the view buffer
  	    mu4e-compose-signature-auto-include nil   ; I don't want a message signature
  	    mu4e-use-fancy-chars t))
#+end_src
** Password Manager
I use ~pass~ in order to manage my passwords on linux, and this is an ivy frontend for it:
#+begin_src emacs-lisp
(use-package ivy-pass)
#+end_src
** Music
Set up emms in order to play music from my music directory:
#+begin_src emacs-lisp
  (use-package emms
    :init
    (emms-all)
    (setq emms-source-file-default-directory (expand-file-name "~/music/"))
    (setq emms-player-mpd-music-directory (expand-file-name "~/music/"))
    (setq emms-player-mpd-server-name "localhost")
    (setq emms-player-mpd-server-port "6600")
    (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)
  :config (emms-player-mpd-connect))
#+end_src