branch: elpa/helm
commit dc649ffbb0afbd0b56f685bd8b65dd981a37024e
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Add change wall paper action to HFF
---
helm-files.el | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index 89825d6db6..8581d8dcdc 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -4534,9 +4534,15 @@ Arg FILE is the real part of candidate, a filename with
no props."
((string-match (image-file-name-regexp) candidate)
(helm-append-at-nth
actions
- '(("Rotate image right `M-r'" . helm-ff-rotate-image-right)
- ("Rotate image left `M-l'" . helm-ff-rotate-image-left)
- ("Start slideshow with marked" .
helm-ff-start-slideshow-on-marked))
+ (helm-make-actions
+ "Rotate image right `M-r'" 'helm-ff-rotate-image-right
+ "Rotate image left `M-l'" 'helm-ff-rotate-image-left
+ "Start slideshow with marked" 'helm-ff-start-slideshow-on-marked
+ (lambda ()
+ (and (fboundp 'image-dired-wallpaper-set)
+ (display-graphic-p)
+ "Change wall paper"))
+ 'image-dired-wallpaper-set)
3))
((string-match "\\.el\\'" candidate)
(helm-append-at-nth
