emacs: resaltar expresiones equilibradas (por ejemplo, etiquetas LaTeX)

Question

¿Cuál sería una buena manera de hacer que Emacs resalte una expresión que puede incluir elementos como corchetes equilibrados, p. algo así como

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

highlight-regex funciona muy bien para las cosas simples, pero tenía un verdadero problema de escribir una expresión regular emacs para reconocer los saltos de línea, y por supuesto que los partidos hasta el primer corchete de cierre.

(como una cuestión secundaria:. Punteros a cualquier paquete que se extienden emacs sintaxis de expresiones regulares sería muy apreciada - estoy teniendo tiempo muy duro con él, y estoy bastante familiarizado con expresiones regulares en Perl)

Editar: para mi propósito específico (etiquetas LaTeX destacando en un tampón de AUCTeX), yo era capaz de conseguir que esto funcione mediante la personalización de una variable específica AUCTeX font-latex-user-keyword-classes, que añade algo como esto para custom-set-variables en .emacs:

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

Una solución más genérica sería hasta que sea bueno tenerlo!

Answer 1

Puede usar funciones que actúen sobre s-expressions para trabajar con la región que desea resaltar, y use una de las soluciones mencionadas en this question para resaltarla.

Aquí es un ejemplo:

(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: Aquí está un ejemplo utilizando una función similar con el sistema de fuente de bloqueo estándar Emacs', como se explica en la sección search-based fontification de la emacs-lisp Manual:

(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))))