[elpa] master d24397b 32/90: counsel.el (counsel-M-x-initial-input): New defcustom

[Oleh Krehel]

branch: master
commit d24397bb3299799be95d19508332d3ccf4ed0156
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    counsel.el (counsel-M-x-initial-input): New defcustom
    
    * counsel.el (counsel-M-x): Use `counsel-M-x-initial-input'.
    
    Re #138
---
 counsel.el |   13 ++++++++++---
 1 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/counsel.el b/counsel.el
index a510325..1340cc4 100644
--- a/counsel.el
+++ b/counsel.el
@@ -487,9 +487,15 @@ If a command is bound, add it's binding after it."
                cands
                "\n")))
 
-(defun counsel-M-x ()
-  "Ivy version of `execute-extended-command'."
+(defcustom counsel-M-x-initial-input "^"
+  "Initial input for `counsel-M-x'."
+  :group 'ivy)
+
+(defun counsel-M-x (&optional initial-input)
+  "Ivy version of `execute-extended-command'.
+Optional INITIAL-INPUT is the initial input in the minibuffer."
   (interactive)
+  (setq initial-input (or initial-input counsel-M-x-initial-input))
   (let ((ivy-format-function #'counsel--format-function-M-x)
         (cands obarray)
         (pred 'commandp)
@@ -510,7 +516,8 @@ If a command is bound, add it's binding after it."
               (lambda (cmd)
                 (execute-extended-command current-prefix-arg cmd))
               :sort sort
-              :keymap counsel-describe-map)))
+              :keymap counsel-describe-map
+              :initial-input initial-input)))
 
 (provide 'counsel)