added nice message for open-with
This commit is contained in:
parent
2511987c47
commit
ddf4ff41d0
9
conf.org
9
conf.org
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue