Emacs: espressione regolare sostituzione di cambiare caso

Question

Ogni tanto un po 'voglio sostituire tutte le istanze di valori come:

<BarFoo> 

con

<barfoo> 

cioè non un'espressione regolare sostituzione di tutte le cose parentesi angolari all'interno con il suo equivalente minuscolo.

Qualcuno ha un bel frammento di Lisp che fa questo? È lecito ritenere che si tratti solo di valori ASCII. Punti bonus per tutto ciò che è abbastanza generico da assumere un'espressione regolare completa e non si limita a gestire l'esempio delle parentesi angolari. Ancora più punti bonus per una risposta che utilizza solo M-x query-replace-regexp.

Grazie,

Dom

Answer 1

Prova M-x query-replace-regexp con "<\([^>]+\)>" come la stringa di ricerca e "<\,(downcase \1)>" come la sostituzione.

Questo dovrebbe funzionare per Emacs 22 e versioni successive, vedere questo Steve Yegge blog post per ulteriori dettagli su come le espressioni Lisp possono essere utilizzate nella stringa di sostituzione.

Per le versioni precedenti di Emacs si potrebbe provare qualcosa di simile:

(defun tags-to-lower-case() 
    (interactive) 
    (save-excursion 
    (goto-char (point-min)) 
    (while (re-search-forward "<[^>]+>" nil t) 
     (replace-match (downcase (match-string 0)) t))))