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

(require 'cl-lib)
(require 'ispell)

;; https://dataswamp.org/~incal/emacs-init/dwim.el
(require 'dwim)

(defvar ispell-langs '(("en" "american-insane")
                       ("fr" "francais")
                       ("sv" "svenska")))

(defun ispell-spell-all (&optional beg end)
  (interactive (use-region))
  (or beg (setq beg (point)))
  (or end (setq end (point-max)))
  (cl-loop for (lang dict) in ispell-langs do
    (let* ((this (format "-->{%s}" lang))
           (all  "-->{[[:alpha:]]\\{2\\}}")
           (ispell-skip-region-alist
            `(,(list this)
              ,(list all (lambda ()
                           (unless (re-search-forward this nil t)
                             (goto-char end))))
              ,@ispell-skip-region-alist)))
      (unless (string= dict ispell-current-dictionary)
        (ispell-change-dictionary dict))
      (ispell-region beg end))))

;; -->{en}
;; Gnus is an Emacs package prxmarily designed for reading and
;; posting Usenet news.
;;
;; -->{sv}
;; Aftonbladet är en svensk kvälls- och nättidning grundad den
;; 6 december 1830 av Lars Johan Hierta, vars ledarsida sedan
;; början av 1960-talet har den politiska beteckningen
;; "oberoende socialdemokratisk". Sedan den 25 augusti 1994
;; finns Aftonbladet också på webben.
;;
;; -->{sv}
;; Inte meg.
;;
;; -->{en}
;; It can also be used to read and respond to messages from
;; a nhhunber of other sources — email, remote directories,
;; digests, and so on.
;;
;; -->{fr}
;; Il aimait la façxn gracieuze qu’elle avait de nager dans
;; l’eau. La baleine aimait les belles plumes blanches de
;; l’oiseau. Elle aimait le regarder planer dans le ciel.
;;
;; -->{en}
;; Sszpell me.

(provide 'ispell-all)