[elpa] master 9718962 030/399: Add a simple initial counsel-switch-buffer

[Oleh Krehel]

branch: master
commit 97189623c5b36d5b153c43ad1676799553237b9e
Author: Gergely Risko <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Add a simple initial counsel-switch-buffer
    
    This first implementation already provides the interactive element of
    functionality: in the current window the user can preview her buffer
    selection.
    
    Fixes #1895
---
 counsel.el | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/counsel.el b/counsel.el
index 73f2b76..93dcb2f 100644
--- a/counsel.el
+++ b/counsel.el
@@ -5016,6 +5016,28 @@ When ARG is non-nil, ignore NoDisplay property in 
*.desktop files."
               :action #'counsel-wmctrl-action
               :caller 'counsel-wmctrl)))
 
+(defun counsel--switch-buffer-update-fn ()
+  (let ((current (ivy-state-current ivy-last)))
+    ;; This check is necessary, otherwise typing into the completion
+    ;; would create empty buffers.
+    (if (get-buffer current)
+        (ivy-call)
+      (with-ivy-window
+        (switch-to-buffer (ivy-state-buffer ivy-last))))))
+
+;;;###autoload
+(defun counsel-switch-buffer ()
+  "Switch to another buffer.
+Display a preview of the selected ivy completion candidate buffer
+in the current window."
+  (interactive)
+  (ivy-read "Switch to buffer: " 'internal-complete-buffer
+            :preselect (buffer-name (other-buffer (current-buffer)))
+            :action #'ivy--switch-buffer-action
+            :matcher #'ivy--switch-buffer-matcher
+            :caller 'counsel-switch-buffer
+            :update-fn 'counsel--switch-buffer-update-fn))
+
 ;;* `counsel-mode'
 (defvar counsel-mode-map
   (let ((map (make-sparse-keymap)))