From 7014e03cd35b78f5e7784cc71e62f9c9abe73e3d Mon Sep 17 00:00:00 2001
From: larstvei <larstvei@student.matnat.uio.no>
Date: Sun, 5 Jan 2014 13:13:37 +0100
Subject: [PATCH] Added a way to cycle ispell directory's.

---
 init.el  | 10 ++++++++++
 init.org | 21 +++++++++++++++++++++
 2 files changed, 31 insertions(+)

diff --git a/init.el b/init.el
index 1da28b9..c12574b 100644
--- a/init.el
+++ b/init.el
@@ -267,6 +267,15 @@ PACKAGE is installed and the current version is deleted."
 (add-hook 'prog-mode-hook 'flyspell-prog-mode)
 (ac-flyspell-workaround)
 
+(defvar ispell-languages '#1=("english" "norsk" . #1#))
+
+(defun cycle-languages ()
+  "Changes the ispell-dictionary to whatever is the next (or cdr) in the
+LANGUAGES (cyclic) list."
+  (interactive)
+  (ispell-change-dictionary
+   (car (setq ispell-languages (cdr ispell-languages)))))
+
 (setq org-agenda-start-on-weekday nil             ; Show agenda from today.
       org-agenda-files '("~/Dropbox/life.org")    ; A list of agenda files.
       org-agenda-default-appointment-duration 120 ; 2 hours appointments.
@@ -332,6 +341,7 @@ PACKAGE is installed and the current version is deleted."
 (global-set-key (kbd "C-x k")    'kill-this-buffer)
 (global-set-key (kbd "C-x C-r")  'recentf-ido-find-file)
 
+(global-set-key (kbd "C-c l")    'cycle-languages)
 (global-set-key (kbd "C-c j")    'remove-whitespace-inbetween)
 (global-set-key (kbd "C-x t")    'switch-to-shell)
 (global-set-key (kbd "C-c d")    'duplicate-thing)
diff --git a/init.org b/init.org
index 5ab61cb..781842f 100644
--- a/init.org
+++ b/init.org
@@ -489,6 +489,26 @@
      (ac-flyspell-workaround)
    #+END_SRC
 
+   To cycle through dictionary's we can define a variable containing a
+   cyclic list of installed language packs.
+
+   #+BEGIN_SRC emacs-lisp :tangle yes
+     (defvar ispell-languages '#1=("english" "norsk" . #1#))
+   #+END_SRC
+
+   Now we only need a small function to change set the language and shift
+   the list.
+
+   #+BEGIN_SRC emacs-lisp :tangle yes
+     (defun cycle-languages ()
+       "Changes the ispell-dictionary to whatever is the next (or cdr) in the
+     LANGUAGES (cyclic) list."
+       (interactive)
+       (ispell-change-dictionary
+        (car (setq ispell-languages (cdr ispell-languages)))))
+   #+END_SRC
+
+
 ** Org
 
    I use =org-agenda= for appointments and such.
@@ -622,6 +642,7 @@
    Bind the functions defined [[sec:defuns][above]].
 
    #+BEGIN_SRC emacs-lisp :tangle yes
+     (global-set-key (kbd "C-c l")    'cycle-languages)
      (global-set-key (kbd "C-c j")    'remove-whitespace-inbetween)
      (global-set-key (kbd "C-x t")    'switch-to-shell)
      (global-set-key (kbd "C-c d")    'duplicate-thing)