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

(require 'erc)

(let ((erc-do-spell t))

  (defun erc-toggle-spell ()
    (interactive)
    (setq erc-do-spell (not erc-do-spell))
    (message "%s" erc-do-spell) )

  (declare-function erc-toggle-spell nil)

  (defun erc-spell-then-send ()
    (interactive)
    (when erc-do-spell
      (let ((inhibit-message t))
        (ispell-region erc-input-marker (point)) ))
    (erc-send-current-line))

  (declare-function erc-spell-then-send nil) )

(provide 'erc-spell)