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

Helm: Fix helm-external-command-cleanup-dotted on first call.

master
Pierre Neidhardt 2019-09-24 17:27:07 +02:00
parent b65c93751d
commit bae6941aa5
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

@ -327,13 +327,14 @@ With prefix argument, UPDATE the databases with custom uptions thanks to the
(file-name-extension candidate))))) (file-name-extension candidate)))))
1)) 1))
(defun ambrevar/helm-external-command-cleanup-dotted (&optional _ignore) (defun ambrevar/helm-external-command-cleanup-dotted (old-function &optional args)
"Remove dotted programs from `helm-run-external-command' list. "Remove dotted programs from `helm-run-external-command' list.
Useful for Guix." Useful for Guix."
(funcall old-function args)
(setq helm-external-commands-list (setq helm-external-commands-list
(cl-delete-if (lambda (p) (string-prefix-p "." p)) (cl-delete-if (lambda (p) (string-prefix-p "." p))
helm-external-commands-list))) helm-external-commands-list)))
(advice-add 'helm-external-commands-list-1 (advice-add 'helm-external-commands-list-1
:after #'ambrevar/helm-external-command-cleanup-dotted) :around #'ambrevar/helm-external-command-cleanup-dotted)
(provide 'init-helm) (provide 'init-helm)