(defun greek-input (arg)
  (interactive "p")
  (set-input-method 'greek))

(defun russian-input (arg)
  (interactive "p")
  (set-input-method 'cyrillic-jcuken))

(set-language-environment 'utf-8)

(global-set-key "\M-g" 'greek-input)
(global-set-key "\M-r" 'russian-input)

(setq load-path (cons "elisp" load-path))
(load-file "elisp/ellinika-mode.el")       
(load-file "elisp/ellinika-dict-mode.el")       

(setq ispell-program-name "aspell")
(setq ispell-extra-args (list "--encoding=utf-8"))

(require 'ispell)
(setq ispell-dictionary-alist
      (append '(("russian" "" "" "" nil ("-d" "russian") nil utf-8)
		("greek" "" "" "[---]" nil ("-B" "-d" "el") "~tex" utf-8))
	      ispell-dictionary-alist))


(setq w3-default-homepage "http://localhost/cgi-bin/dict.cgi")