Wanderlust 里显示 diff 高亮

LdBeth · 2023 年1 月 9 日 23:19

有人刚在 wl 邮件列表里问怎给邮件发的 patch 高亮，我写了个简单的扩展。

LdBeth/InfernoEmacs/blob/master/core/mime-diff.el

;; -*- lexical-binding:t -*-
;;; Add diff patch highlighting to mime-view
(require 'diff-mode)
(eval-when-compile (require 'mime-view))

(defun mime-display-font-lock-diff ()
  (let ((font-lock-defaults diff-font-lock-defaults)
        (diff-buffer-type 'git))
    (font-lock-ensure)))

(defun mime-display-conditional-enable-diff ()
  (goto-char (point-min))
  (while (re-search-forward
          "^--- .*\n\\+\\+\\+ .*\n\\([-+ ].*\n\\|@@ .* @@.*\n\\)+" nil t)
    (save-restriction
      (narrow-to-region (match-beginning 0) (match-end 0))
      (mime-display-font-lock-diff)
      (goto-char (point-max)))))

(add-hook 'mime-display-text/plain-hook #'mime-display-conditional-enable-diff)

This file has been truncated. show original

seagle0128 · 2023 年1 月 10 日 07:20

这样在emacs中读邮件就舒服多了