1 files changed, 0 insertions, 82 deletions
diff --git a/dotfiles/.emacs.d/erc.el b/dotfiles/.emacs.d/erc.el
deleted file mode 100644
index 3f26d16..0000000
--- a/dotfiles/.emacs.d/erc.el
+++ /dev/null
@@ -1,82 +0,0 @@
-(require 'erc)
-(require 'erc-log)
-(require 'erc-notify)
-;;(require 'erc-spelling)
-(require 'erc-autoaway)
-(require 'erc-services)
-(require 'notifications)
-(require 'tls)
-
-;; Notify the user of private messages
-(defun erc-private-message-notify (proc parsed)
-  (let ((nick (car (erc-parse-user (erc-response.sender parsed))))
-        (target (car (erc-response.command-args parsed)))
-        (msg (erc-response.contents parsed)))
-    (notifications-notify :title nick :body msg)))
-
-;; (add-hook 'erc-server-PRIVMSG-functions 'erc-private-message-notify)
-
-;; Interpret mIRC-style color commands in IRC chats
-(setq erc-interpret-mirc-color t)
-
-;; The following are commented out by default, but users of other
-;; non-Emacs IRC clients might find them useful.
-;; Kill buffers for channels after /part
-(setq erc-kill-buffer-on-part t)
-;; Kill buffers for private queries after quitting the server
-(setq erc-kill-queries-on-quit t)
-;; Kill buffers for server messages after quitting the server
-(setq erc-kill-server-buffer-on-quit t)
-
-;; exclude boring stuff from tracking
-(erc-track-mode t)
-(setq erc-track-exclude-types '("JOIN" "NICK" "PART" "QUIT" "MODE"
-                                "324" "329" "332" "333" "353" "477"))
-
-;; logging
-(setq erc-log-channels-directory "~/.erc/logs/")
-
-(if (not (file-exists-p erc-log-channels-directory))
-    (mkdir erc-log-channels-directory t))
-
-(setq erc-save-buffer-on-part t)
-
-;; utf-8 always and forever
-(setq erc-server-coding-system '(utf-8 . utf-8))
-
-;; Auto-join channels
-(erc-autojoin-mode t)
-(setq erc-autojoin-channels-alist
-      '(("freenode.net" "#guile" "#guix" "#lispgames" "#librelounge")))
-
-;; Don't open channel buffers in place of the current buffer because
-;; that drives me fucking crazy.
-(setq erc-join-buffer 'bury)
-
-;; Secret password file
-(defvar freenode-password nil)
-(let ((password-file "~/.emacs.d/.ercpasswords"))
-  (when (file-exists-p password-file)
-    (load password-file)))
-
-;; Start and stop erc
-(defun start-irc ()
-  "Connect to IRC."
-  (interactive)
-  (erc-tls :server "irc.freenode.net"
-           :port 6697
-           :nick "davexunit"))
-
-(defun filter-erc-server-buffers ()
-  (delq nil
-        (mapcar
-         (lambda (x) (and (erc-server-buffer-p x) x))
-         (buffer-list))))
-
-(defun stop-irc ()
-  "Disconnects from all irc servers"
-  (interactive)
-  (dolist (buffer (filter-erc-server-buffers))
-    (message "Server buffer: %s" (buffer-name buffer))
-    (with-current-buffer buffer
-      (erc-quit-server "Later"))))