;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/erc/erc-show-modes.el

(require 'erc)

(defun erc-modes-string ()
  (let ((modes '())
        (case-fold-search nil) )
    (dolist (var (apropos-internal "^erc-.*mode$"))
      (when (and (boundp var)
                 (symbol-value var) )
        (setq modes (cons (format "`%s'" (symbol-name var)) modes)) ))
    (mapconcat #'identity (sort modes #'string<) ", ") ))

(defun erc-cmd-SMO ()
  (erc-send-message (format "ERC modes: %s" (erc-modes-string)))
  t)

(provide 'erc-show-modes)