1 (setq debug-on-error t)
6 (add-to-list 'default-frame-alist '(width . 120))
7 (add-to-list 'default-frame-alist '(height . 40))
8 ;(add-to-list 'default-frame-alist '(font . "Source Code Pro for Powerline-12:weight:light" ))
9 (add-to-list 'default-frame-alist '(font . "Source Code Pro for Powerline-12" ))
13 (put 'set-goal-column 'disabled nil)
14 (setq vc-follow-symlinks t)
16 (setq ring-bell-function 'ignore)
17 (setq resize-mini-windows t)
19 (setq ns-use-srgb-colorspace nil)
20 (add-to-list 'auto-mode-alist '("emacs\\'" . emacs-lisp-mode))
24 ;;; Set symbol for the border
25 (set-display-table-slot standard-display-table
29 ;;---------------------------------------------------------------------------------------
31 ;; http://y.tsutsumi.io/emacs-from-scratch-part-2-package-management.html
34 (add-to-list 'package-archives
35 '("melpa" . "http://melpa.milkbox.net/packages/") t)
38 (defvar required-packages
48 color-theme-sanityinc-tomorrow
60 color-identifiers-mode
67 ) "a list of packages to ensure are installed at launch.")
70 (defun packages-installed-p ()
71 (loop for p in required-packages
72 when (not (package-installed-p p)) do (return nil)
75 (unless (packages-installed-p)
76 (message "%s" "Emacs is now refreshing its package database...")
77 (package-refresh-contents)
78 (message "%s" " done.")
79 (dolist (p required-packages)
80 (when (not (package-installed-p p))
81 (package-install p))))
83 ;---------------------------------------------------------------------------------------
86 (require 'ido-vertical-mode)
92 (setq ido-use-faces nil)
94 (setq org-completion-use-ido t)
95 (setq magit-completing-read-function 'magit-ido-completing-read)
97 (require 'ido-ubiquitous)
98 (ido-ubiquitous-mode 1)
102 (global-set-key (kbd "M-x") 'smex)
103 (global-set-key (kbd "M-X") 'smex-major-mode-commands)
105 ;;---------------------------------------------------------------------------------------
109 (setq magit-last-seen-setup-instructions "1.4.0")
110 ;(setq magit-auto-revert-mode nil)
115 ;;---------------------------------------------------------------------------------------
118 (global-evil-leader-mode)
119 (evil-leader/set-leader ";")
120 (evil-leader/set-key "e" 'find-file)
121 (evil-leader/set-key "b" 'switch-to-buffer)
122 (evil-leader/set-key "w" 'evil-write)
124 ;(setq key-chord-two-keys-delay 0.5)
125 (key-chord-define evil-insert-state-map "jj" 'evil-normal-state)
129 (setq evil-emacs-state-cursor '("red" box))
130 (setq evil-normal-state-cursor '("green" box))
131 (setq evil-visual-state-cursor '("orange" box))
132 (setq evil-insert-state-cursor '("red" bar))
133 (setq evil-replace-state-cursor '("red" bar))
134 (setq evil-operator-state-cursor '("red" hollow))
135 ;;Enter an emacs mode in a given state http://wikemacs.org/wiki/Evil
136 (loop for (mode . state) in '(
137 ; (inferior-emacs-lisp-mode . emacs)
138 ; (nrepl-mode . insert)
139 ; (pylookup-mode . emacs)
140 ; (comint-mode . normal)
141 ; (shell-mode . emacs)
142 ; (git-commit-mode . insert)
143 ; (git-rebase-mode . emacs)
144 ; (term-mode . emacs)
145 ; (help-mode . emacs)
146 ; (helm-grep-mode . emacs)
147 ; (grep-mode . emacs)
148 ; (bc-menu-mode . emacs)
149 ; (magit-branch-manager-mode . emacs)
150 ; (rdictcc-buffer-mode . emacs)
151 ; (dired-mode . emacs)
152 ; (wdired-mode . normal)
153 (eshell-mode . emacs))
154 do (evil-set-initial-state mode state))
158 ;;---------------------------------------------------------------------------------------
161 (setq fiplr-root-markers '(".git" ".svn" "*.DS_Store"))
162 (setq fiplr-ignored-globs '((directories (".git" ".svn"))
163 (files ("*.jpg" "*.png" "*.zip" "*~" "*.o" ".obj" "*.swp" "*.hg" ".pyc" ".*" ))))
165 (global-set-key (kbd "C-x f") 'fiplr-find-file)
167 ;;---------------------------------------------------------------------------------------
170 (global-set-key (kbd "C-x C-l") 'windmove-right)
171 (global-set-key (kbd "C-x C-h") 'windmove-left)
172 (global-set-key (kbd "C-x C-k") 'windmove-up)
173 (global-set-key (kbd "C-x C-j") 'windmove-down)
176 ;;---------------------------------------------------------------------------------------
179 (set-face-attribute 'vertical-border nil :foreground "gray")
181 ;;---------------------------------------------------------------------------------------
183 ;; https://github.com/dimitri/el-get
186 (add-to-list 'load-path "~/.emacs.d/el-get/el-get")
188 (unless (require 'el-get nil 'noerror)
190 (url-retrieve-synchronously
191 "https://raw.githubusercontent.com/dimitri/el-get/master/el-get-install.el")
192 (goto-char (point-max))
193 (eval-print-last-sexp)))
195 (add-to-list 'el-get-recipe-path "~/.emacs.d/el-get-user/recipes")
198 (el-get-bundle seudut/color-theme-tangotango
199 ; :features color-theme-tangotango
200 ; (color-theme-tangotango)
203 ;;---------------------------------------------------------------------------------------
206 (add-to-list 'load-path "~/.emacs.d/config")
207 (require 'init-color-theme)