Làm thế nào tôi có thể hình dung trạng thái VCS trong dired?

Tôi đặc biệt quan tâm git, nhưng tôi tưởng tượng đây là một nơi tốt để sử dụng vc. Tôi muốn mô phỏng tích hợp git của Atom với trình thám hiểm tệp của nó:

Làm thế nào tôi có thể nhận được một cái gì đó như thế này trong dired? Tôi hiểu có những công cụ khác để mô phỏng cấu trúc cây thích hợp, nhưng i/RETquy trình làm việc bình thường sẽ hoạt động tốt.

Bạn có thể cài đặt diff-hl từ GNU ELPA và thêm phần sau vào tệp init của bạn:

(add-hook 'dired-mode-hook 'diff-hl-dired-mode)

Nhưng nó không tô màu các dòng. Thay vào đó, nó hiển thị trạng thái ở rìa (hoặc lề, nếu diff-hl-margin-modeđược bật). Trông như thế này:

Đây là một bộ elisp 'chưa hoàn chỉnh' sẽ cung cấp bộ tính năng. Việc thực hiện một danh sách đầy đủ được để lại dưới dạng một bài tập (và / hoặc như một gói đầy đủ để phát triển dired-vc(cho phép thời gian)) cho người đọc.

Các bước để hoàn thành dưới đây với thông tin còn thiếu:

1. Có được một danh sách tất cả các biểu tượng được trả về bởi vc-state
2. Xác định khuôn mặt ( defface) cho mỗi biểu tượng bị thiếu
3. Điều chỉnh condkhối để bao gồm tất cả các biểu tượng

(defun dired-fontify-vc ()
  (while (not (eobp))
    (let* ((inhibit-read-only t)
           (file (ignore-errors (file-name-nondirectory
                                 (dired-get-filename))))
           (state (ignore-errors (vc-state file))))
      (when (and file
                 state)
        ; (message "%s>%s" file state)
        (let ((beg (dired-move-to-filename))
              (end (dired-move-to-end-of-filename)))
          (cond
           ((eq state 'edited)
            (add-text-properties beg end '(font-lock-face edited-face)))
           ((eq state 'up-to-date)
            (add-text-properties beg end '(font-lock-face update-face)))))
        ))
    (dired-next-line 1)))

(add-hook 'dired-after-readin-hook 'dired-fontify-vc)

(defface edited-face
  '((t :foreground "orange"))
  "Foreground color for edited files")
(defface update-face
  '((t :foreground "white"))
  "Foreground color for up-to-date files.")

Không thực sự direddựa trên cơ sở, nhưng nó gần hơn với ảnh chụp màn hình Atom được cung cấp. Kể từ PR # 93 , neotreecó thể hiển thị trạng thái VCS như một phần của danh sách:

Đây là cấu hình sẽ ảnh hưởng đến ảnh chụp màn hình ở trên:

(setq neo-vc-integration '(char face))

Sự hiện diện của charkiểm soát ?và Emà bạn nhìn thấy. Sự hiện diện của faceđiều khiển làm nổi bật.