[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] Update ispell-dictionary to text language
From: |
Sébastien Vauban |
Subject: |
[Orgmode] Update ispell-dictionary to text language |
Date: |
Mon, 11 Jan 2010 12:27:52 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (gnu/linux) |
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
- [Orgmode] Update ispell-dictionary to text language,
Sébastien Vauban <=