emacs/site-lisp/irc-config.el


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24


;; erc stuff
(require 'erc)
(setq erc-modules '(services autojoin button completion fill imenu irccontrols list match menu
                             move-to-prompt netsplit networks readonly ring stamp track)
      erc-nick "tccq"
      erc-use-auth-source-for-nickserv-password t
      erc-autojoin-channels-alist '(("libera.chat"
                                      "#emacs" "#emacs-social" "#linux" "#archlinux" "#haskell" "#invidious"))

      erc-hide-list '("JOIN" "PART" "QUIT")
      erc-current-nick-highlight-type 'nick
      erc-keywords nil
      erc-track-exclude-types '("JOIN" "PART" "QUIT" "NICK" "MODE")
      erc-track-use-faces t
      erc-track-faces-priority-list '(erc-current-nick-face erc-keyword-face)
      erc-track-priority-faces-only 'all)

(defun start-erc ()
  "Start erc and autojoin various channels"
  (interactive)
  (erc :server "irc.libera.chat" :port 6667))

(provide 'irc-config)