git.shemshak.org - ~bandali/configs/blob - spacemacs/.emacs.d/private/aminb/packages.el

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