Better emacs config

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 @@
-;;
-;; Evil and keybindings
-;;
+;;; config-evil.el --- Configuration for evil and its 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") 'evil-prev-buffer)
+(define-key evil-normal-state-map (kbd "[b") 'previous-code-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
-(helm-mode 1)
+;;; config-file -- Helm configuration
+;;; 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
-(set-face-attribute 'helm-selection nil :background "gold" :foreground "black")
+(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)
 
 ;;; Evil helm
 (define-key evil-normal-state-map (kbd "C-p") 'helm-mini)
-(define-key evil-normal-state-map (kbd "SPC") 'helm-M-x)
-(define-key evil-normal-state-map (kbd ",f") 'helm-occur)
+(evil-leader/set-key "<SPC>" 'helm-M-x)
+(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) 
+(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)