Aqui está um esboço de uma implementação.
O modo Arquivar armazena mapas dos tipos de arquivamento para comandos usados para extrair dados em variáveis archive-TYPE-extract
; podemos encontrar a variável correta usando (archive-name "extract")
.
Todos os comandos são personalizados para extrair para saída padrão; felizmente, ainda podemos usá-los se redirecionarmos stdout
para um arquivo de nossa escolha.
(defun archive-extract-to-file (archive-name item-name command dir)
"Extract ITEM-NAME from ARCHIVE-NAME using COMMAND. Save to
DIR."
(unwind-protect
;; remove the leading / from the file name to force
;; expand-file-name to interpret its path as relative to dir
(let* ((file-name (if (string-match "\\`/" item-name)
(substring item-name 1)
item-name))
(output-file (expand-file-name file-name dir))
(output-dir (file-name-directory output-file)))
;; create the output directory (and its parents) if it does
;; not exist yet
(unless (file-directory-p output-dir)
(make-directory output-dir t))
;; execute COMMAND, redirecting output to output-file
(apply #'call-process
(car command) ;program
nil ;infile
`(:file ,output-file) ;destination
nil ;display
(append (cdr command) (list archive-name item-name))))
;; FIXME: add unwind forms
nil))
Eu modifiquei archive-extract-by-file
para conseguir isso.
(defun archive-extract-marked-to-file (output-dir)
"Extract marked archive items to OUTPUT-DIR."
(interactive "sOutput directory: ")
(let ((command (symbol-value (archive-name "extract")))
(archive (buffer-file-name))
(items (archive-get-marked ?* t))) ; get marked items; t means
; get item under point if
; nothing is marked
(mapc
(lambda (item)
(archive-extract-to-file archive
(aref item 0) ; get the name from the descriptor
command output-dir))
items)))
Aqui eu uso mapc
para percorrer todos os arquivos marcados e extraí-los.
Agora só precisamos adicionar uma ligação de chave:
(require 'arc-mode)
(define-key archive-mode-map "F" #'archive-extract-marked-to-file)
Eu testei isso em um .zip
arquivo fictício contendo um subdiretório, mas sua milhagem pode variar.
Note-se que archive-mode
suportes Arc
, Lzh
, Zip
, Zoo
, Rar
, e 7z
. Ele não apoiar .tgz
, .tbz
, .tar.gz
e amigos, que são abertos usando tar-mode
e uncompress.el
.
foo/bar.txt
em um archive é extraído paraoutput-dir/foo/bar.txt
, e não paraoutput-dir/bar.txt
. O último é possível, é claro, mas exigiria mais código.[email protected]
(recebi este e-mail de Lars Ingebrigtsen ) agora; Enquanto isso, eu vou limpar isso e colocá-lo no GitHub.(interactive "G...")
desta forma ele irá sugerir o diretório atual, mais ele vai autocomplete e interagir com o modo Ido etc.