From e6ef875b7aad2bef40cdff6cdbb812f912d9832d Mon Sep 17 00:00:00 2001
From: Christoph Paulik <cpaulik@gmail.com>
Date: Mon, 25 May 2015 17:56:02 +0200
Subject: [PATCH] Add custom calling function for helm-find-files

In order remove the guessing of the input based on thing at point
---
 spacemacs/packages.el | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/spacemacs/packages.el b/spacemacs/packages.el
index 56bf8f661..5a2189366 100644
--- a/spacemacs/packages.el
+++ b/spacemacs/packages.el
@@ -1302,6 +1302,24 @@ Example: (evil-map visual \"<\" \"<gv\")"
 (defun spacemacs/init-helm ()
   (use-package helm
     :defer t
+    :commands spacemacs/helm-find-files
+    :config
+    (progn
+      (defun spacemacs/helm-find-files (arg)
+        "Custom spacemacs implementation for calling helm-find-files-1.
+
+Removes the automatic guessing of the initial value based on thing at point. "
+        (interactive "P")
+        (let* ((hist          (and arg helm-ff-history (helm-find-files-history)))
+                (default-input hist )
+                (input         (cond ((and (eq major-mode 'dired-mode) default-input)
+                                    (file-name-directory default-input))
+                                    ((and (not (string= default-input ""))
+                                            default-input))
+                                    (t (expand-file-name (helm-current-directory))))))
+            (set-text-properties 0 (length input) nil input)
+            (helm-find-files-1 input )))
+      )
     :init
     (progn
       (setq helm-prevent-escaping-from-minibuffer t
@@ -1381,7 +1399,8 @@ If ARG is non nil then `ag' and `pt' and ignored."
         "<f1>" 'helm-apropos
         "bb"  'helm-mini
         "Cl"  'helm-colors
-        "ff"  'helm-find-files
+        "ff"  'spacemacs/helm-find-files
+        "fF"  'helm-find-files
         "fr"  'helm-recentf
         "hb"  'helm-pp-bookmarks
         "hi"  'helm-info-at-point