mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Helm: Fix Strawberry integration.

master
Pierre Neidhardt 2021-05-09 15:10:54 +02:00
parent c33940e5cf
commit a84921bd5f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
.emacs.d/lisp/init-helm.el
View File

@ -300,10 +300,11 @@ With prefix argument, UPDATE the databases with custom uptions thanks to the
"strawberry" "strawberry"
"EMMS")) "EMMS"))
(lambda (_candidate) (lambda (_candidate)
(let ((adder)))
(or (when (executable-find "strawberry") (or (when (executable-find "strawberry")
(apply #'call-process (apply #'call-process
"strawberry" nil nil nil (helm-marked-candidates))))) "strawberry" nil nil nil (helm-marked-candidates)))
(when (require 'emms nil 'noerror)
(mapc 'emms-add-directory-tree (helm-marked-candidates)))))
source source
(lambda (candidate) (lambda (candidate)
(or (file-directory-p candidate) (or (file-directory-p candidate)