5

dired バッファでマークしたファイルに対して ediff を実行する次の関数があります。

(defun mkm/ediff-marked-pair ()
  "Run ediff-files on a pair of files marked in dired buffer"
  (interactive)
  (let ((marked-files (dired-get-marked-files nil)))
    (if (not (= (length marked-files) 2))
    (message "mark exactly 2 files")
      (ediff-files (nth 0 marked-files)
           (nth 1 marked-files)))))

同じディレクトリ内のファイルでのみ機能します。別のdiredディレクトリでマークしたファイルで機能させるにはどうすればよいですか?

4

3 に答える 3

3

mkmの答えを少し増やします。2 つのマークされたファイルが dired バッファーにまたがる可能性があることに加えて、マークされたファイルが 0 個または 1 個の場合を処理します。0 のマークされたファイルは、カーソルの下のファイルをファイル A として使用し、比較するファイルを求めるプロンプトを表示します。1 つのマークされたファイルは、マークされたファイルをファイル A として使用し、比較するファイルを求めるプロンプトを表示します。ポイントの下のファイルは、プロンプトでデフォルトとして使用されます。これを = にバインドしました。 

(defun mkm/ediff-marked-pair ()
   "Run ediff-files on a pair of files marked in dired buffer"
   (interactive)
   (let* ((marked-files (dired-get-marked-files nil nil))
          (other-win (get-window-with-predicate
                      (lambda (window)
                        (with-current-buffer (window-buffer window)
                          (and (not (eq window (selected-window)))
                               (eq major-mode 'dired-mode))))))
          (other-marked-files (and other-win
                                   (with-current-buffer (window-buffer other-win)
                                     (dired-get-marked-files nil)))))
     (cond ((= (length marked-files) 2)
            (ediff-files (nth 0 marked-files)
                         (nth 1 marked-files)))
           ((and (= (length marked-files) 1)
                 (= (length other-marked-files) 1))
            (ediff-files (nth 0 marked-files)
                         (nth 0 other-marked-files)))
           ((= (length marked-files) 1)
            (let ((single-file (nth 0 marked-files))) 
              (ediff-files single-file
                           (read-file-name
                            (format "Diff %s with: " single-file)
                            nil (m (if (string= single-file (dired-get-filename))
                                       nil
                                     (dired-get-filename))) t))))
           (t (error "mark no more than 2 files")))))
于 2014-09-20T02:31:07.120 に答える
2

解決策は次のとおりです。

(defvar mkm/dired-file-1)

(defun mkm/ediff-push ()
  (interactive)
  (setq mkm/dired-file-1 (dired-get-filename)))
(defun mkm/ediff-pop ()
  (interactive)
  (ediff-files mkm/dired-file-1 (dired-get-filename)))
(add-hook 'dired-mode-hook
      (lambda()
            (define-key dired-mode-map (kbd "C-c u") 'mkm/ediff-push)
            (define-key dired-mode-map (kbd "C-c o") 'mkm/ediff-pop)))
于 2013-08-08T09:19:31.747 に答える