Add detection of *.tar.bz2 and *.tar.xz for `dired-do-compress' in lisp/dired-aux.el

Add detection of *.tar.bz2 and *.tar.xz for `dired-do-compress' in lisp/dired-aux.el

[朱梓豪]

[-- Attachment #1.1: Type: text/plain, Size: 109 bytes --]

I found there was detection for *.tar.gz, but there's no detection for
*.tar.bz2 and *.tar.xz.

So I add it.

[-- Attachment #1.2: Type: text/html, Size: 199 bytes --]

[-- Attachment #2: 0001-Add-detection-of-.tar.bz2-and-.tar.xz-for-dired-do-c.patch --]
[-- Type: text/x-patch, Size: 918 bytes --]

From b0b748568f3939f5fda9ffa9f224ae65237e7193 Mon Sep 17 00:00:00 2001
From: Zhu Zihao <all_but_last@163.com>
Date: Sat, 29 Jun 2019 19:21:24 +0800
Subject: [PATCH] Add detection of *.tar.bz2 and *.tar.xz for
 `dired-do-compress'.

Keep the consistency since we have detection for *.tar.gz.
---
 lisp/dired-aux.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 5e4ec4d1ec..fdd65b5714 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -988,7 +988,8 @@ dired-compress-file-suffixes
     ;; Solaris10 version of tar. Solaris10 becomes obsolete in 2021.
     ;; Same thing on AIX 7.1.
     ("\\.tar\\.gz\\'" "" "gzip -dc %i | tar -xf -")
+    ("\\.tar\\.bz2\\'" "" "bzip2 -dc %i | tar -xf -")
+    ("\\.tar\\.xz" "" "xz -dc %i | tar -xf -")
     ("\\.tgz\\'" "" "gzip -dc %i | tar -xf -")
     ("\\.gz\\'" "" "gunzip")
     ("\\.Z\\'" "" "uncompress")
--
2.22.0

Re: Add detection of *.tar.bz2 and *.tar.xz for `dired-do-compress' in lisp/dired-aux.el

[Václav Haisman]

[-- Attachment #1.1: Type: text/plain, Size: 863 bytes --]

On 29. 06. 19 14:22, 朱梓豪 wrote:
> I found there was detection for *.tar.gz, but there's no detection for
> *.tar.bz2 and *.tar.xz.
> 
> So I add it.
> 
> 
> diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
> index 5e4ec4d1ec..fdd65b5714 100644
> --- a/lisp/dired-aux.el
> +++ b/lisp/dired-aux.el
> @@ -988,7 +988,8 @@ dired-compress-file-suffixes
>      ;; Solaris10 version of tar. Solaris10 becomes obsolete in 2021.
>      ;; Same thing on AIX 7.1.
>      ("\\.tar\\.gz\\'" "" "gzip -dc %i | tar -xf -")
> +    ("\\.tar\\.bz2\\'" "" "bzip2 -dc %i | tar -xf -")
> +    ("\\.tar\\.xz" "" "xz -dc %i | tar -xf -")

Unlike the other lines, this one does not have \\' at its end. Is this
intended?

>      ("\\.tgz\\'" "" "gzip -dc %i | tar -xf -")
>      ("\\.gz\\'" "" "gunzip")
>      ("\\.Z\\'" "" "uncompress")



-- 
VH


[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 228 bytes --]

Re: Add detection of *.tar.bz2 and *.tar.xz for `dired-do-compress' in lisp/dired-aux.el

[朱梓豪]

[-- Attachment #1.1: Type: text/plain, Size: 81 bytes --]

It' just my typo. Please ignore it.

I've built a new patch instead of old ones.

[-- Attachment #1.2: Type: text/html, Size: 175 bytes --]

[-- Attachment #2: 0001-Add-detection-of-.tar.bz2-and-.tar.xz-for-dired-do-c.patch --]
[-- Type: text/x-patch, Size: 929 bytes --]

From 5bee3c8403675948f6d73d3d799ac88dc7e593bd Mon Sep 17 00:00:00 2001
From: Zhu Zihao <all_but_last@163.com>
Date: Sat, 29 Jun 2019 19:21:24 +0800
Subject: [PATCH] Add detection of *.tar.bz2 and *.tar.xz for
 `dired-do-compress'.

Keep the consistency since we have detection for *.tar.gz.

Fix.
---
 lisp/dired-aux.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 5e4ec4d1ec..4b5bd61a40 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -988,6 +988,8 @@ dired-compress-file-suffixes
     ;; Solaris10 version of tar. Solaris10 becomes obsolete in 2021.
     ;; Same thing on AIX 7.1.
     ("\\.tar\\.gz\\'" "" "gzip -dc %i | tar -xf -")
+    ("\\.tar\\.bz2\\'" "" "bzip2 -dc %i | tar -xf -")
+    ("\\.tar\\.xz\\'" "" "unxz -c %i | tar -xf -")
     ("\\.tgz\\'" "" "gzip -dc %i | tar -xf -")
     ("\\.gz\\'" "" "gunzip")
     ("\\.Z\\'" "" "uncompress")
-- 
2.22.0