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)) (define-key keymap-from key nil))
(defun nd/get-apps-from-mime (mimetype) (defun nd/get-apps-from-mime (mimetype)
"Return all applications that can open a given MIMETYPE. The list "Return all applications that can open a given MIMETYPE.
is comprised of lists of two elements, the first of which is the The list is comprised of alists where pairs are of the form (name . command)."
command (Exec) and the second which is the application name"
(let* ((case-fold-search nil) (let* ((case-fold-search nil)
(mime-regex (concat "^MimeType=.*" mimetype ";.*$")) (mime-regex (concat "^MimeType=.*" mimetype ";.*$"))
(app-regex )
(desktop-dirs '("/usr/share/applications" (desktop-dirs '("/usr/share/applications"
"/usr/local/share/applications" "/usr/local/share/applications"
"~/.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) (progn (string-match "^Name=\\(.*\\)$" tb)
(match-string 1 tb)) (match-string 1 tb))
exec))) 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) (defun nd/get-apps-bulk-from-mime (mimetype)
"Like `nd/get-apps-from-mime' but only includes apps that can open "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)) (lambda (f) (let ((process-connection-type nil))
(start-process "" nil "xdg-open" f))) (start-process "" nil "xdg-open" f)))
file-list)))) 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 #+END_SRC
* org-mode * org-mode
** major mode ** major mode