From b3a55c2fda8b741158010a6c33708abf3fa3a79d Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Mon, 30 Oct 2017 20:10:35 +0100 Subject: [PATCH] =?UTF-8?q?[Misc]=20Use=20separate=20=E2=80=98dired-guess-?= =?UTF-8?q?shell-alist-user=E2=80=99=20for=20Windows?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- init.el | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) diff --git a/init.el b/init.el index 00d129e..73500d0 100644 --- a/init.el +++ b/init.el @@ -709,17 +709,20 @@ Certificates are assumed to be of the form *.crt." (dolist (extension '(".out" ".synctex.gz" ".thm")) (add-to-list 'dired-latex-unclean-extensions extension)) - (setq dired-guess-shell-alist-user - '(("\\.pdf\\'" "evince") - ("\\.ps\\'" "evince") - ("\\.\\(?:djvu\\|eps\\)\\'" "evince") - ("\\.\\(?:jpg\\|jpeg\\|png\\|gif\\|xpm\\)\\'" "eog") - ("\\.\\(?:xcf\\)\\'" "gimp") - ("\\.\\(?:mp4\\|mkv\\|avi\\|flv\\|ogv\\)\\(?:\\.part\\)?\\'" - "vlc") - ("\\.\\(?:mp3\\|flac\\|ogg\\)\\'" "mplayer") - ("\\.html?\\'" "firefox") - ("\\.docx?\\'" "loffice"))) + (if (eq system-type 'windows-nt) + (setq dired-guess-shell-alist-user + '(("\\.pdf\\'" "firefox"))) + (setq dired-guess-shell-alist-user + '(("\\.pdf\\'" "evince") + ("\\.ps\\'" "evince") + ("\\.\\(?:djvu\\|eps\\)\\'" "evince") + ("\\.\\(?:jpg\\|jpeg\\|png\\|gif\\|xpm\\)\\'" "eog") + ("\\.\\(?:xcf\\)\\'" "gimp") + ("\\.\\(?:mp4\\|mkv\\|avi\\|flv\\|ogv\\)\\(?:\\.part\\)?\\'" + "vlc") + ("\\.\\(?:mp3\\|flac\\|ogg\\)\\'" "mplayer") + ("\\.html?\\'" "firefox") + ("\\.docx?\\'" "loffice")))) (unbind-key "C-M-o" dired-mode-map)