From f7fa2fe389b37fbb5532e17747c5d3a7b2c6b394 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Fri, 9 Oct 2020 09:52:26 -0400
Subject: Remove a bunch of old crusty erc config.

---
 dotfiles/.emacs.d/erc.el | 55 +++---------------------------------------------
 1 file changed, 3 insertions(+), 52 deletions(-)

diff --git a/dotfiles/.emacs.d/erc.el b/dotfiles/.emacs.d/erc.el
index 5461f15..3f26d16 100644
--- a/dotfiles/.emacs.d/erc.el
+++ b/dotfiles/.emacs.d/erc.el
@@ -16,22 +16,6 @@
 
 ;; (add-hook 'erc-server-PRIVMSG-functions 'erc-private-message-notify)
 
-;; Notify the user when their nick is mentioned
-(defun erc-nick-mentioned-notify (match-type nick message)
-  "Shows a notification when user's nick is mentioned."
-  (when (and (not (posix-string-match "^\\** *Users on #" message))
-             (eq math-type 'current-nick))
-    (notifications-notify
-     :title nick
-     :body message
-     :app-icon "/usr/share/notify-osd/icons/gnome/scalable/status/notification-message-im.svg"
-     :urgency 'low)))
-
-;; (add-hook 'erc-text-matched-hook 'erc-nick-mentioned-notify)
-
-;; Nickname
-(setq erc-nick "davexunit")
-
 ;; Interpret mIRC-style color commands in IRC chats
 (setq erc-interpret-mirc-color t)
 
@@ -44,9 +28,6 @@
 ;; Kill buffers for server messages after quitting the server
 (setq erc-kill-server-buffer-on-quit t)
 
-;; open query buffers in the current window
-(setq erc-query-display 'buffer)
-
 ;; exclude boring stuff from tracking
 (erc-track-mode t)
 (setq erc-track-exclude-types '("JOIN" "NICK" "PART" "QUIT" "MODE"
@@ -60,21 +41,13 @@
 
 (setq erc-save-buffer-on-part t)
 
-;; truncate long irc buffers
-(erc-truncate-mode 1)
-
-;; enable spell checking
-;;(erc-spelling-mod 0)
-
 ;; 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")
-        ("slack.com" "#general" "#random" "#ops" "#techeng"
-         "#church-of-emacs")))
+      '(("freenode.net" "#guile" "#guix" "#lispgames" "#librelounge")))
 
 ;; Don't open channel buffers in place of the current buffer because
 ;; that drives me fucking crazy.
@@ -86,35 +59,13 @@
   (when (file-exists-p password-file)
     (load password-file)))
 
-;; Stuff to make authenticating with Rizon work
-(erc-services-mode t)
-(setq erc-prompt-for-nickserv-password nil)
-(setq erc-nickserv-identify-mode 'autodetect)
-
 ;; Start and stop erc
 (defun start-irc ()
   "Connect to IRC."
   (interactive)
-  (erc-tls :server "dthompson.us"
-           :port 1025
-           :nick erc-nick
-           :password freenode-password))
-
-(defun start-oftc ()
-  "Connect to OFTC IRC."
-  (interactive)
-  (erc-tls :server "irc.oftc.net"
-           :port 6697
-           :nick erc-nick
-           :password oftc-password))
-
-(defun start-slack ()
-  "Connect to Slack."
-  (interactive)
-  (erc-tls :server "vhl.irc.slack.com"
+  (erc-tls :server "irc.freenode.net"
            :port 6697
-           :nick erc-nick
-           :password slack-password))
+           :nick "davexunit"))
 
 (defun filter-erc-server-buffers ()
   (delq nil
-- 
cgit v1.2.3