summaryrefslogtreecommitdiffstats
path: root/spacemacs/.emacs.d/private/irc
diff options
context:
space:
mode:
authorAmin Bandali <me@aminb.org>2016-02-13 18:41:57 -0500
committerAmin Bandali <me@aminb.org>2016-02-13 18:41:57 -0500
commit899452ca17d9e85c0f6dd416b6bb81678bef18d2 (patch)
tree2ccf86be32a099665f70f9c849c07f2eaa41e972 /spacemacs/.emacs.d/private/irc
parent97923e8fc0a53daa6f55b6cfa61930434dee6e25 (diff)
downloadconfigs-899452ca17d9e85c0f6dd416b6bb81678bef18d2.tar.gz
configs-899452ca17d9e85c0f6dd416b6bb81678bef18d2.tar.xz
configs-899452ca17d9e85c0f6dd416b6bb81678bef18d2.zip
[spacemacs] start from scratch
with .spacemacs of develop branch at a111f48
Diffstat (limited to 'spacemacs/.emacs.d/private/irc')
-rw-r--r--spacemacs/.emacs.d/private/irc/extensions.el82
-rw-r--r--spacemacs/.emacs.d/private/irc/packages.el31
2 files changed, 0 insertions, 113 deletions
diff --git a/spacemacs/.emacs.d/private/irc/extensions.el b/spacemacs/.emacs.d/private/irc/extensions.el
deleted file mode 100644
index 47b48b1..0000000
--- a/spacemacs/.emacs.d/private/irc/extensions.el
+++ /dev/null
@@ -1,82 +0,0 @@
-;;; 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
deleted file mode 100644
index d8cba40..0000000
--- a/spacemacs/.emacs.d/private/irc/packages.el
+++ /dev/null
@@ -1,31 +0,0 @@
-;;; 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