;;; init --- My emacs init file
;;; Commentary:
;;; Code:
(eval-when-compile
  (require 'use-package)
  (require 'use-package-ensure)
  (setq use-package-verbose nil)
  (setq use-package-always-ensure t))

;; Dependencies that inject `:keywords' into `use-package' should be
;; included before all other packages.
;; For :diminish in (use-package). Hides minor modes from the status line.
(use-package diminish)
;; For :general in (use-package). Keybinding management framework.
(use-package general
  :config
  (general-evil-setup t)

  (nmap
    :prefix "SPC"
    "SPC"  '(:ignore t :which-key "mode")

    "b"    '(:ignore t :which-key "buffer")
    "bd"   '(kill-this-buffer :which-key "kill")

    "f"    '(:ignore t :which-key "file")
    "fs"   '(save-buffer :which-key "save")

    "h"    '(:ignore t :which-key "help")

    "q"    '(:ignore t :which-key "quit")
    "qq"   '(save-buffers-kill-emacs :which-key "quit")

    "s"    '(:ignore t :which-key "search")

    "w"    '(:ignore t :which-key "window")
    "wv"   '(split-window-vertically :which-key "split vertical")
    "ws"   '(split-window-horizontally :which-key "split horizontal")
    "wd"   '(delete-window :which-key "delete")
    )
  )

;; Better defaults that aren't defaults for some reason.
(use-package better-defaults)

;; Autocomplete
(use-package company
  :diminish (company-mode)
  :config (global-company-mode)
  )

;; Replacements for emacs built-ins that better integrate with `ivy'.
(use-package counsel
  :demand t
  :diminish (counsel-mode)
  :config (counsel-mode 1)
  :general
  (nmap
    :prefix "SPC"
    "x"   '(counsel-M-x :which-key "execute")
    "bb"  '(counsel-switch-buffer :which-key "switch")
    "ff"  '(counsel-find-file :which-key "find")
    "fr"  '(counsel-recentf :which-key "recent")
    "ha"  '(counsel-apropos :which-key "apropos")
    "hb"  '(counsel-descbinds :which-key "bindings")
    "hf"  '(counsel-describe-function :which-key "function")
    "hv"  '(counsel-describe-variable :which-key "variable")
    )
  )

;; Direnv integration in emacs.
(use-package direnv :config (direnv-mode))

;; Vim keybindings
(use-package evil
  :custom
  (evil-want-keybinding nil "Disable default evil keybindings, since
    evil-collection is a superset. See
    https://github.com/emacs-evil/evil-collection/issues/60.")
  (evil-want-integration t "Also needed for evil-collection")
  :config (evil-mode 1)
  )

;; Vim keybindings in other packages
(use-package evil-collection
  :after (evil)
  :config (evil-collection-init)
  )

;; Ligatures in GUI mode
;; Should probably switch to ligature.el, but it isn't on MELPA (yet).
(use-package fira-code-mode :config (when window-system (global-fira-code-mode)))

;; Linting
(use-package flycheck
  :diminish (flycheck-mode)
  :config (global-flycheck-mode)
  )

;; Autocomplete framework
(use-package ivy
  :custom
  (ivy-count-format "(%d/%d) " "Format used to display match count")
  (ivy-height 20 "Maximum height of the ivy buffer")
  (ivy-use-virtual-buffers t "Include recent files and bookmarks in buffer switch")
  (ivy-wrap t "Wrap next and previous at the end and beginning of the completion list")
  :config (ivy-mode 1)
  :diminish (ivy-mode)
  )

;; Ledger syntax support
(use-package ledger-mode
  :mode "\\.journal\\'"
  :custom
  (ledger-binary-path "hledger" "Use hledger instead of ledger")
  (ledger-highlight-xact-under-point nil "Remove distracting highlight")
  (ledger-mode-should-check-version nil "Remove version check, since it doesn't work with hledger anyway")
  (ledger-post-account-alignment-column 4 "Indent postings with 4 spaces")
  (ledger-post-amount-alignment-at :decimal "Align on the decimal")
  (ledger-post-amount-alignment-column 59 "Align on column 60")
  (ledger-post-auto-align t "Align when moving to the next line")
  )

;; Language server support
(use-package lsp-mode :commands (lsp))

;; Git integration
(use-package magit
  :demand t
  :general
  (nmap
    :prefix "SPC"
    "g" '(:ignore t :which-key "git")
    "gs" '(magit-status :which-key "status")
    )
  )

;; Markdown syntax support
(use-package markdown-mode
  :commands (markdown-mode gfm-mode)
  :mode ("README\\.md\\'" . gfm-mode)
  :mode ("\\.md\\'" . markdown-mode)
  :mode ("\\.markdown\\'" . markdown-mode)
  )

;; Theming
(use-package modus-themes
  :custom
  (modus-themes-bold-constructs t "Use bold accents")
  (modus-themes-syntax 'alt-syntax-yellow-comments "Show comments in yellow instead of gray")
  (modus-themes-promts 'intense-accented "Colours are nice")
  (modus-themes-mode-line 'borderless "Thin borders are ugly")
  (modus-themes-region 'bg-only "Don't lose syntax highlighting in the active region")
  :config
  (modus-themes-load-themes)
  (modus-themes-load-operandi)
  )

(use-package mu4e
  ;; Use mu4e included in the mu package, see emacs.nix
  :ensure nil
  :demand t
  :custom
  (mu4e-change-filenames-when-moving t "Avoid sync issues with mbsync")
  (mu4e-maildir "/home/charlotte/mail" "Root of the maildir hierarchy")
  (mu4e-context-policy 'pick-first "Use the first mail context in the list")
  (mu4e-compose-format-flowed t "Flow emails correctly for recipients")
  (mu4e-attachment-dir "/home/charlotte/downloads" "Save attachments to downloads folder")
  (mu4e-compose-dont-reply-to-self t "Don't reply to mysel on reply to all")
  (mu4e-confirm-quit nil "Don't confirm when quitting")
  (message-kill-buffer-on-exit t "Close buffer when finished with email")
  (sendmail-program "msmtp" "Use msmtp to send email")
  (message-sendmail-f-is-evil t "Remove username from the emacs message")
  (message-send-mail-function 'message-send-mail-with-sendmail "Use sendmail to send mail instead internal smtp")
  (message-cite-reply-position 'below)
  :config
  (setq mu4e-contexts
   (list
    (make-mu4e-context
     :name "Personal"
     :match-func (lambda (msg) (when msg (string-prefix-p "/personal" (mu4e-message-field msg :maildir))))
     :vars '(
             (user-mail-address . "charlotte@vanpetegem.me")
             (user-full-name . "Charlotte Van Petegem")
             (mu4e-drafts-folder . "/personal/Drafts")
             (mu4e-sent-folder . "/personal/INBOX")
             (mu4e-refile-folder . "/personal/Archive")
             (mu4e-trash-folder . "/personal/Trash")
             (message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "personal"))
             )
     )
    (make-mu4e-context
     :name "Work"
     :match-func (lambda (msg) (when msg (string-prefix-p "/work/" (mu4e-message-field msg :maildir))))
     :vars '(
             (user-mail-address . "charlotte.vanpetegem@ugent.be")
             (user-full-name . "Charlotte Van Petegem")
             (mu4e-drafts-folder . "/work/Drafts")
             (mu4e-sent-folder . "/work/INBOX")
             (mu4e-refile-folder . "/work/Archive")
             (mu4e-trash-folder . "/work/Deleted Items")
             (message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "work"))
             )
     )
    (make-mu4e-context
     :name "Work AAP-WE-FR"
     :match-func (lambda (msg) (when msg (string-prefix-p "/work-aap-we-fr" (mu4e-message-field msg :maildir))))
     :vars '(
             (user-mail-address . "aap-we-fr@ugent.be")
             (user-full-name . "Charlotte Van Petegem")
             (mu4e-drafts-folder . "/work-aap-we-fr/Concepten")
             (mu4e-sent-folder . "/work-aap-we-fr/Verzonden items")
             (mu4e-refile-folder . "/work-aap-we-fr/Archief")
             (mu4e-trash-folder . "/work-aap-we-fr/Verwijderde items")
             (message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "work-aap-we-fr"))
             )
     )
    (make-mu4e-context
     :name "Posteo"
     :match-func (lambda (msg) (when msg (string-prefix-p "/posteo" (mu4e-message-field msg :maildir))))
     :vars '(
             (user-mail-address . "charlotte@vanpetegem.me")
             (user-full-name . "Charlotte Van Petegem")
             (mu4e-drafts-folder . "/posteo/Drafts")
             (mu4e-sent-folder . "/posteo/INBOX")
             (mu4e-refile-folder . "/posteo/Archive")
             (mu4e-trash-folder . "/posteo/Trash")
             (message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "posteo"))
             )
     )
    (make-mu4e-context
     :name "Jong Groen"
     :match-func (lambda (msg) (when msg (string-prefix-p "/jonggroen" (mu4e-message-field msg :maildir))))
     :vars '(
             (user-mail-address . "charlotte@vanpetegem.me")
             (user-full-name . "Charlotte Van Petegem")
             (mu4e-drafts-folder . "/jonggroen/[Gmail]/Drafts")
             (mu4e-sent-folder . "/jonggroen/INBOX")
             (mu4e-refile-folder . "/jonggroen/Archive")
             (mu4e-trash-folder . "/jonggroen/[Gmail]/Bin")
             (message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "jonggroen"))
             )
     )
    (make-mu4e-context
     :name "Postbot"
     :match-func (lambda (msg) (when msg (string-prefix-p "/postbot" (mu4e-message-field msg :maildir))))
     :vars '(
             (user-mail-address . "postbot@vanpetegem.me")
             (user-full-name . "Charlotte Van Petegem")
             (mu4e-drafts-folder . "/postbot/Drafts")
             (mu4e-sent-folder . "/postbot/INBOX")
             (mu4e-refile-folder . "/postbot/Archive")
             (mu4e-trash-folder . "/postbot/Trash")
             (message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "postbot"))
             )
     )
    (make-mu4e-context
     :name "Webmaster"
     :match-func (lambda (msg) (when msg (string-prefix-p "/webmaster" (mu4e-message-field msg :maildir))))
     :vars '(
             (user-mail-address . "webmaster@vanpetegem.me")
             (user-full-name . "Webmaster")
             (mu4e-drafts-folder . "/webmaster/Drafts")
             (mu4e-sent-folder . "/webmaster/INBOX")
             (mu4e-refile-folder . "/webmaster/Archive")
             (mu4e-trash-folder . "/webmaster/Trash")
             (message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "webmaster"))
             )
     )
    )
   )
  (add-to-list
   'mu4e-bookmarks
   '(:name "Combined inbox" :query "maildir:/personal/INBOX or maildir:/work/INBOX or maildir:/posteo/INBOX or maildir:/jonggroen/INBOX" :key ?i)
   )
  :general
  (nmap
    :prefix "SPC"
    "m" '(mu4e :which-key "mail")
    )
  )

;; Nix syntax support
(use-package nix-mode :mode "\\.nix\\'")

;; Project management
(use-package projectile
  :after (ripgrep)
  :demand t
  :diminish (projectile-mode)
  :custom
  (projectile-completion-system 'ivy "Make sure projectile uses ivy as
    the completion system. This should be autodetected, but that doesn't
    seem to work")
  :config (projectile-mode 1)
  :general
  (nmap
    :prefix "SPC"
    "p"  '(:ignore t :which-key "project")
    "pf" '(projectile-find-file :which-key "find")
    "pp" '(projectile-switch-project :which-key "switch")
    "pr" '(projectile-replace :which-key "replace")
    "ps" '(projectile-ripgrep :which-key "search")
    "p!" '(projectile-run-shell-command-in-root :which-key "command")
    "pt" '(projectile-run-term :which-key "term")
    )
  )

;; Python syntax support
(use-package python-mode :mode "\\.py\\'")

;; Ripgrep support (needed for `projectile-ripgrep')
(use-package ripgrep)

;; `ivy'-integrated buffer search
(use-package swiper
  :general
  (nmap
    :prefix "SPC"
    "ss" '(swiper :which-key "search")
    )
  (nmap "/" 'swiper)
  )

;; HTML (and HTML template) support
(use-package web-mode
  :mode "\\.html'"
  :mode "\\.html\\.erb\\'"
  )

;; Show keybindings
(use-package which-key
  :diminish (which-key-mode)
  :config (which-key-mode)
  )

;; YAML syntax support
(use-package yaml-mode
  :mode "\\.yml\\'"
  :mode "\\.yaml\\'"
  )

;; Enable basic auto pairs. Maybe replace this with something more
;; advanced later? Look into configuring pairs for frequently used
;; major modes.
(electric-pair-mode)

;; Always display line numbers
(global-display-line-numbers-mode)

;; Don't show default startup screen
(setq inhibit-startup-screen t)

;; Font configuration
(when window-system (set-frame-font "Fira Code 9"))
(defun emoji-fonts ()
  "Setup emoji font priorities."
  (set-fontset-font t 'symbol "Noto Color Emoji")
  (set-fontset-font t 'symbol "Symbola" nil 'append))
(if (daemonp)
    (add-hook 'server-after-make-frame-hook #'emoji-fonts)
  (emoji-fonts))

(provide 'init)
;;; init.el ends here