# -*- coding: utf-8 -*-
# name: coding
# --
#!/usr/bin/env python
# -*- coding: utf-8 -*-
_

(defun my-python-hook ()
  (require 'whitespace)
  (whitespace-mode t)
  (setq tab-width 4
        py-indent-offset 4
        indent-tabs-mode nil
        py-smart-indentation t
        whitespace-style '(trailing lines-tail space-after-tab space-before-tab)
        whitespace-line-column 80)

(defun my-python-hook ()
  (setq tab-width 4
        py-indent-offset 4
        indent-tabs-mode nil
        py-smart-indentation t
        whitespace-style '(trailing lines-tail space-after-tab space-before-tab)
        whitespace-line-column 80)
  (require 'whitespace)
  (whitespace-mode t)

(autoload 'python-mode "python-mode" "Python editing mode." t)
(add-to-list 'auto-mode-alist '("\\.py$" . python-mode))

(when (load "flymake" t)
        (defun flymake-pylint-init ()
          (let* ((temp-file (flymake-init-create-temp-buffer-copy 'flymake-create-temp-inplace))
        	(local-file (file-relative-name temp-file
    		    (file-name-directory buffer-file-name))
    		)
    	    )
            (list "epylint" (list local-file))
          )
	)
        (add-to-list 'flymake-allowed-file-name-masks '("\\.py\\'" flymake-pylint-init))
)

(defun my-python-hook()
    (require 'pycomplete)
    (load-library "pylint")
    (flymake-mode)

    (autoload 'pymacs-load "pymacs" nil t)
    (autoload 'pymacs-eval "pymacs" nil t)
    (autoload 'pymacs-apply "pymacs")
    (autoload 'pymacs-call "pymacs")

    (add-to-list 'interpreter-mode-alist '("python" . python-mode))
    
    (setq 
	py-python-command "/usr/bin/python2.6"
	py-indent-offset 4
        py-smart-indentation nil
        indent-tabs-mode t
        tab-width 4
    )
)

(add-hook 'python-mode-hook 'flymake-mode)
(add-hook 'python-mode-hook 'my-python-hook)

(add-to-list 'load-path "/usr/lib64/erlang/lib/tools-2.6.4/emacs/")
(require 'erlang-start)

(add-to-list 'auto-mode-alist '("\\.erl?$" . erlang-mode))
(add-to-list 'auto-mode-alist '("\\.hrl?$" . erlang-mode))

(setq erlang-root-dir "/usr/lib64/erlang")
(add-to-list 'exec-path "/usr/lib64/erlang/bin")
(setq erlang-man-root-dir "/usr/lib64/erlang/man")

(defun my-erlang-mode-hook ()
        ;; when starting an Erlang shell in Emacs, default in the node name
        (setq inferior-erlang-machine-options '("-sname" "emacs"))
        ;; add Erlang functions to an imenu menu
        (imenu-add-to-menubar "imenu")
        ;; customize keys
        (local-set-key [return] 'newline-and-indent)
)

;; Some Erlang customizations
(add-hook 'erlang-mode-hook 'my-erlang-mode-hook)

;; Настройка distel
(add-to-list 'load-path "~/.emacs.d/distel-4.03/elisp")
(require 'distel)
(distel-setup)


;; A number of the erlang-extended-mode key bindings are useful in the shell too
(defconst distel-shell-keys
  '(("\C-\M-i"   erl-complete)
    ("\M-?"      erl-complete)
    ("\M-."      erl-find-source-under-point)
    ("\M-,"      erl-find-source-unwind)
    ("\M-*"      erl-find-source-unwind)
    )
  "Additional keys to bind when in Erlang shell.")

(add-hook 'erlang-shell-mode-hook
        (lambda ()
        ;; add some Distel bindings to the Erlang shell
            (dolist (spec distel-shell-keys)
	        (define-key erlang-shell-mode-map (car spec) (cadr spec)))))


(require 'flymake)

(defun flymake-erlang-init ()
  (let* ((temp-file (flymake-init-create-temp-buffer-copy 'flymake-create-temp-inplace))
           (local-file (file-relative-name temp-file
            (file-name-directory buffer-file-name))))
                (list "~/.emacs.d/my-erlang/eflymake" (list local-file))))
(add-to-list 'flymake-allowed-file-name-masks '("\\.erl\\'" flymake-erlang-init))