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 ;(powerline-evil-vim-color-theme)
 120 (powerline-evil-center-color-theme)
 121 (display-time-mode t)
 122
 123 ;;---------------------------------------------------------------------------------------
 124 ;; evil
 125 ;;
 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)
 130 (require 'evil)
 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)
 136 (key-chord-mode 1)
 137
 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
 142             (lambda ()
 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"))
 147                                  (t default-color))))
 148                 (set-face-background 'mode-line (car color))
 149                            (set-face-foreground 'mode-line (cdr color))))))
 150
 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))
 157
 158 (evil-mode 1)
 159 ;(require 'powerline-evil)
 160 ;; TODO: enter emacs mode in eshll rather then evil mode
 161
 162 ;;---------------------------------------------------------------------------------------
 163 ;; Fiplr
 164 ;;
 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" ".*" ))))
 168
 169 (global-set-key (kbd "C-x f") 'fiplr-find-file)
 170 ;;---------------------------------------------------------------------------------------
 171
 172 ;(setq mac-right-option-modifier 'control)
 173
 174
 175
 176 ;;---------------------------------------------------------------------------------------
 177 ;; Helm
 178 ;;
 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)
 182 ;;(helm-mode 1)
 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")
 195
 196 ;;---------------------------------------------------------------------------------------
 197 ;; auto-complete
 198 ;;
 199 (require 'auto-complete)
 200 (auto-complete-mode 1)
 201
 202
 203 ;;; ---------------------------------------- el-get -----------------------------------------
 204 ;(require 'el-get)
 205 ;(add-to-list 'el-get-recipe-path "~/.emacs.d/el-get-user/recipes")
 206
 207 ;(el-get-bundle packages/sm-package-powerline
 208 ;  :url "https://github.com/laynor/emacs-conf.git"
 209 ;  )
 210
 211
 212 ;;; -----------------------------------------------------------------------------------------
 213 ;(add-to-list 'load-path "~/.emacs.d/test/powerline")
 214 ;(require 'powerline)
 215
 216
 217
 218
 219 ;
 220 ;(require 'powerline-evil)
 221 ;;;; --------------------------- powerline --------------------------------------
 222
 223 ;(custom-set-faces
 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)))))
 228 ;
 229 ;
 230 ;(defun powerline-simpler-vc-mode (s)
 231 ;  (if s
 232 ;      (replace-regexp-in-string "Git:" "" s)
 233 ;    s))
 234 ;
 235 ;(defun powerline-simpler-minor-display (s)
 236 ;  (replace-regexp-in-string
 237 ;   (concat " "
 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))
 242 ;
 243 ;(defun powerline-ha-theme ()
 244 ;  "A powerline theme that removes many minor-modes that don't serve much purpose on the mode-line."
 245 ;  (interactive)
 246 ;  (setq-default mode-line-format
 247 ;                '("%e"
 248 ;                  (:eval
 249 ;                   (let*
 250 ;                       ((active
 251 ;                         (powerline-selected-window-active))
 252 ;                        (mode-line
 253 ;                         (if active 'mode-line 'mode-line-inactive))
 254 ;                        (face1
 255 ;                         (if active 'powerline-active1 'powerline-inactive1))
 256 ;                        (face2
 257 ;                         (if active 'powerline-active2 'powerline-inactive2))
 258 ;                        (separator-left
 259 ;                         (intern
 260 ;                          (format "powerline-%s-%s" powerline-default-separator
 261 ;                                  (car powerline-default-separator-dir))))
 262 ;                        (separator-right
 263 ;                         (intern
 264 ;                          (format "powerline-%s-%s" powerline-default-separator
 265 ;                                  (cdr powerline-default-separator-dir))))
 266 ;                        (lhs
 267 ;                         (list
 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))))
 275 ;                        (rhs
 276 ;                         (list
 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)))
 286 ;                        (center
 287 ;                         (list
 288 ;                          (powerline-raw " " face1)
 289 ;                          (funcall separator-left face1 face2)
 290 ;                          (when
 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)
 296 ;
 297 ;                          (powerline-simpler-minor-display (powerline-minor-modes face2 'l))
 298 ;
 299 ;                          (powerline-raw " " face2)
 300 ;                          (funcall separator-right face2 face1))))
 301 ;                     (concat
 302 ;                      (powerline-render lhs)
 303 ;                      (powerline-fill-center face1
 304 ;                                             (/
 305 ;                                              (powerline-width center)
 306 ;                                              2.0))
 307 ;                      (powerline-render center)
 308 ;                      (powerline-fill face1
 309 ;                                      (powerline-width rhs))
 310 ;                      (powerline-render rhs)))))))
 311 ;
 312 ;(powerline-ha-theme)
 313 ;
 314 ;
 315 ;(provide 'init-mode-line)