[Orgmode] Update ispell-dictionary to text language

[Sébastien Vauban]

Hello,

Here my proposal (and my very first self-written chunk of ELisp code) for
switching to the right language for ispell, upon reading the contents of the
meta-tag `LANGUAGE'.

--8<---------------cut here---------------start------------->8---
  (defun org-switch-language ()
    "Switch language for Org file, if a `#+LANGUAGE:' meta-tag is on top 14 
lines."
    (save-excursion
      (goto-line 15)
      (if (re-search-backward "#\\+LANGUAGE: +\\([A-Za-z_]*\\)" 1 t)
          (ispell-change-dictionary (match-string 1)))))
--8<---------------cut here---------------end--------------->8---

That should be hooked, such in:

--8<---------------cut here---------------start------------->8---
  (add-hook 'org-mode-hook
            (lambda ()
              ;; file modification date
              (set (make-local-variable 'time-stamp-format) "%:y-%02m-%02d")
              (set (make-local-variable 'time-stamp-start) "^#\\+DATE: +")
              (set (make-local-variable 'time-stamp-end) "$")

              ;; guess language
              (org-switch-language)

              ;; flyspell mode to spell check everywhere
              (flyspell-mode 1)))
--8<---------------cut here---------------end--------------->8---

Maybe that could become a default in Org. I think that makes sense.

Comments are (more than) welcome...

Best regards,
  Seb

-- 
Sébastien Vauban