2 (setq debug-on-error t)
7 (add-to-list 'default-frame-alist '(width . 120))
8 (add-to-list 'default-frame-alist '(height . 40))
9 ;(add-to-list 'default-frame-alist '(font . "Source Code Pro for Powerline-12:weight:light" ))
10 (add-to-list 'default-frame-alist '(font . "Source Code Pro for Powerline-12" ))
11 (load-theme 'tango-dark)
14 (put 'set-goal-column 'disabled nil)
15 (setq vc-follow-symlinks t)
17 (setq ring-bell-function 'ignore)
18 (setq resize-mini-windows t)
21 (add-to-list 'auto-mode-alist '("emacs\\'" . emacs-lisp-mode))
22 ;(set-fringe-mode nil)
28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
29 ;http://y.tsutsumi.io/emacs-from-scratch-part-2-package-management.html
31 (add-to-list 'package-archives
32 '("melpa" . "http://melpa.milkbox.net/packages/") t)
35 (defvar required-packages
45 color-theme-sanityinc-tomorrow
57 color-identifiers-mode
58 ) "a list of packages to ensure are installed at launch.")
61 (defun packages-installed-p ()
62 (loop for p in required-packages
63 when (not (package-installed-p p)) do (return nil)
66 (unless (packages-installed-p)
67 (message "%s" "Emacs is now refreshing its package database...")
68 (package-refresh-contents)
69 (message "%s" " done.")
70 (dolist (p required-packages)
71 (when (not (package-installed-p p))
72 (package-install p))))
73 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
76 ;;---------------------------------------------------------------------------------------
79 (require 'color-theme)
80 (load-theme 'sanityinc-tomorrow-bright t)
82 ;;---------------------------------------------------------------------------------------
85 (require 'ido-vertical-mode)
91 (setq ido-use-faces nil)
92 ;(setq ido-enable-flex-matching t)
93 ;(setq ido-use-faces t)
94 ;(setq ido-use-faces nil)
95 ;(set-face-attribute 'ido-vertical-first-match-face nil
96 ; :background "#e5b7c0")
97 ;(set-face-attribute 'ido-vertical-only-match-face nil
98 ; :background "#e52b50"
99 ; :foreground "white")
100 ;(set-face-attribute 'ido-vertical-match-face nil
101 ; :foreground "#b00000")
105 (global-set-key (kbd "M-x") 'smex)
106 (global-set-key (kbd "M-X") 'smex-major-mode-commands)
108 ;;---------------------------------------------------------------------------------------
112 ;(setq magit-auto-revert-mode nil)
113 (setq magit-last-seen-setup-instructions "1.4.0")
115 ;;---------------------------------------------------------------------------------------
119 ;(powerline-evil-vim-color-theme)
120 (powerline-evil-center-color-theme)
121 (display-time-mode t)
123 ;;---------------------------------------------------------------------------------------
126 (global-evil-leader-mode)
127 (evil-leader/set-leader ";")
128 (evil-leader/set-key "e" 'find-file)
129 (evil-leader/set-key "b" 'switch-to-buffer)
131 ;(setq key-chord-two-keys-delay 0.5)
132 ;(key-chord-define evil-normal-state-map "jj" 'evil-force-normal-state)
133 ;(key-chord-define evil-visual-state-map "jj" 'evil-change-to-previous-state)
134 (key-chord-define evil-insert-state-map "jj" 'evil-normal-state)
135 ;(key-chord-define evil-replace-state-map "jj" 'evil-normal-state)
138 ;; change mode-line color by evil state
139 (lexical-let ((default-color (cons (face-background 'mode-line)
140 (face-foreground 'mode-line))))
141 (add-hook 'post-command-hook
143 (let ((color (cond ((minibufferp) default-color)
144 ((evil-insert-state-p) '("#e80000" . "#ffffff"))
145 ((evil-emacs-state-p) '("#444488" . "#ffffff"))
146 ((buffer-modified-p) '("#006fa0" . "#ffffff"))
148 (set-face-background 'mode-line (car color))
149 (set-face-foreground 'mode-line (cdr color))))))
151 (setq evil-emacs-state-cursor '("red" box))
152 (setq evil-normal-state-cursor '("green" box))
153 (setq evil-visual-state-cursor '("orange" box))
154 (setq evil-insert-state-cursor '("red" bar))
155 (setq evil-replace-state-cursor '("red" bar))
156 (setq evil-operator-state-cursor '("red" hollow))
159 ;(require 'powerline-evil)
160 ;; TODO: enter emacs mode in eshll rather then evil mode
162 ;;---------------------------------------------------------------------------------------
165 (setq fiplr-root-markers '(".git" ".svn" "*.DS_Store"))
166 (setq fiplr-ignored-globs '((directories (".git" ".svn"))
167 (files ("*.jpg" "*.png" "*.zip" "*~" "*.o" ".obj" "*.swp" "*.hg" ".pyc" ".*" ))))
169 (global-set-key (kbd "C-x f") 'fiplr-find-file)
170 ;;---------------------------------------------------------------------------------------
172 ;(setq mac-right-option-modifier 'control)
176 ;;---------------------------------------------------------------------------------------
179 ;;;;;;;;;;; helm configuration https://github.com/emacs-helm/helm http://tuhdo.github.io/helm-intro.html
180 ;;(require 'helm-config)
181 ;;(global-set-key (kbd "M-x") 'helm-M-x)
183 ;;(setq helm-M-x-fuzzy-match t)
184 ;;(global-set-key (kbd "C-x b") 'helm-mini)
185 ;;(setq helm-buffers-fuzzy-matching t
186 ;; helm-recentf-fuzzy-match t)
187 ;;(global-set-key (kbd "C-x C-f") 'helm-find-files)
188 ;;(when (executable-find "ack-grep")
189 ;; (setq helm-grep-default-command "ack-grep -Hn --no-group --no-color %e %p %f"
190 ;; helm-grep-default-recurse-command "ack-grep -H --no-group --no-color %e %p %f"))
191 ;;(setq helm-ff-skip-boring-files t)
192 ;;;(require 'helm-config)
193 ;;;(require 'helm-themes)
194 ;;;(set-face-attribute 'helm-selection nil :background "#441100")
196 ;;---------------------------------------------------------------------------------------
199 (require 'auto-complete)
200 (auto-complete-mode 1)
203 ;;; ---------------------------------------- el-get -----------------------------------------
205 ;(add-to-list 'el-get-recipe-path "~/.emacs.d/el-get-user/recipes")
207 ;(el-get-bundle packages/sm-package-powerline
208 ; :url "https://github.com/laynor/emacs-conf.git"
212 ;;; -----------------------------------------------------------------------------------------
213 ;(add-to-list 'load-path "~/.emacs.d/test/powerline")
214 ;(require 'powerline)
220 ;(require 'powerline-evil)
221 ;;;; --------------------------- powerline --------------------------------------
224 ; '(mode-line-buffer-id ((t (:foreground "#008000" :bold t))))
225 ; '(which-func ((t (:foreground "#008000"))))
226 ; '(mode-line ((t (:foreground "#008000" :background "#dddddd" :box nil))))
227 ; '(mode-line-inactive ((t (:foreground "#008000" :background "#bbbbbb" :box nil)))))
230 ;(defun powerline-simpler-vc-mode (s)
232 ; (replace-regexp-in-string "Git:" "" s)
235 ;(defun powerline-simpler-minor-display (s)
236 ; (replace-regexp-in-string
238 ; (mapconcat 'identity '("Undo-Tree" "GitGutter" "Projectile"
239 ; "Abbrev" "ColorIds" "MRev" "ElDoc" "Paredit"
240 ; "+1" "+2" "FlyC" "Fly" ;; ":1/0"
241 ; "Fill" "AC" "FIC") "\\|")) "" s))
243 ;(defun powerline-ha-theme ()
244 ; "A powerline theme that removes many minor-modes that don't serve much purpose on the mode-line."
246 ; (setq-default mode-line-format
251 ; (powerline-selected-window-active))
253 ; (if active 'mode-line 'mode-line-inactive))
255 ; (if active 'powerline-active1 'powerline-inactive1))
257 ; (if active 'powerline-active2 'powerline-inactive2))
260 ; (format "powerline-%s-%s" powerline-default-separator
261 ; (car powerline-default-separator-dir))))
264 ; (format "powerline-%s-%s" powerline-default-separator
265 ; (cdr powerline-default-separator-dir))))
268 ; (powerline-raw "%*" nil 'l)
269 ; ;; (powerline-buffer-size nil 'l)
270 ; (powerline-buffer-id nil 'l)
271 ; (powerline-raw " ")
272 ; (funcall separator-left mode-line face1)
273 ; (powerline-narrow face1 'l)
274 ; (powerline-simpler-vc-mode (powerline-vc face1))))
277 ; (powerline-raw mode-line-misc-info face1 'r)
278 ; (powerline-raw global-mode-string face1 'r)
279 ; (powerline-raw "%4l" face1 'r)
280 ; (powerline-raw ":" face1)
281 ; (powerline-raw "%3c" face1 'r)
282 ; (funcall separator-right face1 mode-line)
283 ; (powerline-raw " ")
284 ; (powerline-raw "%6p" nil 'r)
285 ; (powerline-hud face2 face1)))
288 ; (powerline-raw " " face1)
289 ; (funcall separator-left face1 face2)
291 ; (boundp 'erc-modified-channels-object)
292 ; (powerline-raw erc-modified-channels-object face2 'l))
293 ; (powerline-major-mode face2 'l)
294 ; (powerline-process face2)
295 ; (powerline-raw " :" face2)
297 ; (powerline-simpler-minor-display (powerline-minor-modes face2 'l))
299 ; (powerline-raw " " face2)
300 ; (funcall separator-right face2 face1))))
302 ; (powerline-render lhs)
303 ; (powerline-fill-center face1
305 ; (powerline-width center)
307 ; (powerline-render center)
308 ; (powerline-fill face1
309 ; (powerline-width rhs))
310 ; (powerline-render rhs)))))))
312 ;(powerline-ha-theme)
315 ;(provide 'init-mode-line)