Emacs में निर्देशिकाओं की तुलना करना

Question

मैं प्रयोग कर ediff-directoriesरहा हूं, लेकिन मुझे यकीन नहीं है कि मैं इसका सही उपयोग कर रहा हूं।

मैं प्रलेखन में पढ़ा था कि, एक बार जब मैं दो निर्देशिकाओं की आपूर्ति करता हूं ediff-directories, अगर मैं ==Emacs दबाता हूं तो उन्हें पुनरावर्ती रूप से तुलना करता हूं।

हालांकि, अगर मैं दबाता ==हूं तो मुझे केवल उन =संकेतों के साथ फ़ोल्डर्स मिलते हैं (जिसका अर्थ है कि दो फ़ोल्डर्स समान सामग्री हैं) उस स्तर पर जहां मैं कमांड चलाता हूं। यदि मैं यह देखना चाहता हूं कि =फ़ोल्डर पदानुक्रम में कौन से फ़ोल्डर में गहरे स्तर पर संकेत हैं, तो मुझे ==प्रत्येक स्तर पर कमांड को फिर से चलाने की आवश्यकता है।

मैं इमैक को पत्तियों पर सभी तरीके से पुनरावर्ती जाने के लिए कैसे कह सकता हूं ताकि मैं सभी अंतरों को देख directory difference bufferसकूं (कीबोर्ड कमांड के माध्यम से सुलभ D)?

अगर किसी को कैसे ediff-directories(आधिकारिक प्रलेखन के अलावा ) का उपयोग करने के बारे में एक ट्यूटोरियल के बारे में पता है , तो मुझे बहुत दिलचस्पी होगी।

---

इसके अलावा, अगर मैं एक सत्र समूह (एक स्तर पर फ़ोल्डर्स की तुलना) से बाहर निकलना चाहता हूं, लेकिन मेरे पास सत्र गहरे स्तरों के लिए खुले हैं, अगर मैं दबाता हूं q(इस सत्र समूह को छोड़ दें), तो Emacs को गड़बड़ी की शिकायत है:

इस सत्र समूह में सक्रिय सत्र हैं --- बाहर नहीं निकल सकते

मैं उप-सत्रों को एक-एक करके बाहर निकाले बिना सत्र समूहों से कैसे बाहर निकल सकता हूँ?

Comments

मैं एडिफ़ के लिए भुगतान करने के लिए भुगतान करने की तुलना में अधिक उपयोगी होने के लिए भुगतान करूँगा ...

— ckhan

ztree-diffदो निर्देशिकाओं को पुनरावर्ती रूप से भिन्न कर सकते हैं। github.com/fourier/ztree

— मोमेरा

Answer 1

मैंने उपयोग किया है M-x dired-compare-directories, लेकिन एडिफट्रीज़ भी है , जो आपके द्वारा वर्णित स्थिति में बेहतर सेवा प्रदान कर सकता है।

Answer 2

मुझे भी इस सुविधा की आवश्यकता थी और निम्नलिखित के साथ आया। फ़ंक्शन की ediff-directories-recursiveतरह काम करता है ediff-directoriesलेकिन उप-निर्देशिकाओं में पुनरावृत्ति करता है ।

इसके पीछे का जादू कॉल करने से पहले अस्थायी रूप से directory-filesस्व-निर्मित द्वारा प्रतिस्थापित किया जाता है ।directory-files-recursiveediff-directories

(eval
 (let ((directory-files-original (symbol-function 'directory-files)))
   `(defun directory-files-recursive (directory &optional full match nosort)
      "Like `directory-files' but recurses into subdirectories. Does not follow symbolic links."
      (let* ((prefix (or (and full "") directory))
         dirs
         files)
    (mapc (lambda (p)
        (let ((fullname (if full p (concat prefix "/" p))))
          (when (and (file-directory-p fullname)
                 (null (or (string-match "\\(^\\|/\\).$" p)
                       (string-match "\\(^\\|/\\)..$" p)
                       (file-symlink-p fullname))))
            (setq dirs (cons p dirs)))))
          (funcall ,directory-files-original directory full nil nosort))
    (setq dirs (nreverse dirs))
    (mapc (lambda (p)
        (when (null (file-directory-p (if full p (concat prefix "/" p))))
          (setq files (cons p files))))
          (funcall ,directory-files-original directory full match nosort))
    (setq files (nreverse files))
    (mapc (lambda (d)
        (setq files
              (append files
                  (if full
                  (apply 'directory-files-recursive (list d full match nosort))
                (mapcar (lambda (n)
                      (concat d "/" n))
                    (apply 'directory-files-recursive (list (concat prefix "/" d) full match nosort)))))))
          dirs)
    files))))

(eval
 `(defun ediff-directories-recursive (dir1 dir2 regexp)
    "Like `ediff-directories' but recurses into sub-directories. Does not follow symbolic links."
    ,(interactive-form (symbol-function 'ediff-directories))
    (let ((directory-files-original (symbol-function 'directory-files)))
      (unwind-protect
      (progn
        (fset 'directory-files (symbol-function 'directory-files-recursive))
        (ediff-directories dir1 dir2 regexp)
        (fset 'directory-files directory-files-original))))))

Comments

मैंने eval-बफर किया और इसे प्राप्त किया: डीबगर ने प्रवेश किया - लिस्प त्रुटि: (गलत-प्रकार-तर्क प्रतीक (autoload "ediff" 890739 t nil)) संवादात्मक-रूप ((autoload "ediff" 890739 t nil)) कोई सुझाव?

— भतीजे

Answer 3

नहीं है ztree: Melpa से उपलब्ध पैकेज है जो पुनरावर्ती निर्देशिका वृक्ष तुलना का समर्थन करता है M-x ztree-diffजीएनयू का उपयोग कर diffउपयोगिताओं इसी फ़ाइलों की तुलना करने के।

यदि आप पैकेज use-packageको स्थापित और कॉन्फ़िगर करने के लिए उपयोग करते हैं, तो ztreeअपने में जोड़ें .emacs:

;; ** recursive directory tree comparison: M-x ztree-diff
(use-package ztree
  :ensure t) ; needs GNU diff utility