[elpa] master 03e7e70 27/90: counsel.el (counsel-M-x): New command

[Oleh Krehel]

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

    counsel.el (counsel-M-x): New command
    
    * counsel.el (counsel--format-function-M-x): New defun.
    
    Re #136.
---
 counsel.el |   26 ++++++++++++++++++++++++++
 1 files changed, 26 insertions(+), 0 deletions(-)

diff --git a/counsel.el b/counsel.el
index 16c6cf9..097dbdc 100644
--- a/counsel.el
+++ b/counsel.el
@@ -474,6 +474,32 @@ When NO-ASYNC is non-nil, do it synchronously."
                (ivy--insert-minibuffer
                 (ivy--format ivy--all-candidates)))))))))
 
+(defun counsel--format-function-M-x (cands)
+  "Join CANDS, a list of command names, with newlines.
+If a command is bound, add it's binding after it."
+  (with-selected-window (ivy-state-window ivy-last)
+    (mapconcat (lambda (x)
+                 (let ((binding (substitute-command-keys (format "\\[%s]" x))))
+                   (if (string-match "^M-x" binding)
+                       x
+                     (format "%s (%s)" x
+                             (propertize binding 'face 
'font-lock-keyword-face)))))
+               cands
+               "\n")))
+
+(defun counsel-M-x ()
+  "Ivy version of `execute-extended-command'."
+  (interactive)
+  (let ((ivy-format-function #'counsel--format-function-M-x))
+    (ivy-read "M-x " obarray
+              :predicate 'commandp
+              :require-match t
+              :history 'extended-command-history
+              :action
+              (lambda (cmd)
+                (execute-extended-command current-prefix-arg cmd))
+              :sort t)))
+
 (provide 'counsel)
 
 ;;; counsel.el ends here