.emacs on 31.03.2015 9:37

(add-to-list 'load-path "~/.emacs.d/.self")

;; (load "package")
;; (require 'package)
;; (setq package-archives '(("gnu" . "http://elpa.gnu.org/packages")
;;                          ("marmalade" . "http://marmalade-repo.org/packages/")
;;                          ("mepla" . "http://mepla.org/packages")))

;; (package-initialize)


(add-to-list 'load-path "~/.emacs.d/el-get/el-get")
(unless (require 'el-get nil 'noerror)
  (with-current-buffer
      (url-retrieve-synchronously
       "https://raw.github.com/dimitri/el-get/master/el-get-install.el")
    (let (el-get-master-branch)
      (goto-char (point-max))
      (eval-print-last-sexp))))

(require 'el-get-elpa)

(el-get 'sync)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;; evil-mode
(require 'evil)
(evil-mode 1)


;; ido
(require 'ido)
(ido-mode t)
(setq ido-enable-flex-matching t)


;; linum+
(require 'linum+)
(setq linum-format "%d ")
(global-linum-mode 1)


;; emmet-mode
(require 'emmet-mode)
(add-hook 'sgml-mode-hook 'emmet-mode)
(add-hook 'css-mode-hook 'emmet-mode)
(add-hook 'xml-mode-hook 'emmet-mode)
(add-hook 'nxml-mode-hook 'emmet-mode)


;; projectile
(require 'projectile)
(projectile-global-mode)
(setq projectile-enable-caching t)
(setq projectile-require-project-root nil)


;; jedi
(add-hook 'python-mode-hook 'auto-complete-mode)
(add-hook 'python-mode-hook 'jedi:ac-setup)


;; coffee-mode
(require 'coffee-mode)


;; org-mode
(require 'org-install)
(setq org-src-fontify-natively 't)
(setq org-todo-keywords '((sequence "TODO" "FIXME" "VERIFY" "|" "DONE")))


;; nav
(require 'nav)
(nav-disable-overeager-window-splitting)
(global-set-key (kbd "<f8>") 'nav-toggle)


;; writer-mode
(add-to-list 'load-path "~/dev/xp/writer-mode/")
(require 'writer-mode)


;; lua-mode
(require 'lua-mode)


;; less-css-mode
(require 'less-css-mode)


;; go-mode
(add-to-list 'ac-modes 'go-mode)


;; yasnippet
(require 'yasnippet)
(yas-global-mode 1)
(setq yas-snippet-dirs
      '("~/.emacs.d/snippets"))
(define-key yas-minor-mode-map (kbd "<tab>") nil)
(define-key yas-minor-mode-map (kbd "TAB") nil)
(define-key yas-minor-mode-map (kbd "M-<tab>") 'yas-expand)


;; ace-jump-mode
(require 'ace-jump-mode)


;; multiple-cursors
(require 'multiple-cursors)


;;
(require 'flyspell)
(require 'ispell)

(setq
 ispell-program-name "aspell"
 ispell-extra-args '("--sug-mode=ultra"))

(setq ispell-highlight-face (quote flyspell-incorrect))
(setq ispell-have-new-look t)
(setq ispell-enable-tex-parser t)
(add-hook 'text-mode-hook 'flyspell-mode)
(add-hook 'latex-mode-hook 'flyspell-mode)
(add-hook 'org-mode-hook 'flyspell-mode)
(setq flyspell-delay 1)
(setq flyspell-always-use-popup t)

(setq flyspell-issue-welcome-flag nil)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(setq make-backup-files         nil)
(setq auto-save-list-file-name  nil)
(setq auto-save-default         nil)

(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)

(show-paren-mode t)
(setq blink-matching-delay 0.3)

(setq-default truncate-lines t)

(column-number-mode)

(set-face-attribute 'default nil :height 100)

(electric-pair-mode 1)

; Табуляция
(setq-default tab-width 4)
(setq-default tab-width 4)
(setq-default c-basic-offset 4)
(setq-default indent-tabs-mode t)

(setq tab-width 4)
(setq tab-width 4)
(setq c-basic-offset 4)
(setq indent-tabs-mode t)


(add-hook 'python-mode-hook
          (lambda ()
            (setq tab-width 4)
            (setq python-indent 4)
            (setq indent-tabs-mode t)))

(add-hook 'emacs-lisp-mode-hook
          (function (lambda ()
                      (setq tab-width 2)
                      (setq indent-tabs-mode nil))))

(add-hook 'html-mode-hook
          (lambda ()
            (set (make-local-variable 'sgml-basic-offset) 4)))

(add-hook 'org-mode-hook
          (lambda ()
            (visual-line-mode)
            (setq truncate-lines nil)
            (setq tab-width 4)))

(add-hook 'lua-mode-hook
          (lambda ()
            (setq tab-width 4)
            (setq indent-tabs-mode t)))

(add-hook 'c-mode-hook
          (lambda ()
            (setq tab-width 4)
            (setq tab-width 4)
            (setq c-basic-offset 4)
            (setq indent-tabs-mode t)))

(add-hook 'c++-mode-hook
          (lambda ()
            (setq tab-width 4)
            (setq tab-width 4)
            (setq c-basic-offset 4)
            (setq indent-tabs-mode t)
            (c-set-offset 'innamespace [0])
            (c-set-offset 'inmethod [4])
            (c-set-offset 'infunction [4])
            (c-set-offset 'inclass [4])))

(add-hook 'xml-mode-hook
          (lambda ()
            (setq truncate-lines nil)
            (setq tab-width 4)
            (setq nxml-child-indent 4)
            (setq indent-tabs-mode t)))

(add-hook 'nxml-mode-hook
          (lambda ()
            (setq truncate-lines nil)
            (setq tab-width 4)
            (setq nxml-child-indent 4)
            (setq indent-tabs-mode t)))

(add-hook 'html-mode-hook
          (lambda ()
            ;; (setq truncate-lines nil)
            (setq tab-width 4)
            (setq nxml-child-indent 4)
            (setq indent-tabs-mode t)))

(add-hook 'go-mode-hook
          (lambda ()
            (setq tab-width 4)
            (setq indent-tabs-mode t)))

(add-hook 'snippet-mode-hook
          (lambda ()
            (setq tab-width 4)
            (setq indent-tabs-mode t)))

(add-hook 'fundamental-mode-hook
          (lambda ()
            (setq tab-width 4)
            (setq tab-width 4)
            (setq indent-tabs-mode t)))

(add-hook 'text-mode-hook
          (lambda ()
            (setq tab-width 4)
            (setq tab-width 4)
            (setq indent-tabs-mode t)))


(setq-default python-indent 4)
(setq-default py-indent-offset 4)
(setq-default python-basic-indent 4)
(setq-default python-basic-offset 0)

;;
; Выравнивание должно быть БЕЗ табов
(setq cua-auto-tabify-rectangles nil)

(defadvice align (around smart-tabs activate)
  (let ((indent-tabs-mode nil)) ad-do-it))

(defadvice align-regexp (around smart-tabs activate)
  (let ((indent-tabs-mode nil)) ad-do-it))

(defadvice indent-relative (around smart-tabs activate)
  (let ((indent-tabs-mode nil)) ad-do-it))

(defadvice indent-according-to-mode (around smart-tabs activate)
  (let ((indent-tabs-mode indent-tabs-mode))
    (if (memq indent-line-function
              '(indent-relative
                indent-relative-maybe))
        (setq indent-tabs-mode nil))
    ad-do-it))

(defmacro smart-tabs-advice (function offset)
  `(progn
     (defvaralias ',offset 'tab-width)
     (defadvice ,function (around smart-tabs activate)
       (cond
        (indent-tabs-mode
         (save-excursion
           (beginning-of-line)
           (while (looking-at "\t*\\( +\\)\t+")
             (replace-match "" nil nil nil 1)))
         (setq tab-width tab-width)
         (let ((tab-width fill-column)
               (,offset fill-column)
               (wstart (window-start)))
           (unwind-protect
               (progn ad-do-it)
             (set-window-start (selected-window) wstart))))
        (t
         ad-do-it)))))

(smart-tabs-advice c-indent-line c-basic-offset)
(smart-tabs-advice c-indent-region c-basic-offset)

;; (smart-tabs-advice python-indent-line python-basic-offset)
;; (smart-tabs-advice python-indent-region python-basic-offset)

(defun increase-font-size ()
  (interactive)
  (set-face-attribute 'default
                      nil
                      :height
                      (ceiling (* 1.10
                                  (face-attribute 'default :height)))))
(defun decrease-font-size ()
  (interactive)
  (set-face-attribute 'default
                      nil
                      :height
                      (floor (* 0.9
                                  (face-attribute 'default :height)))))

;
;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defun enlarge-vert ()
  (interactive)
  (enlarge-window 2))

(defun shrink-vert ()
  (interactive)
  (enlarge-window -2))

(defun enlarge-horiz ()
  (interactive)
  (enlarge-window-horizontally 2))

(defun shrink-horiz ()
  (interactive)
  (enlarge-window-horizontally -2))

(defun toggle-line-comment ()
  (interactive)
  (comment-or-uncomment-region (line-beginning-position) (line-end-position)))

(defun toggle-comment ()
  (interactive)
  (let (beg end)
    (if (region-active-p)
        (setq beg (region-beginning) end (region-end))
      (setq beg (line-beginning-position) end (line-end-position)))
    (comment-or-uncomment-region beg end)
    (next-line)))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(define-key evil-insert-state-map (kbd "M-SPC") 'evil-normal-state)
(define-key evil-normal-state-map (kbd "M-SPC") 'evil-normal-state) ; так нужно
(define-key evil-visual-state-map (kbd "M-SPC") 'evil-normal-state)

(define-key evil-normal-state-map (kbd "M-o") 'ido-switch-buffer)

(define-key evil-normal-state-map (kbd "M-0") 'delete-window)
(define-key evil-normal-state-map (kbd "M-1") 'delete-other-windows)
(define-key evil-normal-state-map (kbd "M-2") 'split-window-below)
(define-key evil-normal-state-map (kbd "M-3") 'split-window-right)
(define-key evil-normal-state-map (kbd "M-q") 'other-window)

(define-key evil-normal-state-map (kbd "M-h") 'windmove-left)
(define-key evil-normal-state-map (kbd "M-j") 'windmove-down)
(define-key evil-normal-state-map (kbd "M-k") 'windmove-up)
(define-key evil-normal-state-map (kbd "M-l") 'windmove-right)

(define-key evil-normal-state-map (kbd "C-(") 'enlarge-vert)
(define-key evil-normal-state-map (kbd "C-)") 'shrink-vert)

(define-key evil-normal-state-map (kbd "C-9") 'enlarge-horiz)
(define-key evil-normal-state-map (kbd "C-0") 'shrink-horiz)

(define-key evil-normal-state-map (kbd "C-?") 'toggle-comment)
(define-key evil-insert-state-map (kbd "C-?") 'toggle-comment)

(define-key evil-normal-state-map (kbd "C-/") 'toggle-line-comment)
(define-key evil-insert-state-map (kbd "C-/") 'toggle-line-comment)

(define-key evil-normal-state-map (kbd "M-f") 'projectile-find-file)

;; (define-key evil-normal-state-map (kbd "C-c SPC") 'ace-jump-mode)
;; (define-key evil-insert-state-map (kbd "C-c SPC") 'ace-jump-mode)
(define-key evil-normal-state-map (kbd "M-d") 'ace-jump-mode)
(define-key evil-insert-state-map (kbd "M-d") 'ace-jump-mode)

(define-key evil-normal-state-map (kbd "C-f") 'align-current)
(define-key evil-insert-state-map (kbd "C-f") 'align-current)

;; (define-key evil-normal-state-map (kbd "M-h") 'org-metaleft)
;; (define-key evil-normal-state-map (kbd "M-l") 'org-metaright)

(global-set-key (kbd "C-+") 'increase-font-size)
(global-set-key (kbd "C--") 'decrease-font-size)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



(custom-set-variables
 '(ansi-color-faces-vector
   [default default default italic underline success warning error])
 '(coffee-indent-tabs-mode t)
 '(coffee-tab-width 4)
 '(custom-enabled-themes (quote (wombat)))
 '(inhibit-startup-screen t)
 '(lua-indent-level 4)
 '(org-default-notes-file "~/.notes")
 '(org-directory "~/.org"))

(color-theme-almost-monokai)