Как открыть файл резервной копии, созданный backup-each-save.el в dired, как dired-jump? - PullRequest
Новая
       7

Как открыть файл резервной копии, созданный backup-each-save.el в dired, как dired-jump?

0 голосов
/ 01 января 2019

Примечание: См. Мой ответ, прежде чем ответить на этот вопрос, потому что я ответил на этот вопрос первым.Но приветствуется другой способ или любое предложение.

Как открыть самый последний файл резервной копии, созданный backup-each-save.el в dired, например dired-jump?

1 Ответ

0 голосов
/ 01 января 2019

Вот алгоритм и код для него.

Алгоритм: 

 1. Get the backup directory of the file connected to current opening file buffer.
 2. Open the backup directory.
 3. In the dired buffer, go to end of the buffer.
 4. Search backward for the basename of opening file.

Код: 

(defun backup-each-save-dired-jump ()
  (interactive)
  (let* (
         (filename (buffer-file-name))
         (containing-dir (file-name-directory filename))
         (basename (file-name-nondirectory filename))
         (backup-container
          (format "%s/%s"
                  backup-each-save-mirror-location
                  containing-dir))
         )
    (when (file-exists-p backup-container)
      (find-file backup-container)
      (goto-char (point-max))
      (search-backward basename)
      )))
...