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   '(crux writeroom-mode znc)
  21   "The list of Lisp packages required by the aminb layer.")
  22
  23 (defun aminb/init-crux ()
  24     (use-package crux
  25       :defer t
  26       :bind (("C-c d" . crux-duplicate-current-line-or-region)
  27              ("C-c M-d" . crux-duplicate-and-comment-current-line-or-region)
  28              )))
  29
  30 (defun aminb/init-writeroom-mode ()
  31   (use-package writeroom-mode             ; Distraction-free editing
  32     :defer t
  33     :config (setq writeroom-width 82)
  34     :bind (("C-c W" . writeroom-mode)
  35            ("s-?" . writeroom-toggle-mode-line))))
  36
  37 (defun aminb/init-znc ()
  38   (use-package znc
  39     :defer t
  40     :init
  41     (spacemacs/set-leader-keys
  42       "aiz" 'znc-erc)
  43     :config
  44     (progn
  45       ;; Set the erc nick completion postfix to ", "
  46       (setq erc-pcomplete-nick-postfix ", ")
  47
  48       ;; Restore channel buffers from logs
  49       (setq erc-log-insert-log-on-open t)
  50
  51       (defun vbe:znc-add-server (server port user networks)
  52         "Add a server to the list of ZNC servers.
  53 We use SSL inconditionaly. Moreover, we don't store the password
  54 but put nil instead. At least, we tweak the username to contain
  55 the network name later, this will be separated again."
  56         (add-to-list 'znc-servers
  57                      (list server
  58                            port
  59                            t                  ; SSL enabled
  60                            (mapcar (function (lambda (slug) (list slug
  61                                                                   (format "%s/%s" user slug)
  62                                                                   nil)))
  63                                    networks))))
  64
  65       (defun vbe:znc-erc-ssl-connector (&rest R)
  66         "Connect to ERC using SSL and retrieve password with `auth-source-search'.
  67 Moreover, handle multiple networks by sending the password with
  68 the appropriate network slug that we extract from the nick."
  69         (let* ((user (nth 0 (split-string (plist-get R :nick) "/")))
  70                (slug (nth 1 (split-string (plist-get R :nick) "/")))
  71                (found (nth 0 (auth-source-search :host (plist-get R :server)
  72                                                  :user user
  73                                                  :require '(:user :secret)
  74                                                  :max 1))))
  75           (if found
  76               (let ((password (let ((secret (plist-get found :secret)))
  77                                 (if (functionp secret)
  78                                     (funcall secret)
  79                                   secret))))
  80                 (plist-put R :password (format "%s/%s:%s" user slug password))
  81                 (plist-put R :nick user)
  82                 (apply 'erc-tls R)))))
  83       (setq znc-erc-ssl-connector 'vbe:znc-erc-ssl-connector)
  84
  85       ;; Define networks
  86       (vbe:znc-add-server "nix.aminb.org" 6669 "amin"
  87                           '(freenode mozilla))
  88
  89       ;; https://www.emacswiki.org/emacs/ErcBar
  90       ;; Display a bar before unread messages
  91       (eval-after-load 'erc-track
  92         '(progn
  93            (defun erc-bar-move-back (n)
  94              "Moves back n message lines. Ignores wrapping, and server messages."
  95              (interactive "nHow many lines ? ")
  96              (re-search-backward "^.*<.*>" nil t n))
  97
  98            (defun erc-bar-update-overlay ()
  99              "Update the overlay for current buffer, based on the content of
 100 erc-modified-channels-alist. Should be executed on window change."
 101              (interactive)
 102              (let* ((info (assq (current-buffer) erc-modified-channels-alist))
 103                     (count (cadr info)))
 104                (if (and info (> count erc-bar-threshold))
 105                    (save-excursion
 106                      (end-of-buffer)
 107                      (when (erc-bar-move-back count)
 108                        (let ((inhibit-field-text-motion t))
 109                          (move-overlay erc-bar-overlay
 110                                        (line-beginning-position)
 111                                        (line-end-position)
 112                                        (current-buffer)))))
 113                  (delete-overlay erc-bar-overlay))))
 114
 115            (defvar erc-bar-threshold 1
 116              "Display bar when there are more than erc-bar-threshold unread messages.")
 117            (defvar erc-bar-overlay nil
 118              "Overlay used to set bar")
 119            (setq erc-bar-overlay (make-overlay 0 0))
 120            (overlay-put erc-bar-overlay 'face '(:underline "purple"))
 121            ;;put the hook before erc-modified-channels-update
 122            (defadvice erc-track-mode (after erc-bar-setup-hook
 123                                             (&rest args) activate)
 124              ;;remove and add, so we know it's in the first place
 125              (remove-hook 'window-configuration-change-hook 'erc-bar-update-overlay)
 126              (add-hook 'window-configuration-change-hook 'erc-bar-update-overlay))
 127            (add-hook 'erc-send-completed-hook (lambda (str)
 128                                                 (erc-bar-update-overlay)))))
 129
 130       )))
 131
 132 ;;; packages.el ends here