From 18b1fdfa647e3fb4d9a1a55212805a3d7ec044b5 Mon Sep 17 00:00:00 2001
From: Bozhidar Batsov <bozhidar@empowerunited.com>
Date: Tue, 10 Apr 2012 16:16:52 +0300
Subject: [PATCH] nicer predefined Helm

---
 modules/prelude-editor.el             | 19 +++++++++++++++++++
 modules/prelude-global-keybindings.el |  2 --
 modules/prelude-mode.el               |  4 +++-
 3 files changed, 22 insertions(+), 3 deletions(-)

diff --git a/modules/prelude-editor.el b/modules/prelude-editor.el
index 4b3fc5b..9473aa2 100644
--- a/modules/prelude-editor.el
+++ b/modules/prelude-editor.el
@@ -212,6 +212,25 @@
 ;; projectile is a project management mode
 (require 'projectile)
 (projectile-global-mode t)
+(require 'helm-projectile)
+
+(defun helm-prelude ()
+  "Preconfigured `helm'."
+  (interactive)
+  (if (projectile-get-project-root)
+      ;; add project files and buffers when in project
+      (helm-other-buffer '(helm-c-source-projectile-files-list
+                           helm-c-source-projectile-buffers-list
+                           helm-c-source-buffers-list
+                           helm-c-source-recentf
+                           helm-c-source-buffer-not-found)
+                         "*helm prelude*")
+    ;; otherwise fallback to helm-mini
+    (helm-other-buffer '(helm-c-source-buffers-list
+                         helm-c-source-recentf
+                         helm-c-source-buffer-not-found)
+                       "*helm mini*")))
+
 
 ;; dired - reuse current buffer by pressing 'a'
 (put 'dired-find-alternate-file 'disabled nil)
diff --git a/modules/prelude-global-keybindings.el b/modules/prelude-global-keybindings.el
index 3c1cde1..5512950 100644
--- a/modules/prelude-global-keybindings.el
+++ b/modules/prelude-global-keybindings.el
@@ -100,8 +100,6 @@
 (global-set-key (kbd "C-=") 'er/expand-region)
 (global-set-key (kbd "C-c w") (make-repeatable-command 'er/expand-region))
 
-(global-set-key (kbd "C-c h") 'helm-mini)
-
 (provide 'prelude-global-keybindings)
 
 ;;; prelude-global-keybindings.el ends here
diff --git a/modules/prelude-mode.el b/modules/prelude-mode.el
index 60f1e19..db3ca4c 100644
--- a/modules/prelude-mode.el
+++ b/modules/prelude-mode.el
@@ -51,6 +51,7 @@
     (define-key map (kbd "C-c r") 'prelude-rename-file-and-buffer)
     (define-key map (kbd "C-c t") 'prelude-visit-term-buffer)
     (define-key map (kbd "C-c k") 'prelude-kill-other-buffers)
+    (define-key map (kbd "C-c h") 'helm-prelude)
     map)
   "Keymap for Prelude mode.")
 
@@ -81,7 +82,8 @@
 
     ("Navigation"
      ["Enable arrow keys" prelude-restore-arrow-keys]
-     ["Go to symbol" prelude-ido-goto-symbol])
+     ["Go to symbol" prelude-ido-goto-symbol]
+     ["Helm" helm-prelude])
 
     ("Windows"
      ["Swap windows" prelude-swap-windows])