emacs - 在定义通用模式中将正则表达式匹配为关键字

Question

我正在尝试使用define-generic-mode为emacs编写一个新模式。我发现了一些教程，它们展示了如何添加关键字（作为字符串），然后将其突出显示。是否可以为 define-generic-mode 提供一个正则表达式，以便它可以突出显示与该关键字匹配的任何内容？

我想要一种模式，其中与 15/01/09 形式的日期匹配的任何内容都以不同的字体显示（最好带下划线，但我会接受不同的颜色）。

有任何想法吗？

罗宾

Answer 1

这是一个示例，define-generic-mode该示例设置正则表达式以使用自定义面孔对所有日期进行字体化，并选择一些属性作为示例：

(make-face 'my-date-face)
(set-face-attribute 'my-date-face nil :underline t)
(set-face-attribute 'my-date-face nil :family "times")
(set-face-attribute 'my-date-face nil :slant 'normal)
(set-face-attribute 'my-date-face nil :height '340)

(define-generic-mode my-date-mode
  nil
  nil 
  '(("\\([0-9]+/[0-9]+/[0-9]+\\)"
     (1 'my-date-face)))
  nil
  nil)

Oh, and obviously, set the mode by M-x my-date-mode. This can be done automatically via the auto-mode-alist (5th argument to define-generic-mode).

Answer 2

例如，使用 font-lock-add-keywords 以在主要模式下突出显示 FIXME、TODO 和 XXX 作为警告：

   (dolist (mode '(c-mode
    java-mode
    cperl-mode
    html-mode-hook
    css-mode-hook
    emacs-lisp-mode))
            (font-lock-add-keywords mode 
          '(("\\(XXX\\|FIXME\\|TODO\\)" 
             1 font-lock-warning-face prepend))))