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中读邮件就舒服多了

LdBeth · 2023 年8 月 28 日 19:11

Update:

Ito san 在 Wanderlust 中直接整合这个功能了。

> >> (add-hook 'mime-display-text/plain-hook #'conditional-enable-diff)
> 
> > Thanks ldb, I will try this out and see if I am successful :)
> 
> You'r welcome.
> 
> I have just made an .el file that can just be `required' in .wl
> to support the diff highlighting, now also in text/x-diff,
> text/x-patch, application/x-patch attachment types, tested with
> my emacs-devel list archives and it seems work fine.

I've integrated the feature into the repository.  wl-highlight-body-too
and wl-highlight-text/diff variables control diff text highlighting.
Updating SEMI-EPG is required.

-- 
Kazuhiro Ito