ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
conf.org
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)
(helm (let* ((ml (delete-dups (mapcan #'cdr file-mime-list)))
:sources (helm-build-sync-source "Apps" (mls (string-join ml ", ")))
:candidates mime-alist (if (= (length ml) 1)
:action '(("Open" . (lambda (f) (nd/execute-desktop-command f file-list))))) (message (concat "No apps found for mime type: " mls))
:buffer "*helm open with*"))))) (message (concat "No common apps found for mime types: " mls))))
(helm
:sources (helm-build-sync-source "Apps"
:candidates mime-alist
:action '(("Open" . (lambda (f) (nd/execute-desktop-command f file-list)))))
: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