[Misc] Use separate ‘dired-guess-shell-alist-user’ for Windows

This commit is contained in:
Daniel - 2017-10-30 20:10:35 +01:00
parent 97478ace21
commit b3a55c2fda
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 14 additions and 11 deletions

25
init.el
View File

@ -709,17 +709,20 @@ Certificates are assumed to be of the form *.crt."
(dolist (extension '(".out" ".synctex.gz" ".thm")) (dolist (extension '(".out" ".synctex.gz" ".thm"))
(add-to-list 'dired-latex-unclean-extensions extension)) (add-to-list 'dired-latex-unclean-extensions extension))
(setq dired-guess-shell-alist-user (if (eq system-type 'windows-nt)
'(("\\.pdf\\'" "evince") (setq dired-guess-shell-alist-user
("\\.ps\\'" "evince") '(("\\.pdf\\'" "firefox")))
("\\.\\(?:djvu\\|eps\\)\\'" "evince") (setq dired-guess-shell-alist-user
("\\.\\(?:jpg\\|jpeg\\|png\\|gif\\|xpm\\)\\'" "eog") '(("\\.pdf\\'" "evince")
("\\.\\(?:xcf\\)\\'" "gimp") ("\\.ps\\'" "evince")
("\\.\\(?:mp4\\|mkv\\|avi\\|flv\\|ogv\\)\\(?:\\.part\\)?\\'" ("\\.\\(?:djvu\\|eps\\)\\'" "evince")
"vlc") ("\\.\\(?:jpg\\|jpeg\\|png\\|gif\\|xpm\\)\\'" "eog")
("\\.\\(?:mp3\\|flac\\|ogg\\)\\'" "mplayer") ("\\.\\(?:xcf\\)\\'" "gimp")
("\\.html?\\'" "firefox") ("\\.\\(?:mp4\\|mkv\\|avi\\|flv\\|ogv\\)\\(?:\\.part\\)?\\'"
("\\.docx?\\'" "loffice"))) "vlc")
("\\.\\(?:mp3\\|flac\\|ogg\\)\\'" "mplayer")
("\\.html?\\'" "firefox")
("\\.docx?\\'" "loffice"))))
(unbind-key "C-M-o" dired-mode-map) (unbind-key "C-M-o" dired-mode-map)