added nice message for open-with

This commit is contained in:
petrucci4prez 2018-08-27 17:40:44 -04:00
parent 2511987c47
commit ddf4ff41d0
1 changed files with 11 additions and 6 deletions

View File

@ -512,12 +512,17 @@ according to mime types as listed in all available desktop files."
(setq mime-alist (intersection mime-alist (setq mime-alist (intersection mime-alist
(nd/get-apps-from-mime mime) (nd/get-apps-from-mime mime)
:test #'equal))))) :test #'equal)))))
(if (= (length mime-alist) 0)
(let* ((ml (delete-dups (mapcan #'cdr file-mime-list)))
(mls (string-join ml ", ")))
(if (= (length ml) 1)
(message (concat "No apps found for mime type: " mls))
(message (concat "No common apps found for mime types: " mls))))
(helm (helm
:sources (helm-build-sync-source "Apps" :sources (helm-build-sync-source "Apps"
:candidates mime-alist :candidates mime-alist
:action '(("Open" . (lambda (f) (nd/execute-desktop-command f file-list))))) :action '(("Open" . (lambda (f) (nd/execute-desktop-command f file-list)))))
:buffer "*helm open with*"))))) :buffer "*helm open with*"))))))
#+END_SRC #+END_SRC
** compression ** compression
Only supports tar.gz, tar.bz2, tar.xz, and .zip by default. Add support for more fun algos such as lzo and zpaq Only supports tar.gz, tar.bz2, tar.xz, and .zip by default. Add support for more fun algos such as lzo and zpaq