Changeset 4161 for trunk/lisp/dired-x.el
- Timestamp:
- 09/09/06 16:30:10 (2 years ago)
- Files:
-
- trunk/lisp/dired-x.el (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/dired-x.el
r4091 r4161 959 959 (list 960 960 (list "\\.tar$" 961 '(if dired-guess-shell-gnutar 962 (concat dired-guess-shell-gnutar " xvf") 963 "tar xvf") 964 ;; Extract files into a separate subdirectory 965 '(if dired-guess-shell-gnutar 966 (concat "mkdir " (file-name-sans-extension file) 967 "; " dired-guess-shell-gnutar " -C " 968 (file-name-sans-extension file) " -xvf") 969 (concat "mkdir " (file-name-sans-extension file) 970 "; tar -C " (file-name-sans-extension file) " -xvf"))) 961 '(if dired-guess-shell-gnutar 962 (concat dired-guess-shell-gnutar " xvf") 963 "tar xvf") 964 ;; Extract files into a separate subdirectory 965 '(if dired-guess-shell-gnutar 966 (concat "mkdir " (file-name-sans-extension file) 967 "; " dired-guess-shell-gnutar " -C " 968 (file-name-sans-extension file) " -xvf") 969 (concat "mkdir " (file-name-sans-extension file) 970 "; tar -C " (file-name-sans-extension file) " -xvf")) 971 ;; List archive contents. 972 '(if dired-guess-shell-gnutar 973 (concat dired-guess-shell-gnutar " tvf") 974 "tar tvf")) 971 975 972 976 ;; REGEXPS for compressed archives must come before the .Z rule to 973 977 ;; be recognized: 974 978 (list "\\.tar\\.Z$" 975 976 977 978 979 980 981 979 ;; Untar it. 980 '(if dired-guess-shell-gnutar 981 (concat dired-guess-shell-gnutar " zxvf") 982 (concat "zcat * | tar xvf -")) 983 ;; Optional conversion to gzip format. 984 '(concat "znew" (if dired-guess-shell-gzip-quiet " -q") 985 " " dired-guess-shell-znew-switches)) 982 986 983 987 ;; gzip'ed archives 984 988 (list "\\.t\\(ar\\.\\)?gz$" 985 '(if dired-guess-shell-gnutar 986 (concat dired-guess-shell-gnutar " zxvf") 987 (concat "gunzip -qc * | tar xvf -")) 988 ;; Extract files into a separate subdirectory 989 '(if dired-guess-shell-gnutar 990 (concat "mkdir " (file-name-sans-extension file) 991 "; " dired-guess-shell-gnutar " -C " 992 (file-name-sans-extension file) " -zxvf") 993 (concat "mkdir " (file-name-sans-extension file) 994 "; gunzip -qc * | tar -C " 995 (file-name-sans-extension file) " -xvf -")) 996 ;; Optional decompression. 997 '(concat "gunzip" (if dired-guess-shell-gzip-quiet " -q" ""))) 989 '(if dired-guess-shell-gnutar 990 (concat dired-guess-shell-gnutar " zxvf") 991 (concat "gunzip -qc * | tar xvf -")) 992 ;; Extract files into a separate subdirectory 993 '(if dired-guess-shell-gnutar 994 (concat "mkdir " (file-name-sans-extension file) 995 "; " dired-guess-shell-gnutar " -C " 996 (file-name-sans-extension file) " -zxvf") 997 (concat "mkdir " (file-name-sans-extension file) 998 "; gunzip -qc * | tar -C " 999 (file-name-sans-extension file) " -xvf -")) 1000 ;; Optional decompression. 1001 '(concat "gunzip" (if dired-guess-shell-gzip-quiet " -q" "")) 1002 ;; List archive contents. 1003 '(if dired-guess-shell-gnutar 1004 (concat dired-guess-shell-gnutar " ztvf") 1005 (concat "gunzip -qc * | tar tvf -"))) 998 1006 999 1007 ;; bzip2'ed archives 1000 1008 (list "\\.t\\(ar\\.bz2\\|bz\\)$" 1001 1009 "bunzip2 -c * | tar xvf -" 1002 1003 1004 1005 1010 ;; Extract files into a separate subdirectory 1011 '(concat "mkdir " (file-name-sans-extension file) 1012 "; bunzip2 -c * | tar -C " 1013 (file-name-sans-extension file) " -xvf -") 1006 1014 ;; Optional decompression. 1007 1015 "bunzip2") 1008 1016 1009 1017 '("\\.shar\\.Z$" "zcat * | unshar") … … 1012 1020 '("\\.e?ps$" "ghostview" "xloadimage" "lpr") 1013 1021 (list "\\.e?ps\\.g?z$" "gunzip -qc * | ghostview -" 1014 1015 1022 ;; Optional decompression. 1023 '(concat "gunzip" (if dired-guess-shell-gzip-quiet " -q"))) 1016 1024 (list "\\.e?ps\\.Z$" "zcat * | ghostview -" 1017 1018 1019 1025 ;; Optional conversion to gzip format. 1026 '(concat "znew" (if dired-guess-shell-gzip-quiet " -q") 1027 " " dired-guess-shell-znew-switches)) 1020 1028 1021 1029 '("\\.patch$" "cat * | patch") 1022 1030 (list "\\.patch\\.g?z$" "gunzip -qc * | patch" 1023 1024 1031 ;; Optional decompression. 1032 '(concat "gunzip" (if dired-guess-shell-gzip-quiet " -q"))) 1025 1033 (list "\\.patch\\.Z$" "zcat * | patch" 1026 1027 1028 1034 ;; Optional conversion to gzip format. 1035 '(concat "znew" (if dired-guess-shell-gzip-quiet " -q") 1036 " " dired-guess-shell-znew-switches)) 1029 1037 1030 1038 ;; The following four extensions are useful with dired-man ("N" key) 1031 1039 (list "\\.\\(?:[0-9]\\|man\\)$" '(progn (require 'man) 1032 1033 1034 1040 (if (Man-support-local-filenames) 1041 "man -l" 1042 "cat * | tbl | nroff -man -h"))) 1035 1043 (list "\\.\\(?:[0-9]\\|man\\)\\.g?z$" '(progn (require 'man) 1036 1037 1038 1039 1040 1044 (if (Man-support-local-filenames) 1045 "man -l" 1046 "gunzip -qc * | tbl | nroff -man -h")) 1047 ;; Optional decompression. 1048 '(concat "gunzip" (if dired-guess-shell-gzip-quiet " -q"))) 1041 1049 (list "\\.[0-9]\\.Z$" '(progn (require 'man) 1042 1043 1044 1045 1046 1047 1050 (if (Man-support-local-filenames) 1051 "man -l" 1052 "zcat * | tbl | nroff -man -h")) 1053 ;; Optional conversion to gzip format. 1054 '(concat "znew" (if dired-guess-shell-gzip-quiet " -q") 1055 " " dired-guess-shell-znew-switches)) 1048 1056 '("\\.pod$" "perldoc" "pod2man * | nroff -man") 1049 1057 1050 '("\\.dvi$" "xdvi" "dvips") ; preview and printing 1051 '("\\.au$" "play") ; play Sun audiofiles 1052 '("\\.mpg$" "mpeg_play") 1053 '("\\.uu$" "uudecode") ; for uudecoded files 1058 '("\\.dvi$" "xdvi" "dvips") ; preview and printing 1059 '("\\.au$" "play") ; play Sun audiofiles 1060 '("\\.mpe?g$\\|\\.avi$" "xine -p") 1061 '("\\.wav$" "play") 1062 '("\\.uu$" "uudecode") ; for uudecoded files 1054 1063 '("\\.hqx$" "mcvert") 1055 '("\\.sh$" "sh") 1056 '("\\.xbm$" "bitmap") 1064 '("\\.sh$" "sh") ; execute shell scripts 1065 '("\\.xbm$" "bitmap") ; view X11 bitmaps 1057 1066 '("\\.gp$" "gnuplot") 1058 1067 '("\\.p[bgpn]m$" "xloadimage") 1059 '("\\.gif$" "xloadimage") 1068 '("\\.gif$" "xloadimage") ; view gif pictures 1060 1069 '("\\.tif$" "xloadimage") 1061 1070 '("\\.png$" "display") ; xloadimage 4.1 doesn't grok PNG 1062 1071 '("\\.jpe?g$" "xloadimage") 1063 '("\\.fig$" "xfig") 1064 '("\\.out$" "xgraph") 1072 '("\\.fig$" "xfig") ; edit fig pictures 1073 '("\\.out$" "xgraph") ; for plotting purposes. 1065 1074 '("\\.tex$" "latex" "tex") 1066 1075 '("\\.texi\\(nfo\\)?$" "makeinfo" "texi2dvi") 1067 '("\\.pdf$" "xpdf") ; edit PDF files 1076 '("\\.pdf$" "xpdf") 1077 '("\\.doc$" "antiword" "strings") 1078 '("\\.rpm$" "rpm -qilp" "rpm -ivh") 1079 '("\\.dia$" "dia") 1080 '("\\.mgp$" "mgp") 1068 1081 1069 1082 ;; Some other popular archivers. 1070 (list "\\.zip$" "unzip" 1071 1072 1073 1083 (list "\\.zip$" "unzip" "unzip -l" 1084 ;; Extract files into a separate subdirectory 1085 '(concat "unzip" (if dired-guess-shell-gzip-quiet " -q") 1086 " -d " (file-name-sans-extension file))) 1074 1087 '("\\.zoo$" "zoo x//") 1075 1088 '("\\.lzh$" "lharc x") … … 1082 1095 (list "\\.bz2$" "bunzip2") 1083 1096 (list "\\.Z$" "uncompress" 1084 ;; Optional conversion to gzip format. 1085 '(concat "znew" (if dired-guess-shell-gzip-quiet " -q") 1086 " " dired-guess-shell-znew-switches)) 1087 ) 1097 ;; Optional conversion to gzip format. 1098 '(concat "znew" (if dired-guess-shell-gzip-quiet " -q") 1099 " " dired-guess-shell-znew-switches)) 1100 1101 '("\\.sign?$" "gpg --verify")) 1088 1102 1089 1103 "Default alist used for shell command guessing.
