summaryrefslogtreecommitdiffstats
path: root/spacemacs/.emacs.d/private/irc
diff options
context:
space:
mode:
authorAmin Bandali <me@aminb.org>2015-07-03 23:32:44 -0400
committerAmin Bandali <me@aminb.org>2015-07-03 23:32:44 -0400
commit21fe6b4772a490d1250588d3515f241e1e9019fa (patch)
tree07543d3d59ba580d2ec860d053d23edfe6775c2a /spacemacs/.emacs.d/private/irc
parent5fc3f610feca52035bbf4d13625f846c14ab40b4 (diff)
downloadconfigs-21fe6b4772a490d1250588d3515f241e1e9019fa.tar.gz
configs-21fe6b4772a490d1250588d3515f241e1e9019fa.tar.xz
configs-21fe6b4772a490d1250588d3515f241e1e9019fa.zip
[spacemacs] use ZNC.el for irc (wraps around erc)
kudos to Vincent Bernat for ssl-connector that reads creds from authinfo
Diffstat (limited to '')
-rw-r--r--spacemacs/.emacs.d/private/irc/extensions.el82
-rw-r--r--spacemacs/.emacs.d/private/irc/packages.el31
2 files changed, 113 insertions, 0 deletions
diff --git a/spacemacs/.emacs.d/private/irc/extensions.el b/spacemacs/.emacs.d/private/irc/extensions.el
new file mode 100644
index 0000000..47b48b1
--- /dev/null
+++ b/spacemacs/.emacs.d/private/irc/extensions.el
@@ -0,0 +1,82 @@
+;;; extensions.el --- irc Layer extensions File for Spacemacs
+;;
+;; Copyright (c) 2012-2014 Sylvain Benner
+;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
+;;
+;; Author: Sylvain Benner <sylvain.benner@gmail.com>
+;; URL: https://github.com/syl20bnr/spacemacs
+;;
+;; This file is not part of GNU Emacs.
+;;
+;; vbe* functions for reading passwords from authinfo by Vincent Bernat
+;;
+;;; License: GPLv3
+
+(setq irc-pre-extensions
+ '(
+ ;; pre extension names go here
+ ))
+
+(setq irc-post-extensions
+ '(
+ ;; post extension names go here
+ znc
+ ))
+
+;; For each extension, define a function irc/init-<extension-name>
+;;
+(defun irc/init-znc ()
+ "Initialize znc"
+ (use-package znc
+ :load-path "private/ZNC.el"
+ :commands (znc-erc znc-all)
+ :defer t
+ :init (evil-leader/set-key
+ "aize" 'znc-erc
+ "aiza" 'znc-all)
+ :config
+ (progn
+ (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 "aminb.org" 6697 "aminb"
+ '(freenode mozilla))
+ )
+ )
+ )
+;;
+;; Often the body of an initialize function uses `use-package'
+;; For more info on `use-package', see readme:
+;; https://github.com/jwiegley/use-package
diff --git a/spacemacs/.emacs.d/private/irc/packages.el b/spacemacs/.emacs.d/private/irc/packages.el
new file mode 100644
index 0000000..d8cba40
--- /dev/null
+++ b/spacemacs/.emacs.d/private/irc/packages.el
@@ -0,0 +1,31 @@
+;;; packages.el --- irc Layer packages File for Spacemacs
+;;
+;; Copyright (c) 2012-2014 Sylvain Benner
+;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
+;;
+;; Author: Sylvain Benner <sylvain.benner@gmail.com>
+;; URL: https://github.com/syl20bnr/spacemacs
+;;
+;; This file is not part of GNU Emacs.
+;;
+;;; License: GPLv3
+
+;; List of all packages to install and/or initialize. Built-in packages
+;; which require an initialization must be listed explicitly in the list.
+(setq irc-packages
+ '(
+ ;; package names go here
+ ))
+
+;; List of packages to exclude.
+(setq irc-excluded-packages '())
+
+;; For each package, define a function irc/init-<package-name>
+;;
+;; (defun irc/init-my-package ()
+;; "Initialize my package"
+;; )
+;;
+;; Often the body of an initialize function uses `use-package'
+;; For more info on `use-package', see readme:
+;; https://github.com/jwiegley/use-package