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

improvements to open-with

This commit is contained in:
petrucci4prez 2018-08-22 23:23:09 -04:00
parent 54a8083914
commit 23d3c170d4
1 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
conf.org
View File

@ -261,12 +261,10 @@ event of an error or nonlocal exit."
(define-key keymap-from key nil))
(defun nd/get-apps-from-mime (mimetype)
"Return all applications that can open a given MIMETYPE. The list
is comprised of lists of two elements, the first of which is the
command (Exec) and the second which is the application name"
"Return all applications that can open a given MIMETYPE.
The list is comprised of alists where pairs are of the form (name . command)."
(let* ((case-fold-search nil)
(mime-regex (concat "^MimeType=.*" mimetype ";.*$"))
(app-regex )
(desktop-dirs '("/usr/share/applications"
"/usr/local/share/applications"
"~/.local/share/applications"))
@ -283,7 +281,7 @@ command (Exec) and the second which is the application name"
(progn (string-match "^Name=\\(.*\\)$" tb)
(match-string 1 tb))
exec)))
(setq app-list (cons (list exec name) app-list)))))))))
(setq app-list (cons `(,name . ,exec) app-list)))))))))
(defun nd/get-apps-bulk-from-mime (mimetype)
"Like `nd/get-apps-from-mime' but only includes apps that can open
@ -479,6 +477,25 @@ Keeping confirmation enabled does weird stuff with helm. Not ideal at the moment
(lambda (f) (let ((process-connection-type nil))
(start-process "" nil "xdg-open" f)))
file-list))))
(defun nd/dired-open-with ()
"Open marked non-text files in external app via open-with dialog
according to mime types as listed in all available desktop files.mimetype"
(interactive)
(let* ((file-list
(mapcar
(lambda (f) (list f (replace-regexp-in-string
"\n\\'" ""
(shell-command-to-string (concat "file --mime-type -b " f)))))
(seq-filter #'file-regular-p (dired-get-marked-files)))))
(if (= (length file-list) 1)
(let* ((file-pair (car file-list))
(file-name (nth 0 file-pair))
(mime-alist (nd/get-apps-from-mime (nth 1 file-pair))))
(helm :sources (helm-build-sync-source "Apps"
:candidates mime-alist
:action '(("Open" . (lambda (f) (shell-command (replace-regexp-in-string "%[fuFU]" file-name f t))))))
:buffer "*helm open with*")))))
#+END_SRC
* org-mode
** major mode