emacs: làm nổi bật biểu thức cân bằng (ví dụ: thẻ LaTeX)

Question

Điều gì sẽ là cách hay để làm cho Emacs đánh dấu một biểu thức có thể bao gồm những thứ như dấu ngoặc đơn cân bằng - ví dụ: cái gì đó như

\highlightthis{some \textit{text} here 
some more text 
done now} 

highlight-regex hoạt động độc đáo cho những thứ đơn giản, nhưng tôi gặp khó khăn thực viết một regex emacs nhận ngắt dòng, và dĩ nhiên là nó phù hợp cho đến khi khung đóng cửa đầu tiên.

(như một câu hỏi thứ:. Con trỏ đến bất kỳ gói mở rộng emacs cú pháp regex sẽ được nhiều đánh giá cao - Tôi gặp thời gian khá khó khăn với nó, và tôi là khá quen thuộc với regexes trong perl)

Sửa: Đối với mục đích cụ thể của tôi (tags LaTeX nổi bật trong một bộ đệm AUCTeX), tôi đã có thể có được điều này để làm việc bằng cách tùy biến một AUCTeX cụ thể biến font-latex-user-keyword-classes, có thêm một cái gì đó như thế này để custom-set-variables trong emacs:

'(font-latex-user-keyword-classes (quote (("mycommands" (("highlightthis" "{")) (:slant italic :foreground "red") command)))) 

Một giải pháp chung chung hơn sẽ cho đến khi được tốt đẹp để có mặc dù!

Answer 1

Bạn có thể sử dụng các chức năng hoạt động trên biểu thức s để làm việc với khu vực bạn muốn đánh dấu và sử dụng một trong các giải pháp được đề cập trên this question để thực sự đánh dấu nó.

Dưới đây là một ví dụ:

(defun my/highlight-function() 
    (interactive) 
    (save-excursion 
    (goto-char (point-min)) 
    (search-forward "\highlightthis") 
    (let ((end (scan-sexps (point) 1))) 
     (add-text-properties (point) end '(comment t face highlight))))) 

EDIT: Dưới đây là một ví dụ sử dụng một chức năng tương tự với hệ thống phông chữ khóa chuẩn Emacs', như được giải thích trong phần search-based fontification của the-lisp emacs dẫn sử dụng:

(defun my/highlight-function (bound) 
    (if (search-forward "\highlightthis" bound 'noerror) 
     (let ((begin (match-end 0)) 
      (end (scan-sexps (point) 1))) 
     (set-match-data (list begin end)) 
     t) 
    nil)) 
(add-hook 'LaTeX-mode-hook 
      (lambda() 
      (font-lock-add-keywords nil '(my/highlight-function))))