X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/ab386d244c0cf1b7fe274e2cec80a180e9b88b14..f6b1eaf93cbaac4bcef2349fd436b5bdd43a5a23:/spacemacs/.emacs.d/private/aminb/packages.el diff --git a/spacemacs/.emacs.d/private/aminb/packages.el b/spacemacs/.emacs.d/private/aminb/packages.el index 919b271..fb336a3 100644 --- a/spacemacs/.emacs.d/private/aminb/packages.el +++ b/spacemacs/.emacs.d/private/aminb/packages.el @@ -17,7 +17,13 @@ ;;; Code: (defconst aminb-packages - '(crux writeroom-mode znc) + '(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 () @@ -42,6 +48,12 @@ "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 @@ -79,6 +91,152 @@ the appropriate network slug that we extract from the nick." ;; 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" + "\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