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 ;;---------------------------------------------------------------------------------------
121 ;;---------------------------------------------------------------------------------------
124 (global-evil-leader-mode)
125 (evil-leader/set-leader ";")
126 (evil-leader/set-key "e" 'find-file)
127 (evil-leader/set-key "b" 'switch-to-buffer)
129 ;(setq key-chord-two-keys-delay 0.5)
130 ;(key-chord-define evil-normal-state-map "jj" 'evil-force-normal-state)
131 (key-chord-define evil-visual-state-map "jj" 'evil-change-to-previous-state)
132 (key-chord-define evil-insert-state-map "jj" 'evil-normal-state)
133 (key-chord-define evil-replace-state-map "jj" 'evil-normal-state)
136 ;; change mode-line color by evil state
137 (lexical-let ((default-color (cons (face-background 'mode-line)
138 (face-foreground 'mode-line))))
139 (add-hook 'post-command-hook
141 (let ((color (cond ((minibufferp) default-color)
142 ((evil-insert-state-p) '("#e80000" . "#ffffff"))
143 ((evil-emacs-state-p) '("#444488" . "#ffffff"))
144 ((buffer-modified-p) '("#006fa0" . "#ffffff"))
146 (set-face-background 'mode-line (car color))
147 (set-face-foreground 'mode-line (cdr color))))))
149 ;(require 'powerline-evil)
150 ;; TODO: enter emacs mode in eshll rather then evil mode
152 ;;---------------------------------------------------------------------------------------
155 (setq fiplr-root-markers '(".git" ".svn" "*.DS_Store"))
156 (setq fiplr-ignored-globs '((directories (".git" ".svn"))
157 (files ("*.jpg" "*.png" "*.zip" "*~" "*.o" ".obj" "*.swp" "*.hg" ".pyc" ".*" ))))
159 (global-set-key (kbd "C-x f") 'fiplr-find-file)
160 ;;---------------------------------------------------------------------------------------
162 ;(setq mac-right-option-modifier 'control)
166 ;;;; ------------------------------------ helm ---------------------------------------------
167 ;;;;;;;;;;; helm configuration https://github.com/emacs-helm/helm http://tuhdo.github.io/helm-intro.html
168 ;;(require 'helm-config)
169 ;;(global-set-key (kbd "M-x") 'helm-M-x)
171 ;;(setq helm-M-x-fuzzy-match t)
172 ;;(global-set-key (kbd "C-x b") 'helm-mini)
173 ;;(setq helm-buffers-fuzzy-matching t
174 ;; helm-recentf-fuzzy-match t)
175 ;;(global-set-key (kbd "C-x C-f") 'helm-find-files)
176 ;;(when (executable-find "ack-grep")
177 ;; (setq helm-grep-default-command "ack-grep -Hn --no-group --no-color %e %p %f"
178 ;; helm-grep-default-recurse-command "ack-grep -H --no-group --no-color %e %p %f"))
179 ;;(setq helm-ff-skip-boring-files t)
180 ;;;(require 'helm-config)
181 ;;;(require 'helm-themes)
182 ;;;(set-face-attribute 'helm-selection nil :background "#441100")
183 ;;;; ----------------------------------------------------------------------------------------
185 (require 'auto-complete)
186 (auto-complete-mode 1)
189 ;;; ---------------------------------------- el-get -----------------------------------------
191 ;(add-to-list 'el-get-recipe-path "~/.emacs.d/el-get-user/recipes")
193 ;(el-get-bundle packages/sm-package-powerline
194 ; :url "https://github.com/laynor/emacs-conf.git"
198 ;;; -----------------------------------------------------------------------------------------
199 ;(add-to-list 'load-path "~/.emacs.d/test/powerline")
200 ;(require 'powerline)
206 ;(require 'powerline-evil)
207 ;;;; --------------------------- powerline --------------------------------------
210 ; '(mode-line-buffer-id ((t (:foreground "#008000" :bold t))))
211 ; '(which-func ((t (:foreground "#008000"))))
212 ; '(mode-line ((t (:foreground "#008000" :background "#dddddd" :box nil))))
213 ; '(mode-line-inactive ((t (:foreground "#008000" :background "#bbbbbb" :box nil)))))
216 ;(defun powerline-simpler-vc-mode (s)
218 ; (replace-regexp-in-string "Git:" "" s)
221 ;(defun powerline-simpler-minor-display (s)
222 ; (replace-regexp-in-string
224 ; (mapconcat 'identity '("Undo-Tree" "GitGutter" "Projectile"
225 ; "Abbrev" "ColorIds" "MRev" "ElDoc" "Paredit"
226 ; "+1" "+2" "FlyC" "Fly" ;; ":1/0"
227 ; "Fill" "AC" "FIC") "\\|")) "" s))
229 ;(defun powerline-ha-theme ()
230 ; "A powerline theme that removes many minor-modes that don't serve much purpose on the mode-line."
232 ; (setq-default mode-line-format
237 ; (powerline-selected-window-active))
239 ; (if active 'mode-line 'mode-line-inactive))
241 ; (if active 'powerline-active1 'powerline-inactive1))
243 ; (if active 'powerline-active2 'powerline-inactive2))
246 ; (format "powerline-%s-%s" powerline-default-separator
247 ; (car powerline-default-separator-dir))))
250 ; (format "powerline-%s-%s" powerline-default-separator
251 ; (cdr powerline-default-separator-dir))))
254 ; (powerline-raw "%*" nil 'l)
255 ; ;; (powerline-buffer-size nil 'l)
256 ; (powerline-buffer-id nil 'l)
257 ; (powerline-raw " ")
258 ; (funcall separator-left mode-line face1)
259 ; (powerline-narrow face1 'l)
260 ; (powerline-simpler-vc-mode (powerline-vc face1))))
263 ; (powerline-raw mode-line-misc-info face1 'r)
264 ; (powerline-raw global-mode-string face1 'r)
265 ; (powerline-raw "%4l" face1 'r)
266 ; (powerline-raw ":" face1)
267 ; (powerline-raw "%3c" face1 'r)
268 ; (funcall separator-right face1 mode-line)
269 ; (powerline-raw " ")
270 ; (powerline-raw "%6p" nil 'r)
271 ; (powerline-hud face2 face1)))
274 ; (powerline-raw " " face1)
275 ; (funcall separator-left face1 face2)
277 ; (boundp 'erc-modified-channels-object)
278 ; (powerline-raw erc-modified-channels-object face2 'l))
279 ; (powerline-major-mode face2 'l)
280 ; (powerline-process face2)
281 ; (powerline-raw " :" face2)
283 ; (powerline-simpler-minor-display (powerline-minor-modes face2 'l))
285 ; (powerline-raw " " face2)
286 ; (funcall separator-right face2 face1))))
288 ; (powerline-render lhs)
289 ; (powerline-fill-center face1
291 ; (powerline-width center)
293 ; (powerline-render center)
294 ; (powerline-fill face1
295 ; (powerline-width rhs))
296 ; (powerline-render rhs)))))))
298 ;(powerline-ha-theme)
301 ;(provide 'init-mode-line)