Comment décompresser/décompresser dans Emacs

Je voudrais que les décompresser (ou même zip) à l'intérieur de dired ou un dired-comme tampon. Est-il quelque chose comme cela? Je voudrais quelque chose de similaire que dans le gestionnaire de fichiers Nautilus: c'est à dire, de la sélection des fichiers, puis en appuyant sur une touche pour obtenir ces fichiers dans un nouveau fichier d'archive.

Merci

InformationsquelleAutor Damien Cassou | 2009-09-16
  1. 31

    Vous avez l'embarras du choix...

    De décompresser un .zip fichier, il vous suffit d'ajouter à la variable 'dired-compress-file-suffixes

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

    Maintenant la Z clé dans dired va reconnaître la .extension zip et décompresser un .archive zip. Déjà pris en charge sont gunzip, bunzip2, uncompress et dictunzip.

    Si vous voulez marquer des fichiers et de les ajouter à un .archive zip que vous pouvez utiliser ce qui suit pour faire z lié à zip de l'ensemble des fichiers marqués:

    (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 " "))
    • n'a pas de " Z " do it out-of-the-box? (ou le marquer avec un " m "et cliquez sur "Z"). Je me souviens, il a travaillé pour moi un moment de retour. Je l'ai vu ici: xahlee.org/emacs/file_management.html
    • Z de compresser les fichiers, chacun d'eux individuellement. Il n'est pas de les ajouter à une archive zip.
    • Il semble concat-chaîne-liste n'existe pas: concat: Symbole de la définition de la fonction est nulle: concat-chaîne-liste
    • Ok, j'ai mis en œuvre: (defun concat-chaîne-list (liste) "renvoie une chaîne qui est une concaténation de tous les éléments de la liste séparés par des espaces" (mapconcat '(lambda (obj) (format "%s" obj)) liste " "))
    • Désolé, j'ai oublié que j'avais ça dans mes propres fonctions d'aide, je vais l'ajouter à la réponse de code.
    • il semble également que " dired-compresser fichier suffixes est défini par dired-aux et pas par dired lui-même. Ce qui rend le eval-après-charge de travail. J'ai changé "dired" par "dired-aux" et maintenant cela fonctionne ok.
    • merci, j'ai mis à jour le code.
    • Je pense que le code ci-dessus a besoin de quelques échapper pour les noms de fichiers, essayez de sélectionner un certain nombre de fichiers, comme 2010_12_HEAD_Seminar (1).pdf et voir ce qui se passe.
    • Le code ne fonctionne pas pour les noms de fichiers avec des espaces sur OSX.
    • Dans Emacs (25), vous pouvez utiliser string-join de subr-x au lieu de concat-string-list.

    InformationsquelleAutor Trey Jackson
  2. 21

    Pour les fichiers zip, ouvrez le répertoire dans dired. Cochez les fichiers que vous souhaitez compresser avec m. Tapez

    ! zip foo.zip * <RET>

    Pour en extraire une archive de dired vous pouvez marquer un fichier et de l'exécuter & unzip, comme vous le feriez dans un shell.

    archive zip mode vous permettra de parcourir les fichiers zip dans un dired-comme la mode. Il devrait venir avec les récentes versions de GNU emacs et sera utilisé par défaut lorsque vous accédez à un fichier avec l' .extension zip. À partir de ce mode, vous pouvez extraire des fichiers dans une mémoire tampon, et à partir de là, de les enregistrer avec C-x C-s.

    InformationsquelleAutor p00ya