[elpa] master ae3ca26 117/348: counsel.el (counsel-locate-action-extern): Add w32 support

[Oleh Krehel]

branch: master
commit ae3ca26866b1f5a7e93e90c9696f9218fd367e37
Author: justbur <address@hidden>
Commit: justbur <address@hidden>

    counsel.el (counsel-locate-action-extern): Add w32 support
    
    * counsel.el (counsel-find-file): Add open externally action
---
 counsel.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/counsel.el b/counsel.el
index de53445..9a1344e 100644
--- a/counsel.el
+++ b/counsel.el
@@ -1236,7 +1236,8 @@ done") "\n" t)))
 (ivy-set-actions
  'counsel-find-file
  '(("j" find-file-other-window "other window")
-   ("b" counsel-find-file-cd-bookmark-action "cd bookmark")))
+   ("b" counsel-find-file-cd-bookmark-action "cd bookmark")
+   ("x" counsel-find-file-extern "open externally")))
 
 (defcustom counsel-find-file-at-point nil
   "When non-nil, add file-at-point to the list of candidates."
@@ -1376,15 +1377,16 @@ string - the full shell command to run."
   "History for `counsel-locate'.")
 
 (defun counsel-locate-action-extern (x)
-  "Use xdg-open shell command on X."
+  "Use xdg-open shell command, or corresponding system command, on X."
   (interactive (list (read-file-name "File: ")))
   (call-process shell-file-name nil
                 nil nil
                 shell-command-switch
                 (format "%s %s"
-                        (if (eq system-type 'darwin)
-                            "open"
-                          "xdg-open")
+                        (cl-case system-type
+                          (darwin "open")
+                          (windows-nt "start")
+                          (t "xdg-open"))
                         (shell-quote-argument x))))
 
 (defalias 'counsel-find-file-extern 'counsel-locate-action-extern)