emacs/emacs

   1
   2 (setq debug-on-error t)
   3
   4 (scroll-bar-mode -1)
   5 (tool-bar-mode -1)
   6 (menu-bar-mode -1)
   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)
  12
  13
  14 (put 'set-goal-column 'disabled nil)
  15 (setq vc-follow-symlinks t)
  16 (setq visible-bell 1)
  17 (setq ring-bell-function 'ignore)
  18 (setq resize-mini-windows t)
  19
  20
  21 (add-to-list 'auto-mode-alist '("emacs\\'" . emacs-lisp-mode))
  22 ;(set-fringe-mode nil)
  23 (fringe-mode 0)
  24 ;(set-fringe-mode 1)
  25
  26
  27
  28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  29 ;http://y.tsutsumi.io/emacs-from-scratch-part-2-package-management.html
  30 (require 'package)
  31 (add-to-list 'package-archives
  32              '("melpa" . "http://melpa.milkbox.net/packages/") t)
  33 (package-initialize)
  34
  35 (defvar required-packages
  36   '(
  37     magit
  38     helm
  39     ido-ubiquitous
  40     yasnippet
  41     evil
  42     ido-vertical-mode
  43     smex
  44     color-theme
  45     color-theme-sanityinc-tomorrow
  46     key-chord
  47     powerline-evil
  48     powerline
  49     evil-leader
  50     flx-ido
  51     flx
  52     auto-complete
  53     fiplr
  54     w3m
  55     ace-jump-mode
  56     el-get
  57     color-identifiers-mode
  58   ) "a list of packages to ensure are installed at launch.")
  59
  60 (require 'cl)
  61 (defun packages-installed-p ()
  62   (loop for p in required-packages
  63         when (not (package-installed-p p)) do (return nil)
  64         finally (return t)))
  65
  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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  74
  75
  76 ;;---------------------------------------------------------------------------------------
  77 ;; color theme
  78 ;;
  79 (require 'color-theme)
  80 (load-theme 'sanityinc-tomorrow-bright t)
  81
  82 ;;---------------------------------------------------------------------------------------
  83 ;; Ido
  84 ;;
  85 (require 'ido-vertical-mode)
  86 (ido-vertical-mode 1)
  87 (require 'flx-ido)
  88 (ido-mode 1)
  89 (ido-everywhere 1)
  90 (flx-ido-mode 1)
  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")
 102
 103 ;; smex
 104 (require 'smex)
 105 (global-set-key (kbd "M-x") 'smex)
 106 (global-set-key (kbd "M-X") 'smex-major-mode-commands)
 107
 108 ;;---------------------------------------------------------------------------------------
 109 ;; Magit
 110 ;;
 111 (require 'magit)
 112 ;(setq magit-auto-revert-mode nil)
 113 (setq magit-last-seen-setup-instructions "1.4.0")
 114
 115 ;;---------------------------------------------------------------------------------------
 116 ;; powerline
 117 ;;
 118 (require 'powerline)
 119
 120
 121 ;;---------------------------------------------------------------------------------------
 122 ;; evil
 123 ;;
 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)
 128 (require 'evil)
 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)
 134 (key-chord-mode 1)
 135
 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
 140             (lambda ()
 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"))
 145                                  (t default-color))))
 146                 (set-face-background 'mode-line (car color))
 147                            (set-face-foreground 'mode-line (cdr color))))))
 148 (evil-mode 1)
 149 ;(require 'powerline-evil)
 150 ;; TODO: enter emacs mode in eshll rather then evil mode
 151
 152 ;;---------------------------------------------------------------------------------------
 153 ;; Fiplr
 154 ;;
 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" ".*" ))))
 158
 159 (global-set-key (kbd "C-x f") 'fiplr-find-file)
 160 ;;---------------------------------------------------------------------------------------
 161
 162 ;(setq mac-right-option-modifier 'control)
 163
 164
 165
 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)
 170 ;;(helm-mode 1)
 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 ;;;; ----------------------------------------------------------------------------------------
 184
 185 (require 'auto-complete)
 186 (auto-complete-mode 1)
 187
 188
 189 ;;; ---------------------------------------- el-get -----------------------------------------
 190 ;(require 'el-get)
 191 ;(add-to-list 'el-get-recipe-path "~/.emacs.d/el-get-user/recipes")
 192
 193 ;(el-get-bundle packages/sm-package-powerline
 194 ;  :url "https://github.com/laynor/emacs-conf.git"
 195 ;  )
 196
 197
 198 ;;; -----------------------------------------------------------------------------------------
 199 ;(add-to-list 'load-path "~/.emacs.d/test/powerline")
 200 ;(require 'powerline)
 201
 202
 203
 204
 205 ;
 206 ;(require 'powerline-evil)
 207 ;;;; --------------------------- powerline --------------------------------------
 208
 209 ;(custom-set-faces
 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)))))
 214 ;
 215 ;
 216 ;(defun powerline-simpler-vc-mode (s)
 217 ;  (if s
 218 ;      (replace-regexp-in-string "Git:" "" s)
 219 ;    s))
 220 ;
 221 ;(defun powerline-simpler-minor-display (s)
 222 ;  (replace-regexp-in-string
 223 ;   (concat " "
 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))
 228 ;
 229 ;(defun powerline-ha-theme ()
 230 ;  "A powerline theme that removes many minor-modes that don't serve much purpose on the mode-line."
 231 ;  (interactive)
 232 ;  (setq-default mode-line-format
 233 ;                '("%e"
 234 ;                  (:eval
 235 ;                   (let*
 236 ;                       ((active
 237 ;                         (powerline-selected-window-active))
 238 ;                        (mode-line
 239 ;                         (if active 'mode-line 'mode-line-inactive))
 240 ;                        (face1
 241 ;                         (if active 'powerline-active1 'powerline-inactive1))
 242 ;                        (face2
 243 ;                         (if active 'powerline-active2 'powerline-inactive2))
 244 ;                        (separator-left
 245 ;                         (intern
 246 ;                          (format "powerline-%s-%s" powerline-default-separator
 247 ;                                  (car powerline-default-separator-dir))))
 248 ;                        (separator-right
 249 ;                         (intern
 250 ;                          (format "powerline-%s-%s" powerline-default-separator
 251 ;                                  (cdr powerline-default-separator-dir))))
 252 ;                        (lhs
 253 ;                         (list
 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))))
 261 ;                        (rhs
 262 ;                         (list
 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)))
 272 ;                        (center
 273 ;                         (list
 274 ;                          (powerline-raw " " face1)
 275 ;                          (funcall separator-left face1 face2)
 276 ;                          (when
 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)
 282 ;
 283 ;                          (powerline-simpler-minor-display (powerline-minor-modes face2 'l))
 284 ;
 285 ;                          (powerline-raw " " face2)
 286 ;                          (funcall separator-right face2 face1))))
 287 ;                     (concat
 288 ;                      (powerline-render lhs)
 289 ;                      (powerline-fill-center face1
 290 ;                                             (/
 291 ;                                              (powerline-width center)
 292 ;                                              2.0))
 293 ;                      (powerline-render center)
 294 ;                      (powerline-fill face1
 295 ;                                      (powerline-width rhs))
 296 ;                      (powerline-render rhs)))))))
 297 ;
 298 ;(powerline-ha-theme)
 299 ;
 300 ;
 301 ;(provide 'init-mode-line)