Как распаковать / распаковать в Emacs

17

Я хотел бы запускать unzip (или даже zip) в Dired или Dired-подобном буфере. Есть ли что-нибудь подобное? Я хотел бы что-то подобное, как в файловом менеджере Nautilus: например, выбирая файлы, а затем нажав клавишу, чтобы получить эти файлы в новый файл архива.

Спасибо

    
задан Damien Cassou 16.09.2009 в 08:48
источник

2 ответа

26

У вас есть варианты ...

Чтобы распаковать ZIP-файл, вам просто нужно добавить к переменной 'dired-compress-file-suffixes

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

Теперь клавиша Z в Dired распознает расширение .zip и распакует ZIP-архив. Уже поддерживаются gunzip , bunzip2 , uncompress и dictunzip .

Если вы хотите пометить файлы и добавить их в архив .zip, вы можете использовать следующее, чтобы z привязана к zip-набору отмеченных файлов:

(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 ?0)
  ;; 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 " ")) 
    
ответ дан Trey Jackson 16.09.2009 в 12:11
источник
16

Чтобы заархивировать файлы, откройте каталог в режиме dired. Отметьте файлы, которые вы хотите заархивировать, m . Затем введите

! zip foo.zip * <RET>

Чтобы извлечь весь архив из Dired, вы можете пометить файл и запустить & unzip , как и в оболочке.

Режим zip-архива позволит вам просматривать zip-файлы по-разному. Он должен появиться с последними версиями GNU emacs и будет использоваться по умолчанию при посещении файла с расширением .zip. Из этого режима вы можете извлечь отдельные файлы в буфер, а оттуда сохранить их с помощью C-x C-s .

    
ответ дан p00ya 16.09.2009 в 09:04
источник