emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Update ispell-dictionary to text language
@ 2010-01-11 11:27 Sébastien Vauban
  2010-01-11 15:31 ` Benjamin Andresen
  2010-02-21  8:25 ` Carsten Dominik
  0 siblings, 2 replies; 7+ messages in thread
From: Sébastien Vauban @ 2010-01-11 11:27 UTC (permalink / raw)
  To: emacs-orgmode-mXXj517/zsQ

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



_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode-mXXj517/zsQ@public.gmane.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

^ permalink raw reply	[flat|nested] 7+ messages in thread

end of thread, other threads:[~2010-02-21  8:25 UTC | newest]

Thread overview: 7+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-01-11 11:27 Update ispell-dictionary to text language Sébastien Vauban
2010-01-11 15:31 ` Benjamin Andresen
2010-01-13 10:20   ` Sébastien Vauban
2010-01-15  7:14     ` Carsten Dominik
2010-01-15  8:55       ` Sébastien Vauban
2010-01-15 10:22         ` Torsten Wagner
2010-02-21  8:25 ` Carsten Dominik

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).