X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/f138f1d7c8d6f6cf629c35870fc3f6e477a0c0d2..34ff66678933c0a792f290fc5d46cff800c50291:/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 fb9862b..119726a 100644 --- a/spacemacs/.emacs.d/private/aminb/packages.el +++ b/spacemacs/.emacs.d/private/aminb/packages.el @@ -17,9 +17,19 @@ ;;; Code: (defconst aminb-packages - '(crux writeroom-mode) + '(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 @@ -34,5 +44,203 @@ :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" + "\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