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

(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 ()
  (use-package mu4e
    :defer t
    :config
    (progn
      (setq mu4e-maildir "~/mail"
            mu4e-get-mail-command "mbsync -a"    ;; or fetchmail, or ...
            mu4e-update-interval 300             ;; update every 5 minutes
            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")
            ;; don't keep message buffers around
            message-kill-buffer-on-exit t
            mu4e-attachment-dir "~/dls"
            mu4e-sent-folder "/amin/Sent"
            mu4e-drafts-folder "/amin/Drafts"
            mu4e-trash-folder "/amin/Trash"
            user-mail-address "amin@aminb.org"
            mu4e-context-policy 'pick-first
            mu4e-contexts
              (list (make-mu4e-context
                     :name "amin"
                     :enter-func (lambda () (mu4e-message "Switch to the amin 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 "gmail"
                     :enter-func (lambda () (mu4e-message "Switch to the gmail 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)
                             (smtpmail-default-smtp-server . "smtp.gmail.com")
                             (smtpmail-smtp-server . "smtp.gmail.com")
                             (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))
    )

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

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