--- Begin Message ---
Subject: |
28.0.50; dired-compress-file: provide customization for compressing command |
Date: |
Fri, 27 Nov 2020 12:50:16 +0300 |
In the function: dired-compress-file there is hard coded gzip as
compressor:
(dired-check-process (concat "Compressing " file)
"gzip" "-f" file))
It would be useful to have customization as there are various other
compressors that are often used to distribute files such as these, and
all of them supprot -f option:
- bzip2
- xz
- lzip
- there may be others
Customization option could be called dired-compress-command or
similar and it could default to gzip
(defcustom dired-compress-command "gzip"
"Default compressing command for dired. The commpressing
command shall support the option `-f' to force overwriting the file"
:type 'string
:group 'dired)
Then the part here in the function `dired-compress-file' can be changed to:
(dired-check-process (concat "Compressing " file)
dired-compress-command "-f" file))
Thanks,
Jean Louis
⎔ λ 🄯 𝍄 𝌡 𝌚
--- End Message ---
--- Begin Message ---
Subject: |
Re: bug#44901: 28.0.50; dired-compress-file: provide customization for compressing command |
Date: |
Mon, 11 Oct 2021 05:35:55 -0700 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/28.0.60 (gnu/linux) |
Lars Ingebrigtsen <larsi@gnus.org> writes:
> Jean Louis <bugs@gnu.support> writes:
>
>> Additionally this variable should be updated:
>>
>> (defvar dired-compress-files-alist
>> '(("\\.tar\\.gz\\'" . "tar -cf - %i | gzip -c9 > %o")
>> ("\\.tar\\.bz2\\'" . "tar -cf - %i | bzip2 -c9 > %o")
>> ("\\.tar\\.xz\\'" . "tar -cf - %i | xz -c9 > %o")
>> ("\\.tar\\.zst\\'" . "tar -cf - %i | zstd -19 -o %o")
>> ("\\.zip\\'" . "zip %o -r --filesync %i"))
>>
>> to be:
>>
>> (defvar dired-compress-files-alist
>> '(("\\.tar\\.gz\\'" . "tar -cf - %i | gzip -c9 > %o")
>> ("\\.tar\\.bz2\\'" . "tar -cf - %i | bzip2 -c9 > %o")
>> ("\\.tar\\.xz\\'" . "tar -cf - %i | xz -c9 > %o")
>> ("\\.tar\\.lz\\'" . "tar -cf - %i | lzip -c9 > %o") ;; new line for lzip
>> ("\\.tar\\.lzo\\'" . "tar -cf - %i | lzop -c9 > %o") ;; new line for lzop
>> ("\\.tar\\.zst\\'" . "tar -cf - %i | zstd -19 -o %o")
>> ("\\.zip\\'" . "zip %o -r --filesync %i"))
>
> Makes sense; I've now pushed this to Emacs 28.
It seems like this was fixed, so I'm closing this bug report.
--- End Message ---