Làm cách nào để giải nén/giải nén trong Emacs

Question

Tôi muốn chạy giải nén (hoặc thậm chí là zip) trong bộ đệm giống như dired hoặc bộ đệm giống như dired. Có thứ gì như thế này không? Tôi muốn một cái gì đó tương tự như trong quản lý tập tin Nautilus: tức là, chọn các tập tin và sau đó nhấn một phím tắt để có được những tập tin này vào một tập tin lưu trữ mới.

Cảm ơn bạn

Answer 1

tùy chọn Bạn đã có ...

Để giải nén một file .zip, bạn chỉ cần thêm vào biến 'dired-compress-file-suffixes

(eval-after-load "dired-aux" 
    '(add-to-list 'dired-compress-file-suffixes 
       '("\\.zip\\'" ".zip" "unzip"))) 

Bây giờ Z quan trọng trong dired sẽ nhận ra .zip mở rộng và giải nén tệp nén .zip. Đã được hỗ trợ là gunzip, bunzip2, uncompress và dictunzip.

Nếu bạn muốn đánh dấu tập tin và thêm chúng vào một .zip lưu trữ, bạn có thể sử dụng sau đây để làm z ràng buộc để nén tập các file rõ rệt:

(eval-after-load "dired" 
    '(define-key dired-mode-map "z" 'dired-zip-files)) 
(defun dired-zip-files (zip-file) 
    "Create an archive containing the marked files." 
    (interactive "sEnter name of zip file: ") 

    ;; create the zip file 
    (let ((zip-file (if (string-match ".zip$" zip-file) zip-file (concat zip-file ".zip")))) 
    (shell-command 
    (concat "zip " 
      zip-file 
      " " 
      (concat-string-list 
       (mapcar 
       '(lambda (filename) 
        (file-name-nondirectory filename)) 
       (dired-get-marked-files)))))) 

    (revert-buffer) 

    ;; remove the mark on all the files "*" to " " 
    ;; (dired-change-marks 42 ?\040) 
    ;; mark zip file 
    ;; (dired-mark-files-regexp (filename-to-regexp zip-file)) 
) 

(defun concat-string-list (list) 
    "Return a string which is a concatenation of all elements of the list separated by spaces" 
    (mapconcat '(lambda (obj) (format "%s" obj)) list " ")) 

Answer 2

Để nén tệp, mở thư mục theo đường dẫn. Đánh dấu các tệp bạn muốn nén bằng m. Sau đó, nhập

! zip foo.zip * <RET> 

Để trích xuất toàn bộ lưu trữ từ thư mục bạn có thể đánh dấu tệp và chạy & unzip, giống như bạn làm trong trình bao.

chế độ lưu trữ zip sẽ cho phép bạn duyệt các tệp zip theo kiểu thời trang giống như dired. Nó sẽ đi kèm với các phiên bản gần đây của các emacs GNU và sẽ được sử dụng theo mặc định khi bạn truy cập một tệp có phần mở rộng .zip. Từ chế độ này, bạn có thể trích xuất các tệp riêng lẻ thành một bộ đệm và từ đó lưu chúng với C-x C-s.