;;; bandali-erc.el --- bandali's ERC setup -*- lexical-binding: t; -*-

;; Copyright (c) 2018-2025 Amin Bandali <bandali@gnu.org>

;; Author: Amin Bandali <bandali@gnu.org>
;; Keywords: IRC, chat, client, Internet

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:

;; My ERC setup for IRC in GNU Emacs.

;;; Code:

(use-package erc
  :bind
  (("C-c w e" . erc-switch-to-buffer-other-window)
   ("C-c e l" . (lambda ()
                  (interactive)
                  (erc :id "soju-libera"
                       :server "localhost"
                       :port 6667
                       :user "bandali/irc.libera.chat")))
   ("C-c e o" . (lambda ()
                  (interactive)
                  (erc :id "soju-oftc"
                       :server "localhost"
                       :port 6667
                       :user "bandali/irc.oftc.net")))
   :map erc-mode-map
   ("M-a" . erc-track-switch-buffer))
  :custom
  (erc-auto-query 'bury)
  (erc-autojoin-domain-only nil)
  (erc-dcc-get-default-directory (b/emacs.d "erc-dcc"))
  (erc-email-userid "bandali")
  ;; (erc-join-buffer 'bury)
  ;; (erc-lurker-hide-list '("JOIN" "PART" "QUIT"))
  (erc-nick "bandali")
  (erc-prompt "erc>")
  (erc-prompt-for-password nil)
  (erc-query-display 'buffer)
  ;; (erc-server-reconnect-attempts 5)
  (erc-server-reconnect-timeout 3)
  :config
  (if (version< erc-version "5.6-git")
      (setopt erc-format-nick-function #'erc-format-@nick)
    (setopt erc-show-speaker-membership-status t))
  (unless (version< erc-version "5.5")
    (setopt erc-rename-buffers t))
  (unless (version< erc-version "5.4")
    (declare-function
     erc-message "erc-backend" (message-command line &optional force))
    (declare-function erc-default-target "erc")
    (declare-function erc-current-nick "erc")
    (defun erc-cmd-OPME ()
      "Ask chanserv to op me in the current channel."
      (erc-message "PRIVMSG"
                   (format "chanserv op %s %s"
                           (erc-default-target)
                           (erc-current-nick))
                   nil))
    (declare-function erc-cmd-DEOP "erc" (&rest people))
    (defun erc-cmd-DEOPME ()
      "Deop myself in the current channel."
      (erc-cmd-DEOP (format "%s" (erc-current-nick)))))
  (add-to-list 'erc-modules 'keep-place)
  (when (display-graphic-p)
    (add-to-list 'erc-modules 'notifications)
    (add-to-list 'erc-modules 'smiley))
  (add-to-list 'erc-modules 'spelling)

  (declare-function erc-update-modules "erc")
  (erc-update-modules))

(use-package erc-match
  :after erc
  :custom
  (erc-pal-highlight-type 'nick)
  (erc-pals
   '("corwin" "^gopar" "^iank" "^rwp" "technomancy" "thomzane"))
  :config
  (set-face-attribute
   'erc-pal-face nil
   :foreground 'unspecified
   :weight 'unspecified
   :inherit 'erc-nick-default-face
   :background "#ffffdf"))

(use-package erc-pcomplete
  :after erc
  :custom
  (erc-pcomplete-nick-postfix ","))

(use-package erc-stamp
  :after erc
  :custom
  (erc-timestamp-only-if-changed-flag nil)
  (erc-timestamp-format "%T ")
  (erc-insert-timestamp-function #'erc-insert-timestamp-left)
  :config
  (set-face-attribute
   'erc-timestamp-face nil
   :foreground "#aaaaaa"
   :weight 'unspecified
   :background 'unspecified))

(use-package erc-track
  :after erc
  :custom
  (erc-track-enable-keybindings nil)
  (erc-track-exclude-types
   '("JOIN" "MODE" "NICK" "PART" "QUIT"
     "324" "329" "332" "333" "353" "477"))
  (erc-track-position-in-mode-line t)
  (erc-track-priority-faces-only 'all)
  (erc-track-shorten-function nil)
  (erc-track-showcount t))

(provide 'bandali-erc)
;;; bandali-erc.el ends here