(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(TeX-PDF-mode t)
 '(browse-url-browser-function (quote browse-url-firefox))
 '(browse-url-firefox-program "x-www-browser")
 '(column-number-mode t)
 '(desktop-save-mode t)
 '(display-time-24hr-format nil)
 '(display-time-day-and-date t)
 '(emms-repeat-playlist t)
 '(emms-repeat-track nil)
 '(emms-track-description-function (quote emms-track-simple-description))
 '(haskell-program-name "ghci")
 '(inferior-lisp-program "/usr/bin/sbcl")
 '(ispell-program-name "aspell" t)
 '(make-backup-files nil)
 '(menu-bar-mode nil)
 '(multi-term-program "/bin/bash")
 '(org-startup-truncated nil)
 '(size-indication-mode t)
 '(term-bind-key-alist (quote (("C-c C-c" . term-interrupt-subjob) ("C-p" . previous-line) ("C-n" . next-line) ("C-s" . isearch-forward) ("C-r" . isearch-backward) ("C-m" . term-send-raw) ("M-f" . term-send-forward-word) ("M-b" . term-send-backward-word) ("M-o" . term-send-backspace) ("C-S-p" . term-send-up) ("C-S-n" . term-send-down) ("M-M" . term-send-forward-kill-word) ("M-N" . term-send-backward-kill-word) ("M-r" . term-send-reverse-search-history) ("M-," . term-send-input) ("M-." . comint-dynamic-complete))))
 '(term-unbind-key-list (quote ("C-z" "C-x" "C-c" "C-h" "C-y" "M-n" "M-p" "M-x")))
 '(tool-bar-mode nil)
 '(x-select-enable-clipboard t))

(server-start)

;; Не заставляйте меня печать yes целиком
(fset 'yes-or-no-p 'y-or-n-p)

(add-to-list 'load-path "~/.emacs.d/slime-2011-10-21/")
(require 'slime)
(slime-setup)

(load "haskell-mode/haskell-site-file")
(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)

(add-to-list 'load-path "~/.emacs.d/emms/lisp/")
(require 'emms-setup)
(require 'emms-playing-time)
(require 'emms-mode-line)
(emms-standard)
(emms-default-players)
(emms-playing-time 1)
(emms-mode-line 1)

(require 'multi-term)

(multi-term)

;;; M-n v/h
(defun hide-linum () (interactive) (linum-mode 0))
(defun view-linum () (interactive) (linum-mode 1))

(global-set-key (kbd "M-n v") 'view-linum)
(global-set-key (kbd "M-n h") 'hide-linum)

;;; M-n r/u
(defun set-us-dict () (interactive) (setq ispell-dictionary "english"))
(defun set-ru-dict () (interactive) (setq ispell-dictionary "russian"))

(global-set-key (kbd "M-n u") 'set-us-dict)
(global-set-key (kbd "M-n r") 'set-ru-dict)

(global-set-key (kbd "M-n p d") 'emms-play-directory)
(global-set-key (kbd "M-n SPC") 'emms-pause)

;;;;;;;;;
; Map Modifier-CyrillicLetter to the underlying Modifier-LatinLetter, so that
; control sequences can be used when keyboard mapping is changed outside of
; Emacs.
;
; For this to work correctly, .emacs must be encoded in the default coding
; system.
;
(mapcar*
 (lambda (r e) ; R and E are matching Russian and English keysyms iterate over modifiers
   (mapc (lambda (mod)
       (define-key input-decode-map
         (vector (list mod r)) (vector (list mod e))))
     '(control meta super hyper))
                    ; finally, if Russian key maps nowhere, remap it to the English key without
                    ; any modifiers
   (define-key local-function-key-map (vector r) (vector e)))
 "йцукенгшщзхъфывапролджэячсмитьбю"
 "qwertyuiop[]asdfghjkl;'zxcvbnm,.")
;;;;;;;;;

(require 'tex-site)