branch: master
commit 7f6d39f09ec1318c7c3be67e7c1a37f342e42cdf
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
counsel.el (counsel-linux-app-action-file): New action on "M-o f"
* counsel.el (counsel-linux-app-action-default): Rename from
`counsel-linux-app-action'.
---
counsel.el | 25 +++++++++++++++++++++++--
1 file changed, 23 insertions(+), 2 deletions(-)
diff --git a/counsel.el b/counsel.el
index 499fb48..6afdbbc 100644
--- a/counsel.el
+++ b/counsel.el
@@ -1856,18 +1856,39 @@ An extra action allows to switch to the process buffer."
(add-to-list 'counsel-linux-apps-faulty file))))))
counsel-linux-apps-alist)
-(defun counsel-linux-app-action (desktop-shortcut)
+(defun counsel-linux-app-action-default (desktop-shortcut)
"Launch DESKTOP-SHORTCUT."
(call-process-shell-command
(format "gtk-launch %s" (file-name-nondirectory desktop-shortcut))))
+(defun counsel-linux-app-action-file (desktop-shortcut)
+ "Launch DESKTOP-SHORTCUT with a selected file."
+ (let* ((entry (rassoc desktop-shortcut counsel-linux-apps-alist))
+ (short-name (and entry
+ (string-match "\\([^ ]*\\) " (car entry))
+ (match-string 1 (car entry))))
+ (file (and short-name
+ (read-file-name
+ (format "Run %s on: " short-name)))))
+ (if file
+ (call-process-shell-command
+ (format "gtk-launch %s %s"
+ (file-name-nondirectory desktop-shortcut)
+ file))
+ (user-error "cancelled"))))
+
+(ivy-set-actions
+ 'counsel-linux-app
+ '(("f" counsel-linux-app-action-file "run on a file")))
+
;;;###autoload
(defun counsel-linux-app ()
"Launch a Linux desktop application, similar to Alt-<F2>."
(interactive)
(ivy-read "Run a command: " (counsel-linux-apps-list)
- :action #'counsel-linux-app-action
+ :action #'counsel-linux-app-action-default
:caller 'counsel-linux-app))
+
;;** `counsel-mode'
(defvar counsel-mode-map
(let ((map (make-sparse-keymap)))
