[~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
  '(creamsody-theme
    crux
    ;; mu4e has to be installed manually,
    ;; and make sure it's in load-path
    (mu4e :location site)
    (mu4e-contrib :location site)
    smtpmail
    writeroom-mode
    znc)
  "The list of Lisp packages required by the aminb layer.")

(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)

      (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 "mbsync -a"
            mu4e-update-interval nil
            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-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-get-mail-command . "getmail")
                              (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
    :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-mu4e-contrib ()
  (use-package mu4e-contrib
    :defer t
    :config
    (setq mu4e-html2text-command 'mu4e-shr2text
          mu4e-view-html-plaintext-ratio-heuristic 10
          mu4e-view-prefer-html t)))

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