Move main emacs directory out of load path

This follows the official emacs recommendation for lisp code inside
emacs.d.

1 files changed, 89 insertions, 0 deletions

diff --git a/lisp/ravi-init-helm.el b/lisp/ravi-init-helm.el
new file mode 100644
index 0000000..5ff7f9d
--- /dev/null
+++ b/lisp/ravi-init-helm.el
@@ -0,0 +1,89 @@
+;;; ravi-init-helm.el --- helm initialization        -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2015
+
+;; Author:  <ravi@nero.lan>
+;; Keywords: abbrev
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Initialize helm instead of ido. The code in this file may steal
+;; global keybindings that are currently used for ido-mode/smex.
+
+;;; Code:
+
+(use-package helm
+  :bind (("<escape>" . helm-command-prefix)
+         ("M-x" . helm-M-x)
+         ("<f1>" . helm-multi-files)
+         ("<f2>" . helm-locate)
+         ("M-y" . helm-show-kill-ring)
+         ("H-`" . helm-all-mark-rings))
+  :init
+  (progn
+    (require 'helm-config)
+    (setq helm-candidate-number-limit 100)
+
+    ;; From https://gist.github.com/antifuchs/9238468
+    (setq helm-idle-delay 0.0 ; update fast sources immediately (doesn't).
+          helm-input-idle-delay 0.01  ; this actually updates things
+          helm-quick-update t
+          helm-M-x-requires-pattern nil
+          helm-ff-skip-boring-files t)
+
+    (setq helm-ff-file-name-history-use-recentf t)
+
+    (helm-mode))
+  :config
+  (progn
+    (unbind-key "C-x c")                ; default helm prefix key
+    (bind-key "<tab>" 'helm-execute-persistent-action helm-map)
+    (bind-key "H-<tab>" 'helm-select-action helm-map)
+
+    (use-package helm-ag
+      :ensure t))
+  :if ravi/use-helm-instead-of-ido
+  :diminish helm-mode
+  :ensure t)
+
+(use-package helm-swoop
+  :bind (("M-I" . helm-swoop))
+  :commands helm-swoop-from-isearch
+  :init
+  (progn
+    (bind-key "M-i" 'helm-swoop-from-isearch isearch-mode-map)
+    )
+  :config
+  (progn
+    (bind-key "M-i" 'helm-multi-swoop-all-from-helm-swoop helm-swoop-map)
+
+    ;; 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 nil)
+
+    ;; Split direcion. 'split-window-vertically or 'split-window-horizontally
+    ;; (setq helm-swoop-split-direction 'split-window-vertically)
+    )
+  :ensure t)
+
+(use-package helm-descbinds
+  :bind (("C-h b" . helm-descbinds))
+  :ensure t)
+
+(provide 'ravi-init-helm)
+;;; ravi-init-helm.el ends here