+++ /dev/null
-;;; 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 -aq" ;; or fetchmail, or ...
- mu4e-update-interval 300 ;; update every 5 minutes
- mu4e-view-show-addresses t
- mu4e-headers-include-related 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")
-
- (defvar my-mu4e-account-alist
- '(("amin"
- (mu4e-sent-folder "/amin/Sent")
- (mu4e-drafts-folder "/amin/Drafts")
- (mu4e-trash-folder "/amin/Trash")
- (user-mail-address "amin@aminb.org")
- (user-full-name "Amin Bandali")
- (smtpmail-default-smtp-server "nix.aminb.org")
- (smtpmail-local-domain "aminb.org")
- (smtpmail-smtp-user "amin@aminb.org")
- (smtpmail-smtp-server "nix.aminb.org")
- (smtpmail-stream-type 'starttls)
- (smtpmail-smtp-service 587))
- ("gmail"
- (mu4e-sent-folder "/gmail/[Gmail].Sent Mail")
- (mu4e-drafts-folder "/gmail/[Gmail].Drafts")
- (mu4e-trash-folder "/gmail/[Gmail].Trash")
- (user-mail-address "amin.bandali@gmail.com")
- (user-full-name "Amin Bandali")
- (smtpmail-default-smtp-server "smtp.gmail.com")
- (smtpmail-local-domain "gmail.com")
- (smtpmail-smtp-user "amin.bandali@gmail.com")
- (smtpmail-smtp-server "smtp.gmail.com")
- (smtpmail-stream-type ssl)
- (smtpmail-smtp-service 465))))
-
- (defun my-mu4e-set-account ()
- "Set the account for composing a message."
- (let* ((account
- (if mu4e-compose-parent-message
- (let ((maildir (mu4e-message-field mu4e-compose-parent-message :maildir)))
- (string-match "/\\(.*?\\)/" maildir)
- (match-string 1 maildir))
- (completing-read (format "Compose with account: (%s) "
- (mapconcat #'(lambda (var) (car var))
- my-mu4e-account-alist "/"))
- (mapcar #'(lambda (var) (car var)) my-mu4e-account-alist)
- nil t nil nil (caar my-mu4e-account-alist))))
- (account-vars (cdr (assoc account my-mu4e-account-alist))))
- (if account-vars
- (mapc #'(lambda (var)
- (set (car var) (cadr var)))
- account-vars)
- (error "No email account found"))))
- (add-hook 'mu4e-compose-pre-hook 'my-mu4e-set-account)))
-
- (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
projects / ~bandali / configs / blobdiff