nixos/pkgsets/emacs/mu4e.nix

{
  config,
  lib,
  pkgs,
  ...
}:
with lib; let
  defaultEncrypt = pkgs.emacsPackages.trivialBuild rec {
    pname = "defaultencrypt";
    version = "ba07acc8e9fd692534c39c7cdad0a19dc0d897d9";

    src = pkgs.fetchFromGitLab {
      owner = "lechten";
      repo = pname;
      rev = version;
      sha256 = "1ln7h1syx7yi7bqvirv90mk4rvwxg4zm1wvfcvhfh64s3hqrbfgl";
    };
  };
in
  mkIf (elem "emacs::mu4e" config.machine.pkgs) {
    programs.emacs.init.usePackage.pinentry = {
      enable = true;
      command = ["pinentry-start"];
      hook = ["(after-init . pinentry-start)"];
    };

    programs.emacs.init.usePackage.mu4e = {
      enable = true;
      package = epkgs: null;
      command = ["mu4e"];
      diminish = ["mu4e-mode"];
      hook = [
        "(mu4e-view-mode . visual-line-mode)"
        "(mu4e-compose-mode . flyspell-mode)"
        ''          (message-send . (lambda ()
                    (unless (yes-or-no-p "Send this message?")
                    (signal 'quit nil))))''
      ];
      bind = {"\t" = "'company-complete-common";};
      bindLocal = rec {
        mu4e-headers-mode-map = {
          "C-+" = "nil";
          "C--" = "nil";
        };
        mu4e-view-mode-map = mu4e-headers-mode-map;
      };
      init = ''
        ;; (add-to-list 'load-path "${defaultEncrypt}/share/emacs/site-lisp")
        ;; (require 'jl-encrypt)
      '';
      config = ''
        (setq mail-user-agent 'mu4e-user-agent)
        (setq org-mu4e-link-query-in-headers-mode t)
        (setq mu4e-maildir "~/.mail/Mail")
        (setq mu4e-get-mail-command "${pkgs.isync}/bin/mbsync -a")
        (setq mu4e-context-policy 'pick-first)
        (setq mu4e-change-filenames-when-moving t)
        (setq starttls-use-gnutls t)
        (setq message-send-mail-function 'smtpmail-send-it)
        (setq mu4e-update-interval 300)
        (setq mu4e-use-fancy-chars t)
        (setq mu4e-view-show-addresses t)
        (setq mu4e-headers-show-threads t)
        (setq mu4e-headers-skip-duplicates t)
        (setq mail-user-agent 'mu4e-user-agent)
        (defvaralias 'mu4e-compose-signature 'message-signature)
        (setq-default mu4e-save-multiple-attachments-without-asking t)
        (setq-default mu4e-view-show-addresses t)
        (setq-default mu4e-confirm-quit nil)
        (setq-default mu4e-hide-index-messages t)
        (setq-default mu4e-index-update-in-background t)
        (setq mu4e-compose-in-new-frame nil)

        ;;rename files when moving
        ;;NEEDED FOR MBSYNC
        (setq mu4e-change-filenames-when-moving t)

        (setq mu4e-html2text-command "iconv -c -t utf-8 | ${pkgs.pandoc}/bin/pandoc -f html -t plain")
        (setq mu4e-view-show-images t)
        (when (fboundp 'imagemagick-register-types)
          (imagemagick-register-types))
        (setq message-kill-buffer-on-exit t)

        ;; Encryption Stuff
        ;; (setq mml-secure-openpgp-sign-with-sender t)
        ;; ;; (setq mm-sign-option ‘guided’)
        ;; (setq epa-pinentry-mode 'loopback)
        ;; mailAcc config goes here
        (load-file "~/.emacs.d/mu4e.el")

        (defun my-browse-url-firefox-privately (url &optional new-window)
          "Make firefox open URL in private-browsing window."
          (interactive (browse-url-interactive-arg "URL: "))
          (let ((process-environment (browse-url-process-environment)))
            (apply 'start-process
                   (concat "firefox " url)
                   nil
                   browse-url-firefox-program
                   (list "-private-window" url))))
        (setq browse-url-browser-function 'my-browse-url-firefox-privately)
        (add-to-list 'mu4e-view-actions
              '("ViewInBrowser" . mu4e-action-view-in-browser) t)
      '';
      extraConfig = ''
        :load-path "${pkgs.mu}/share/emacs/site-lisp/mu4e"
      '';
    };

    programs.emacs.init.usePackage.mu4e-alert = {
      enable = true;
      #    hook = [ "after-init . mu4e-alert-enable-mode-line-display" ];
    };

    #  programs.emacs.init.usePackage.org-mu4e = {
    #    enable = (elem "emacs::org" config.machine.pkgs);
    #  };

    environment.systemPackages = with pkgs; [
      mu
      isync
    ];
  }