[~bandali/configs] / spacemacs / .emacs.d / private / aminb / packages.el

;;; packages.el --- aminb layer packages file for Spacemacs.
;;
;; Copyright (c) 2016 Amin Bandali
;;
;; Author: Amin Bandali <amin@aminb.org>
;; URL: https://github.com/aminb/dotfiles
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3

;;; Commentary:

;; This file is a collection of my settings and customizations on top of
;; spacemacs.

;;; Code:

(defconst aminb-packages
  '(counsel
    creamsody-theme
    crux
    ;; mu4e has to be installed manually,
    ;; and make sure it's in load-path
    (mu4e :location site)
    smtpmail
    writeroom-mode
    znc)
  "The list of Lisp packages required by the aminb layer.")

(defun aminb/post-init-counsel ()
  (use-package counsel
    :defer t
    :config
    (progn
      (spacemacs/set-leader-keys-for-major-mode 'eshell-mode
        "," 'counsel-esh-history)
      (add-hook 'eshell-mode-hook
                '(lambda () (define-key eshell-mode-map
                              (kbd "M-l") 'counsel-esh-history)))
      )))

(defun aminb/init-creamsody-theme ())

(defun aminb/init-crux ()
    (use-package crux
      :defer t
      :bind (("C-c d" . crux-duplicate-current-line-or-region)
             ("C-c M-d" . crux-duplicate-and-comment-current-line-or-region)
             )))

(defun aminb/init-writeroom-mode ()
  (use-package writeroom-mode             ; Distraction-free editing
    :defer t
    :config (setq writeroom-width 82)
    :bind (("C-c W" . writeroom-mode)
           ("s-?" . writeroom-toggle-mode-line))))

(defun aminb/init-znc ()
  (use-package znc
    :defer t
    :init
    (spacemacs/set-leader-keys
      "aiz" 'znc-erc)
    :config
    (progn
      ;; Set the erc nick completion postfix to ", "
      (setq erc-pcomplete-nick-postfix ", ")

      ;; Restore channel buffers from logs
      (setq erc-log-insert-log-on-open t)

      ;;; (BEGIN) work around log restoration bug
      ;;  taken from https://www.emacswiki.org/emacs/ErcLogging

      ;; ;;; Original version in the Emacs sources:
      ;; (defun erc-log-all-but-server-buffers (buffer)
      ;;   "Returns t if logging should be enabled in BUFFER.
      ;; Returns nil if `erc-server-buffer-p' returns t."
      ;;   (save-excursion
      ;;     (save-window-excursion
      ;;       (set-buffer buffer)
      ;;       (not (erc-server-buffer-p)))))

      ;; My version:
      (defun erc-log-all-but-server-buffers (buffer)
        (with-current-buffer buffer
          (not (erc-server-buffer-p))))
      ;;
      ;; ;;; Anyway, a more direct modification also works fine:
      ;; (defun erc-log-all-but-server-buffers (buffer)
      ;;  (set-buffer buffer)
      ;;  (not (erc-server-buffer-p)))
      ;;; (END)

      (require 'notifications)
      (defun erc-global-notify (match-type nick message)
        "Notify when a message is recieved."
        (notifications-notify
         :title nick
         :body message
         ;; :app-icon (concat spacemacs-assets-directory "spacemacs.svg")
         :urgency 'normal))

      (defun vbe:znc-add-server (server port user networks)
        "Add a server to the list of ZNC servers.
We use SSL inconditionaly. Moreover, we don't store the password
but put nil instead. At least, we tweak the username to contain
the network name later, this will be separated again."
        (add-to-list 'znc-servers
                     (list server
                           port
                           t                  ; SSL enabled
                           (mapcar (function (lambda (slug) (list slug
                                                                  (format "%s/%s" user slug)
                                                                  nil)))
                                   networks))))

      (defun vbe:znc-erc-ssl-connector (&rest R)
        "Connect to ERC using SSL and retrieve password with `auth-source-search'.
Moreover, handle multiple networks by sending the password with
the appropriate network slug that we extract from the nick."
        (let* ((user (nth 0 (split-string (plist-get R :nick) "/")))
               (slug (nth 1 (split-string (plist-get R :nick) "/")))
               (found (nth 0 (auth-source-search :host (plist-get R :server)
                                                 :user user
                                                 :require '(:user :secret)
                                                 :max 1))))
          (if found
              (let ((password (let ((secret (plist-get found :secret)))
                                (if (functionp secret)
                                    (funcall secret)
                                  secret))))
                (plist-put R :password (format "%s/%s:%s" user slug password))
                (plist-put R :nick user)
                (apply 'erc-tls R)))))
      (setq znc-erc-ssl-connector 'vbe:znc-erc-ssl-connector)

      ;; Define networks
      (vbe:znc-add-server "nix.aminb.org" 6669 "amin"
                          '(freenode mozilla))

      ;; https://www.emacswiki.org/emacs/ErcBar
      ;; Display a bar before unread messages
      (eval-after-load 'erc-track
        '(progn
           (defun erc-bar-move-back (n)
             "Moves back n message lines. Ignores wrapping, and server messages."
             (interactive "nHow many lines ? ")
             (re-search-backward "^.*<.*>" nil t n))

           (defun erc-bar-update-overlay ()
             "Update the overlay for current buffer, based on the content of
erc-modified-channels-alist. Should be executed on window change."
             (interactive)
             (let* ((info (assq (current-buffer) erc-modified-channels-alist))
                    (count (cadr info)))
               (if (and info (> count erc-bar-threshold))
                   (save-excursion
                     (end-of-buffer)
                     (when (erc-bar-move-back count)
                       (let ((inhibit-field-text-motion t))
                         (move-overlay erc-bar-overlay
                                       (line-beginning-position)
                                       (line-end-position)
                                       (current-buffer)))))
                 (delete-overlay erc-bar-overlay))))

           (defvar erc-bar-threshold 1
             "Display bar when there are more than erc-bar-threshold unread messages.")
           (defvar erc-bar-overlay nil
             "Overlay used to set bar")
           (setq erc-bar-overlay (make-overlay 0 0))
           (overlay-put erc-bar-overlay 'face '(:underline "purple"))
           ;;put the hook before erc-modified-channels-update
           (defadvice erc-track-mode (after erc-bar-setup-hook
                                            (&rest args) activate)
             ;;remove and add, so we know it's in the first place
             (remove-hook 'window-configuration-change-hook 'erc-bar-update-overlay)
             (add-hook 'window-configuration-change-hook 'erc-bar-update-overlay))
           (add-hook 'erc-send-completed-hook (lambda (str)
                                                (erc-bar-update-overlay)))))

      )))

(defun aminb/post-init-mu4e ()
  (setq maildir "~/mail")
  (use-package mu4e
    :defer t
    :config
    (progn
      (setq mu4e-maildir maildir
            mu4e-get-mail-command "true"
            mu4e-update-interval 300
            mu4e-view-show-addresses t
            mu4e-headers-include-related t
            mu4e-enable-notifications t
            mu4e-enable-mode-line t
            mu4e-compose-signature-auto-include t
            mu4e-compose-signature
            (concat
             "Amin Bandali\n"
             "<aminb.org>\n")
            message-kill-buffer-on-exit t ; don't keep message buffers around
            mu4e-attachment-dir "~/dls"
            mu4e-sent-folder "/amin/Sent"
            mu4e-drafts-folder "/amin/Drafts"
            mu4e-trash-folder "/amin/Trash"
            user-full-name "Amin Bandali"
            user-mail-address "amin@aminb.org"
            mu4e-view-html-plaintext-ratio-heuristic most-positive-fixnum
            mu4e-context-policy 'pick-first
            mu4e-contexts
              (list (make-mu4e-context
                     :name "Personal"
                     :enter-func (lambda () (mu4e-message "Switch to the Personal context"))
                     :match-func (lambda (msg)
                                   (when msg
                                     (s-prefix? "/amin/" (mu4e-message-field msg :maildir))))
                     :vars '((user-mail-address . "amin@aminb.org")
                             (mu4e-sent-folder . "/amin/Sent")
                             (mu4e-drafts-folder . "/amin/Drafts")
                             (mu4e-trash-folder . "/amin/Trash")
                             (mu4e-sent-messages-behavior . sent)
                             (smtpmail-default-smtp-server . "nix.aminb.org")
                             (smtpmail-smtp-server . "nix.aminb.org")
                             (smtpmail-stream-type . starttls)
                             (smtpmail-smtp-service . 587)))
                    (make-mu4e-context
                     :name "BB"
                     :enter-func (lambda () (mu4e-message "Switch to the BB context"))
                     :match-func (lambda (msg)
                                   (when msg
                                     (s-prefix? "/gmail/" (mu4e-message-field msg :maildir))))
                     :vars '((user-mail-address . "amin.bandali@gmail.com")
                             (mu4e-sent-folder . "/gmail/Sent")
                             (mu4e-drafts-folder . "/gmail/Drafts")
                             (mu4e-trash-folder . "/gmail/Trash")
                             (mu4e-sent-messages-behavior . delete)
                             (mu4e-compose-signature . nil)
                             (smtpmail-default-smtp-server . "smtp.gmail.com")
                             (smtpmail-smtp-server . "smtp.gmail.com")
                             (smtpmail-stream-type . starttls)
                             (smtpmail-smtp-service . 587)))
                     (make-mu4e-context
                      :name "GNU"
                      :enter-func (lambda () (mu4e-message "Switch to the GNU context"))
                      :match-func (lambda (msg)
                                    (when msg
                                      (s-prefix? "/gnu/" (mu4e-message-field msg :maildir))))
                      :vars '((user-mail-address . "aminb@gnu.org")
                              (mu4e-sent-folder . "/gnu/Sent")
                              (mu4e-drafts-folder . "/gnu/Drafts")
                              (mu4e-trash-folder . "/gnu/Trash")
                              (mu4e-sent-messages-behavior . sent)
                              (smtpmail-default-smtp-server . "fencepost.gnu.org")
                              (smtpmail-smtp-server . "fencepost.gnu.org")
                              (smtpmail-stream-type . starttls)
                              (smtpmail-smtp-service . 587)))))
      (with-eval-after-load 'mu4e-alert
        ;; Enable Desktop notifications
        (mu4e-alert-set-default-style 'notifications))))

  (use-package gnus-dired
    ;; A special version of the gnus-dired-mail-buffers function
    ;; that understands mu4e buffers as well.
    ;; Usage: mark the file(s) in dired and press C-c RET C-a,
    ;; then will be asked whether to attach them to an existing
    ;; message, or create a new one.
    :defer t
    :config
    (progn
      ;; make the `gnus-dired-mail-buffers' function also work on
      ;; message-mode derived modes, such as mu4e-compose-mode
      (defun gnus-dired-mail-buffers ()
        "Return a list of active message buffers."
        (let (buffers)
          (save-current-buffer
            (dolist (buffer (buffer-list t))
              (set-buffer buffer)
              (when (and (derived-mode-p 'message-mode)
                         (null message-sent-message-via))
                (push (buffer-name buffer) buffers))))
          (nreverse buffers)))
      (setq gnus-dired-mail-mode 'mu4e-user-agent)
      (add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode))
    )

  ;; Exclude the files in maildir from recents
  (use-package recentf
    :defer t
    :config
    (add-to-list 'recentf-exclude (expand-file-name maildir)))

  (spacemacs/set-leader-keys
    "am" 'mu4e)
  )

(defun aminb/init-smtpmail ()
  (use-package smtpmail
    :defer t
    :config
    (setq smtpmail-default-smtp-server "nix.aminb.org"
          smtpmail-local-domain "aminb.org"
          smtpmail-smtp-server "nix.aminb.org"
          smtpmail-stream-type 'starttls
          smtpmail-smtp-service 587
          send-mail-function 'smtpmail-send-it)))

;;; packages.el ends here
Commit	Line	Data
f138f1d7 AB	1	;;; packages.el --- aminb layer packages file for Spacemacs.
	2	;;
	3	;; Copyright (c) 2016 Amin Bandali
	4	;;
	5	;; Author: Amin Bandali <amin@aminb.org>
	6	;; URL: https://github.com/aminb/dotfiles
	7	;;
	8	;; This file is not part of GNU Emacs.
	9	;;
	10	;;; License: GPLv3
	11
	12	;;; Commentary:
	13
	14	;; This file is a collection of my settings and customizations on top of
	15	;; spacemacs.
	16
	17	;;; Code:
	18
	19	(defconst aminb-packages
0b0b4e44 AB	20	'(counsel
0b0b4e44 AB	21	creamsody-theme
34ff6667 AB	22	crux
	23	;; mu4e has to be installed manually,
	24	;; and make sure it's in load-path
	25	(mu4e :location site)
34ff6667 AB	26	smtpmail
	27	writeroom-mode
	28	znc)
f138f1d7 AB	29	"The list of Lisp packages required by the aminb layer.")
f138f1d7 AB	30
0b0b4e44 AB	31	(defun aminb/post-init-counsel ()
	32	(use-package counsel
	33	:defer t
	34	:config
	35	(progn
	36	(spacemacs/set-leader-keys-for-major-mode 'eshell-mode
	37	"," 'counsel-esh-history)
	38	(add-hook 'eshell-mode-hook
	39	'(lambda () (define-key eshell-mode-map
	40	(kbd "M-l") 'counsel-esh-history)))
	41	)))
	42
34ff6667 AB	43	(defun aminb/init-creamsody-theme ())
34ff6667 AB	44
f138f1d7 AB	45	(defun aminb/init-crux ()
	46	(use-package crux
	47	:defer t
	48	:bind (("C-c d" . crux-duplicate-current-line-or-region)
	49	("C-c M-d" . crux-duplicate-and-comment-current-line-or-region)
	50	)))
	51
	52	(defun aminb/init-writeroom-mode ()
	53	(use-package writeroom-mode ; Distraction-free editing
	54	:defer t
	55	:config (setq writeroom-width 82)
	56	:bind (("C-c W" . writeroom-mode)
	57	("s-?" . writeroom-toggle-mode-line))))
	58
ab386d24 AB	59	(defun aminb/init-znc ()
	60	(use-package znc
	61	:defer t
	62	:init
	63	(spacemacs/set-leader-keys
	64	"aiz" 'znc-erc)
	65	:config
	66	(progn
8568bfb0 AB	67	;; Set the erc nick completion postfix to ", "
	68	(setq erc-pcomplete-nick-postfix ", ")
	69
	70	;; Restore channel buffers from logs
	71	(setq erc-log-insert-log-on-open t)
	72
a3aef4fd AB	73	;;; (BEGIN) work around log restoration bug
	74	;; taken from https://www.emacswiki.org/emacs/ErcLogging
	75
	76	;; ;;; Original version in the Emacs sources:
	77	;; (defun erc-log-all-but-server-buffers (buffer)
	78	;; "Returns t if logging should be enabled in BUFFER.
	79	;; Returns nil if `erc-server-buffer-p' returns t."
	80	;; (save-excursion
	81	;; (save-window-excursion
	82	;; (set-buffer buffer)
	83	;; (not (erc-server-buffer-p)))))
	84
	85	;; My version:
	86	(defun erc-log-all-but-server-buffers (buffer)
	87	(with-current-buffer buffer
	88	(not (erc-server-buffer-p))))
	89	;;
	90	;; ;;; Anyway, a more direct modification also works fine:
	91	;; (defun erc-log-all-but-server-buffers (buffer)
	92	;; (set-buffer buffer)
	93	;; (not (erc-server-buffer-p)))
	94	;;; (END)
	95
	96	(require 'notifications)
	97	(defun erc-global-notify (match-type nick message)
	98	"Notify when a message is recieved."
	99	(notifications-notify
	100	:title nick
	101	:body message
	102	;; :app-icon (concat spacemacs-assets-directory "spacemacs.svg")
	103	:urgency 'normal))
	104
ab386d24 AB	105	(defun vbe:znc-add-server (server port user networks)
	106	"Add a server to the list of ZNC servers.
	107	We use SSL inconditionaly. Moreover, we don't store the password
	108	but put nil instead. At least, we tweak the username to contain
	109	the network name later, this will be separated again."
	110	(add-to-list 'znc-servers
	111	(list server
	112	port
	113	t ; SSL enabled
	114	(mapcar (function (lambda (slug) (list slug
	115	(format "%s/%s" user slug)
	116	nil)))
	117	networks))))
	118
	119	(defun vbe:znc-erc-ssl-connector (&rest R)
	120	"Connect to ERC using SSL and retrieve password with `auth-source-search'.
	121	Moreover, handle multiple networks by sending the password with
	122	the appropriate network slug that we extract from the nick."
	123	(let* ((user (nth 0 (split-string (plist-get R :nick) "/")))
	124	(slug (nth 1 (split-string (plist-get R :nick) "/")))
	125	(found (nth 0 (auth-source-search :host (plist-get R :server)
	126	:user user
	127	:require '(:user :secret)
	128	:max 1))))
	129	(if found
	130	(let ((password (let ((secret (plist-get found :secret)))
	131	(if (functionp secret)
	132	(funcall secret)
	133	secret))))
	134	(plist-put R :password (format "%s/%s:%s" user slug password))
	135	(plist-put R :nick user)
	136	(apply 'erc-tls R)))))
	137	(setq znc-erc-ssl-connector 'vbe:znc-erc-ssl-connector)
	138
	139	;; Define networks
	140	(vbe:znc-add-server "nix.aminb.org" 6669 "amin"
	141	'(freenode mozilla))
8568bfb0 AB	142
	143	;; https://www.emacswiki.org/emacs/ErcBar
	144	;; Display a bar before unread messages
	145	(eval-after-load 'erc-track
	146	'(progn
	147	(defun erc-bar-move-back (n)
	148	"Moves back n message lines. Ignores wrapping, and server messages."
	149	(interactive "nHow many lines ? ")
	150	(re-search-backward "^.<.>" nil t n))
	151
	152	(defun erc-bar-update-overlay ()
	153	"Update the overlay for current buffer, based on the content of
	154	erc-modified-channels-alist. Should be executed on window change."
	155	(interactive)
	156	(let* ((info (assq (current-buffer) erc-modified-channels-alist))
	157	(count (cadr info)))
	158	(if (and info (> count erc-bar-threshold))
	159	(save-excursion
	160	(end-of-buffer)
	161	(when (erc-bar-move-back count)
	162	(let ((inhibit-field-text-motion t))
	163	(move-overlay erc-bar-overlay
	164	(line-beginning-position)
	165	(line-end-position)
	166	(current-buffer)))))
	167	(delete-overlay erc-bar-overlay))))
	168
	169	(defvar erc-bar-threshold 1
	170	"Display bar when there are more than erc-bar-threshold unread messages.")
	171	(defvar erc-bar-overlay nil
	172	"Overlay used to set bar")
	173	(setq erc-bar-overlay (make-overlay 0 0))
	174	(overlay-put erc-bar-overlay 'face '(:underline "purple"))
	175	;;put the hook before erc-modified-channels-update
	176	(defadvice erc-track-mode (after erc-bar-setup-hook
	177	(&rest args) activate)
	178	;;remove and add, so we know it's in the first place
	179	(remove-hook 'window-configuration-change-hook 'erc-bar-update-overlay)
	180	(add-hook 'window-configuration-change-hook 'erc-bar-update-overlay))
	181	(add-hook 'erc-send-completed-hook (lambda (str)
	182	(erc-bar-update-overlay)))))
	183
ab386d24	184	)))
f138f1d7	185
818a4af5	186	(defun aminb/post-init-mu4e ()
ccdc4e0c	187	(setq maildir "~/mail")
818a4af5 AB	188	(use-package mu4e
	189	:defer t
	190	:config
	191	(progn
ccdc4e0c	192	(setq mu4e-maildir maildir
871d5d22 AB	193	mu4e-get-mail-command "true"
871d5d22 AB	194	mu4e-update-interval 300
818a4af5 AB	195	mu4e-view-show-addresses t
818a4af5 AB	196	mu4e-headers-include-related t
7acb70d3 AB	197	mu4e-enable-notifications t
7acb70d3 AB	198	mu4e-enable-mode-line t
818a4af5 AB	199	mu4e-compose-signature-auto-include t
	200	mu4e-compose-signature
	201	(concat
	202	"Amin Bandali\n"
	203	"<aminb.org>\n")
ccdc4e0c	204	message-kill-buffer-on-exit t ; don't keep message buffers around
818a4af5 AB	205	mu4e-attachment-dir "~/dls"
	206	mu4e-sent-folder "/amin/Sent"
	207	mu4e-drafts-folder "/amin/Drafts"
	208	mu4e-trash-folder "/amin/Trash"
6bd89970	209	user-full-name "Amin Bandali"
de295c49	210	user-mail-address "amin@aminb.org"
0b0b4e44	211	mu4e-view-html-plaintext-ratio-heuristic most-positive-fixnum
f6b1eaf9	212	mu4e-context-policy 'pick-first
de295c49 AB	213	mu4e-contexts
de295c49 AB	214	(list (make-mu4e-context
ccdc4e0c AB	215	:name "Personal"
ccdc4e0c AB	216	:enter-func (lambda () (mu4e-message "Switch to the Personal context"))
de295c49 AB	217	:match-func (lambda (msg)
	218	(when msg
	219	(s-prefix? "/amin/" (mu4e-message-field msg :maildir))))
	220	:vars '((user-mail-address . "amin@aminb.org")
	221	(mu4e-sent-folder . "/amin/Sent")
	222	(mu4e-drafts-folder . "/amin/Drafts")
	223	(mu4e-trash-folder . "/amin/Trash")
	224	(mu4e-sent-messages-behavior . sent)
	225	(smtpmail-default-smtp-server . "nix.aminb.org")
	226	(smtpmail-smtp-server . "nix.aminb.org")
	227	(smtpmail-stream-type . starttls)
	228	(smtpmail-smtp-service . 587)))
	229	(make-mu4e-context
ccdc4e0c AB	230	:name "BB"
ccdc4e0c AB	231	:enter-func (lambda () (mu4e-message "Switch to the BB context"))
de295c49 AB	232	:match-func (lambda (msg)
	233	(when msg
	234	(s-prefix? "/gmail/" (mu4e-message-field msg :maildir))))
	235	:vars '((user-mail-address . "amin.bandali@gmail.com")
	236	(mu4e-sent-folder . "/gmail/Sent")
	237	(mu4e-drafts-folder . "/gmail/Drafts")
	238	(mu4e-trash-folder . "/gmail/Trash")
	239	(mu4e-sent-messages-behavior . delete)
ccdc4e0c	240	(mu4e-compose-signature . nil)
de295c49 AB	241	(smtpmail-default-smtp-server . "smtp.gmail.com")
	242	(smtpmail-smtp-server . "smtp.gmail.com")
	243	(smtpmail-stream-type . starttls)
ccdc4e0c AB	244	(smtpmail-smtp-service . 587)))
	245	(make-mu4e-context
	246	:name "GNU"
	247	:enter-func (lambda () (mu4e-message "Switch to the GNU context"))
	248	:match-func (lambda (msg)
	249	(when msg
	250	(s-prefix? "/gnu/" (mu4e-message-field msg :maildir))))
	251	:vars '((user-mail-address . "aminb@gnu.org")
	252	(mu4e-sent-folder . "/gnu/Sent")
	253	(mu4e-drafts-folder . "/gnu/Drafts")
	254	(mu4e-trash-folder . "/gnu/Trash")
ccdc4e0c AB	255	(mu4e-sent-messages-behavior . sent)
	256	(smtpmail-default-smtp-server . "fencepost.gnu.org")
	257	(smtpmail-smtp-server . "fencepost.gnu.org")
	258	(smtpmail-stream-type . starttls)
	259	(smtpmail-smtp-service . 587)))))
7acb70d3 AB	260	(with-eval-after-load 'mu4e-alert
	261	;; Enable Desktop notifications
	262	(mu4e-alert-set-default-style 'notifications))))
818a4af5 AB	263
	264	(use-package gnus-dired
	265	;; A special version of the gnus-dired-mail-buffers function
0b0b4e44 AB	266	;; that understands mu4e buffers as well.
	267	;; Usage: mark the file(s) in dired and press C-c RET C-a,
	268	;; then will be asked whether to attach them to an existing
	269	;; message, or create a new one.
818a4af5 AB	270	:defer t
	271	:config
	272	(progn
	273	;; make the `gnus-dired-mail-buffers' function also work on
	274	;; message-mode derived modes, such as mu4e-compose-mode
	275	(defun gnus-dired-mail-buffers ()
	276	"Return a list of active message buffers."
	277	(let (buffers)
	278	(save-current-buffer
	279	(dolist (buffer (buffer-list t))
	280	(set-buffer buffer)
	281	(when (and (derived-mode-p 'message-mode)
	282	(null message-sent-message-via))
	283	(push (buffer-name buffer) buffers))))
	284	(nreverse buffers)))
	285	(setq gnus-dired-mail-mode 'mu4e-user-agent)
	286	(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode))
	287	)
	288
ccdc4e0c AB	289	;; Exclude the files in maildir from recents
	290	(use-package recentf
	291	:defer t
	292	:config
	293	(add-to-list 'recentf-exclude (expand-file-name maildir)))
	294
818a4af5 AB	295	(spacemacs/set-leader-keys
	296	"am" 'mu4e)
	297	)
	298
818a4af5 AB	299	(defun aminb/init-smtpmail ()
	300	(use-package smtpmail
	301	:defer t
	302	:config
	303	(setq smtpmail-default-smtp-server "nix.aminb.org"
	304	smtpmail-local-domain "aminb.org"
	305	smtpmail-smtp-server "nix.aminb.org"
	306	smtpmail-stream-type 'starttls
6bd89970 AB	307	smtpmail-smtp-service 587
6bd89970 AB	308	send-mail-function 'smtpmail-send-it)))
818a4af5	309
f138f1d7	310	;;; packages.el ends here