Better emacs config

Xresources

@@ -8,6 +8,11 @@ Xft.rgba:                   rgb
 Xft.hinting:                true
 Xft.hintstyle:              hintfull
 
+!-------------------------------------------------------------------------------
+! Emacs settings 
+!-------------------------------------------------------------------------------
+!Emacs.font: DejaVu Sans Mono-10
+ 
 !-------------------------------------------------------------------------------
 ! URxvt settings
 ! Colours lifted from Solarized (http://ethanschoonover.com/solarized)

emacs.d/config/config-dired.el

@@ -0,0 +1,25 @@
+(defun ergoemacs-open-in-external-app ()
+  "Open the current file or dired marked files in external app."
+  (interactive)
+  (let ( doIt
+         (myFileList
+          (cond
+           ((string-equal major-mode "dired-mode") (dired-get-marked-files))
+           (t (list (buffer-file-name))) ) ) )
+
+    (setq doIt (if (<= (length myFileList) 5)
+                   t
+                 (y-or-n-p "Open more than 5 files?") ) )
+
+    (when doIt
+      (cond
+       ((string-equal system-type "windows-nt")
+        (mapc (lambda (fPath) (w32-shell-execute "open" (replace-regexp-in-string "/" "\\" fPath t t)) ) myFileList)
+        )
+       ((string-equal system-type "darwin")
+        (mapc (lambda (fPath) (shell-command (format "open \"%s\"" fPath)) )  myFileList) )
+       ((string-equal system-type "gnu/linux")
+        (mapc (lambda (fPath) (let ((process-connection-type nil)) (start-process "" nil "xdg-open" fPath)) ) myFileList) ) ) ) ) )
+
+(define-key dired-mode-map (kbd "e") 'ergoemacs-open-in-external-app)
+(provide 'config-dired)

emacs.d/config/config-evil.el

@@ -1,36 +1,67 @@
-;;
+;;; config-evil.el --- Configuration for evil and its keybindings
-;; Evil and keybindings
+;;; Commentary: 
-;;
+;;; Code:
 (evil-mode)
-(require 'evil-nerd-commenter)
+(require 'evil-leader)
 (require 'evil-matchit)
+(require 'evil-nerd-commenter)
 (require 'evil-surround)
-(require 'evil-jumper)
-
-;; Evil global modes 
-(global-evil-matchit-mode 1)
-(global-evil-jumper-mode)
-(global-evil-surround-mode 1)
 
 ;; Evil global modes config
 (evilnc-default-hotkeys)
 (setq evil-default-cursor t)
 
-;; Exclude modes from evil mode
+;; Evil global modes 
+(global-evil-matchit-mode 1)
+(global-evil-surround-mode 1)
+(global-evil-jumper-mode)
+(global-evil-leader-mode)
+
+;; exclude modes from evil mode
 (add-to-list 'evil-emacs-state-modes 'git-rebase-mode)
 (add-to-list 'evil-emacs-state-modes 'undo-tree-visualizer-mode)
-(add-to-list 'evil-emacs-state-modes 'neotree-mode)
+(add-to-list 'evil-emacs-state-modes 'dired-mode)
 
+(defun next-code-buffer ()
+  ;;; Avoid special buffers when cycling through windows
+  ;;; http://stackoverflow.com/questions/14323516/make-emacs-next-buffer-skip-messages-buffer
+  (interactive)
+  (let (( bread-crumb (buffer-name) ))
+    (next-buffer)
+    (while
+        (and
+         (string-match-p "^\*" (buffer-name))
+         (not ( equal bread-crumb (buffer-name) )) )
+      (next-buffer))))
+
+(defun previous-code-buffer ()
+  (interactive)
+  (let (( bread-crumb (buffer-name) ))
+    (previous-buffer)
+    (while
+        (and
+         (string-match-p "^\*" (buffer-name))
+         (not ( equal bread-crumb (buffer-name) )) )
+      (previous-buffer))))
 ;;
 ;; Evil keys 
-;; cool jumping
+(evil-leader/set-leader "<SPC>")
 
-(define-key evil-normal-state-map (kbd "[b") 'evil-next-buffer)
+(define-key evil-normal-state-map (kbd "[b") 'previous-code-buffer)
-(define-key evil-normal-state-map (kbd "]b") 'evil-prev-buffer)
+(define-key evil-normal-state-map (kbd "]b") 'next-code-buffer)
 (define-key evil-normal-state-map (kbd "s") 'evil-ace-jump-char-mode)
 (define-key evil-normal-state-map (kbd ",d") 'neotree-toggle)
+(define-key evil-normal-state-map (kbd ",u") 'undo-tree-visualize)
 
 (define-key evil-normal-state-map (kbd "C-c +") 'evil-numbers/inc-at-pt)
 (define-key evil-normal-state-map (kbd "C-c -") 'evil-numbers/dec-at-pt)
 
+(add-hook 'neotree-mode-hook
+          (lambda ()
+            (define-key evil-normal-state-local-map (kbd "TAB") 'neotree-enter)
+            (define-key evil-normal-state-local-map (kbd "SPC") 'neotree-enter)
+            (define-key evil-normal-state-local-map (kbd "q") 'neotree-hide)
+              (define-key evil-normal-state-local-map (kbd "RET") 'neotree-enter)))
+
 (provide 'config-evil)
+;;; config-evil.el ends here

emacs.d/config/config-helm.el

@@ -1,37 +1,80 @@
-;;; Helm
+;;; config-file -- Helm configuration
-(helm-mode 1)
+;;; Commentary:
+;;; The slowest part is actually loading helm-projectile
+;;; Code:
 
+(require 'helm)
+(require 'helm-config)
+(require 'helm-grep)
+(require 'helm-locate)
+(require 'helm-misc)
 (require 'projectile)
 (require 'helm-projectile)
-(require 'helm-locate)
-(require 'helm-config)
-(require 'helm-misc)
-(require 'helm-locate)
 (setq helm-quick-update t)
 (setq helm-bookmark-show-location t)
 (setq helm-buffers-fuzzy-matching t)
 
+;;; Save current position to mark ring
+(add-hook 'helm-goto-line-before-hook 'helm-save-current-pos-to-mark-ring)
 
-;; Config
+;; Better helm fonts
+(set-face-attribute 'helm-selection nil :background "gold" :foreground "black")
+
+;;; Keyboard mappings 
 (define-key helm-map (kbd "<tab>") 'helm-execute-persistent-action) ; rebihnd tab to do persistent action
 (define-key helm-map (kbd "C-i") 'helm-execute-persistent-action) ; make TAB works in terminal
 (define-key helm-map (kbd "C-z") 'helm-select-action) ; list actions using C-z
 (define-key helm-grep-mode-map (kbd "<return>") 'helm-grep-mode-jump-other-window)
 (define-key helm-grep-mode-map (kbd "n") 'helm-grep-mode-jump-other-window-forward)
 (define-key helm-grep-mode-map (kbd "p") 'helm-grep-mode-jump-other-window-backward)
+(global-set-key (kbd "M-y") 'helm-show-kill-ring)
+(global-set-key (kbd "C-x b") 'helm-mini)
+(global-set-key (kbd "C-x C-f") 'helm-find-files)
+(global-set-key (kbd "C-h SPC") 'helm-all-mark-rings)
+(global-set-key (kbd "C-c h o") 'helm-occur)
 
-;; Better helm fonts
+(define-key helm-grep-mode-map (kbd "<return>") 'helm-grep-mode-jump-other-window)
-(set-face-attribute 'helm-selection nil :background "gold" :foreground "black")
+(define-key helm-grep-mode-map (kbd "n") 'helm-grep-mode-jump-other-window-forward)
+(define-key helm-grep-mode-map (kbd "p") 'helm-grep-mode-jump-other-window-backward)
 
 ;;; Evil helm
 (define-key evil-normal-state-map (kbd "C-p") 'helm-mini)
-(define-key evil-normal-state-map (kbd "SPC") 'helm-M-x)
+(evil-leader/set-key "<SPC>" 'helm-M-x)
-(define-key evil-normal-state-map (kbd ",f") 'helm-occur)
+(define-key evil-normal-state-map (kbd ",f") 'helm-swoop)
 (define-key evil-normal-state-map (kbd ",a") 'helm-ag)
-(define-key evil-normal-state-map (kbd ",p") 'helm-show-kill-ring)
+(define-key evil-normal-state-map (kbd ",y") 'helm-show-kill-ring)
 
 ;;; Keyboard
 (global-set-key (kbd "M-x") 'helm-M-x)
 (define-key helm-map (kbd "C-w") 'backward-kill-word)
 
+;; use helm to list eshell history
+(add-hook 'eshell-mode-hook
+          #'(lambda ()
+              (define-key eshell-mode-map (kbd "M-l") 'helm-eshell-history)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; PACKAGE: helm-swoop ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Locate the helm-swoop folder to your path
+(require 'helm-swoop)
+;; Change the keybinds to whatever you like :)
+(global-set-key (kbd "C-c h o") 'helm-swoop)
+(global-set-key (kbd "C-c s") 'helm-multi-swoop-all)
+;; When doing isearch, hand the word over to helm-swoop
+(define-key isearch-mode-map (kbd "M-i") 'helm-swoop-from-isearch)
+;; From helm-swoop to helm-multi-swoop-all
+(define-key helm-swoop-map (kbd "M-i") 'helm-multi-swoop-all-from-helm-swoop)
+;; Save buffer when helm-multi-swoop-edit complete
+(setq helm-multi-swoop-edit-save t)
+;; If this value is t, split window inside the current window
+(setq helm-swoop-split-with-multiple-windows t)
+;; Split direcion. 'split-window-vertically or 'split-window-horizontally
+(setq helm-swoop-split-direction 'split-window-vertically)
+;; If nil, you can slightly boost invoke speed in exchange for text color
+(setq helm-swoop-speed-or-color t)
+
+(helm-mode 1)
 (provide 'config-helm)
+
+;;; config-helm.el ends here

emacs.d/config/config-org.el

@@ -1,6 +1,9 @@
 (require 'org)
+(require 'evil-org)
 (define-key global-map "\C-cl" 'org-store-link)
 (define-key global-map "\C-ca" 'org-agenda)
+(evil-leader/set-key "a" 'org-agenda)
+
 (setq org-log-done t)
 
 (setq org-directory "~/Dropbox/org")
@@ -13,6 +16,5 @@
 (define-key global-map "\C-cc" 'org-capture)
 
 (setq org-clock-persist 'history)
-(org-clock-persistence-insinuate)
 
 (provide 'config-org)

emacs.d/init.el

@@ -1,12 +1,13 @@
-; BalkEmacs --- My emacs configuration
+;;; BalkEmacs --- My emacs configuration
 ;;; Commentary:
 
+;;; Config that needs to be loaded before require
 (custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
- '(custom-safe-themes (quote ("c3c0a3702e1d6c0373a0f6a557788dfd49ec9e66e753fb24493579859c8e95ab" "3c83b3676d796422704082049fc38b6966bcad960f896669dfc21a7a37a748fa" default))))
+ '(custom-safe-themes (quote ("8db4b03b9ae654d4a57804286eb3e332725c84d7cdab38463cb6b97d5762ad26" "31a01668c84d03862a970c471edbd377b2430868eccf5e8a9aec6831f1a0908d" "1297a022df4228b81bc0436230f211bad168a117282c20ddcba2db8c6a200743" "c3c0a3702e1d6c0373a0f6a557788dfd49ec9e66e753fb24493579859c8e95ab" "3c83b3676d796422704082049fc38b6966bcad960f896669dfc21a7a37a748fa" default))))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
@@ -14,7 +15,6 @@
  ;; If there is more than one, they won't work right.
  )
 
-;;; Config that needs to be loaded before require
 (setq evil-want-C-u-scroll t)
 
 ;;; Code:
@@ -52,17 +52,23 @@
   ; escreen            			; screen for emacs, C-\ C-h
    evil
    evil-jumper
+   evil-leader
    evil-matchit
    evil-nerd-commenter
    evil-numbers
+   evil-org-mode
    evil-surround
+   exec-path-from-shell
    fill-column-indicator
    flycheck
    gist
+   git-gutter-fringe
+   guide-key
    helm
    helm-ag
    helm-projectile
    helm-pydoc
+   helm-swoop
    jedi
    magit
    markdown-mode
@@ -77,7 +83,11 @@
    smart-mode-line
    switch-window			; takes over C-x o
    undo-tree
+   vimrc-mode
+   volatile-highlights
+   yaml-mode
    yasnippet
+   zygospore
   ; zencoding-mode			; http://www.emacswiki.org/emacs/ZenCoding
    ;; color-theme-solarized
    ;; color-theme-tango))	                ; check out color-theme-olarized
@@ -95,7 +105,6 @@
 
 (el-get 'sync my:el-get-packages)
 
-(set-default-font "DejaVu Sans Mono")
 
 ;;(color-theme-solarized-dark)
 ;(load-theme 'soothe t)
@@ -103,31 +112,39 @@
 (load-theme 'molokai t)
 
 (add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
-
-(add-hook 'after-init-hook #'global-flycheck-mode)
-(setq flycheck-temp-prefix ".flycheck")
-
-;;(require 'autopair)
-;;(autopair-global-mode) ;; to enable in all buffers
-
 ;;(setq completion-cycle-threshold t)
 
-(defun toggle-current-window-dedication ()
+;;; Neotree
- (interactive)
+(require 'neotree)
- (let* ((window    (selected-window))
+(setq projectile-switch-project-action 'neotree-projectile-action)
-        (dedicated (window-dedicated-p window)))
+(when neo-persist-show
-   (set-window-dedicated-p window (not dedicated))
+  (add-hook 'popwin:before-popup-hook
-   (message "Window %sdedicated to %s"
+            (lambda () (setq neo-persist-show nil)))
-            (if dedicated "no longer " "")
+  (add-hook 'popwin:after-popup-hook
-            (buffer-name))))
+            (lambda () (setq neo-persist-show t))))
 
-(global-set-key [pause] 'toggle-current-window-dedication)
+;;; Popwin
+(require 'popwin)
+(popwin-mode)
 
 ;;; Linum
 (require 'linum)
-(set-face-attribute 'linum nil :height 100 :foreground "#666")
+(add-hook 'prog-mode-hook 'linum-mode)
-(setq linum-format " %d ")
+(setq linum-format 'dynamic)
-(set-face-background 'hl-line-face "gray18")
+(set-face-attribute 'linum nil :height 90)
+
+(setq highlight-color "#232323")
+
+;;; Show column number
+(column-number-mode)
+
+;;; Highlight line
+(global-hl-line-mode)
+(set-face-background 'hl-line highlight-color)
+
+;;; Flycheck
+(add-hook 'after-init-hook #'global-flycheck-mode)
+(setq flycheck-temp-prefix ".flycheck")
 
 ;; (global-linum-mode 1)
 ;; (setq linum-mode-inhibit-modes-list '(eshell-mode
@@ -143,7 +160,7 @@
 ;;     (unless (member major-mode linum-mode-inhibit-modes-list)
 ;;       ad-do-it))
 ;; (ad-activate 'linum-on)
-(add-hook 'prog-mode-hook 'linum-mode)
+(add-hook 'prog-mode-hook 'fci-mode)
 
 ;; (require 'powerline)
 ;; (powerline-center-evil-theme)
@@ -154,7 +171,7 @@
 (display-time-mode t)
 
 ;;; Global emacs settings
-;; Disable splash screen
+;; disable splash screen
 (setq inhibit-splash-screen t)
 (setq truncate-partial-width-windows nil)
 (set-default 'truncate-lines nil)
@@ -162,6 +179,8 @@
 (setq-default indent-tabs-mode nil)
 (setq tab-width 4)
 (setq default-tab-width 4); 
+;; Show info about available commands
+(setq guide-key/guide-key-sequence '("SPC" ","))
 
 ;; Separate Configs
 (add-to-list 'load-path (concat user-emacs-directory "config"))
@@ -173,17 +192,14 @@
 (require 'config-evil)
 (require 'config-org)
 (require 'config-secret)
-
+(require 'config-dired)
-;;; popwin
-(require 'popwin)
 
 ;;; Global modes
-(tool-bar-mode -1)
+(tool-bar-mode 0)
-(global-hl-line-mode)
 (savehist-mode 1)
 (show-paren-mode t)
-(popwin-mode 1)
 (yas-global-mode 1)
+(guide-key-mode 1)
 
 ;;; Specific modes
 ;; (autoload 'markdown-mode "markdown-mode"
@@ -192,7 +208,6 @@
 (add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
 (add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
 
-
 ;;
 ;; Global Keybindings
 ;; 
@@ -200,9 +215,9 @@
 (global-set-key "\C-x\C-k" 'kill-region)
 (global-set-key [escape] 'keyboard-escape-quit) 
 (define-key helm-map (kbd "C-w") 'backward-kill-word) 
+(global-set-key (kbd "C-x 1") 'zygospore-toggle-delete-other-windows)
 
 ;; Don't clover my folders
-
 (setq
    backup-by-copying t      ; don't clobber symlinks
    delete-old-versions t
@@ -224,7 +239,10 @@
 ;;; Columns
 (require 'fill-column-indicator)
 (setq fci-rule-column 79)
-(fringe-mode '(1 . 1))
+(setq fci-rule-color highlight-color)
+(setq fci-rule-width 3)
+
+(fringe-mode '(5 . 5))
 
 (eval-after-load 'magit
   '(progn
@@ -233,7 +251,8 @@
      (set-face-background 'magit-item-highlight "black")))
 
 ;; Fix Scrolling in tmux
-(defun my-terminal-config (&optional frame)
+;; Set the default font too
+(defun client-config (&optional frame)
   "Establish settings for the current terminal."
   (if (not frame) ;; The initial call.
       (xterm-mouse-mode 1)
@@ -243,17 +262,70 @@
         (xterm-mouse-mode 1))))
 ;; Evaluate both now (for non-daemon emacs) and upon frame creation
 ;; (for new terminals via emacsclient).
-(my-terminal-config)
+(client-config)
-(add-hook 'after-make-frame-functions 'my-terminal-config)
+(add-hook 'after-make-frame-functions 'client-config)
+
+(defun toggle-current-window-dedication ()
+ (interactive)
+ (let* ((window    (selected-window))
+        (dedicated (window-dedicated-p window)))
+   (set-window-dedicated-p window (not dedicated))
+   (message "Window %sdedicated to %s"
+            (if dedicated "no longer " "")
+            (buffer-name))))
+
+(global-set-key [insert] 'toggle-current-window-dedication)
+
 
 ;; Disable copying to the clipboard
 ;; (setq x-select-enable-clipboard nil)
 ;; (setq x-select-enable-primary t)
 
-;;; Neotree
+;;; Show human sizes in dired
-(setq projectile-switch-project-action 'neotree-projectile-action)
-
-;;; Dired
 (setq-default dired-listing-switches "-alhv")
 
+(defalias 'yes-or-no-p 'y-or-n-p)
+
+;;; Winner
+;;; History of visited windows
+;;; C-<left>, C-<right>
+(when (fboundp 'winner-mode)
+    (winner-mode 1))
+
+(exec-path-from-shell-initialize)
+
+(require 'git-gutter-fringe)
+(setq git-gutter-fr:side 'right-fringe)
+
+;; set a default font
+(add-to-list 'default-frame-alist '(font . "DejaVu Sans Mono-10"))
+;; emacs doesn't actually save undo history with revert-buffer
+;; see http://lists.gnu.org/archive/html/bug-gnu-emacs/2011-04/msg00151.html
+;; fix that.
+(defun revert-buffer-keep-history (&optional IGNORE-AUTO NOCONFIRM PRESERVE-MODES)
+  (interactive)
+
+  (setq tmp (point))
+  ;; tell Emacs the modtime is fine, so we can edit the buffer
+  (clear-visited-file-modtime)
+
+  ;; insert the current contents of the file on disk
+  (widen)
+  (delete-region (point-min) (point-max))
+  (insert-file-contents (buffer-file-name))
+
+  ;; mark the buffer as not modified
+  (not-modified)
+  (set-visited-file-modtime)
+  (goto-char tmp)
+)
+
+(setq revert-buffer-function 'revert-buffer-keep-history)
+
+(require 'recentf)
+(recentf-mode 1)
+(setq recentf-max-saved-items 300)
+(setq recentf-max-menu-items 20)
+
+
 (provide '.emacs)

zshrc

@@ -48,7 +48,7 @@ autoload -U zmv
 alias mmv='noglob zmv -W'
 alias e='myemacs -nw'
 alias ew='myemacs -n'
-export ALTERNATE_EDITOR=/usr/bin/emacs EDITOR="myemacs -nw" VISUAL="myemacs -nw"
+export ALTERNATE_EDITOR=/usr/bin/vim EDITOR="vim" VISUAL="vim"
 
 PYTHONSTARTUP=~/.pythonrc.py
 export PYTHONSTARTUP