Emacs: regular expression replacing to change case
RegexEmacsReplaceRegex Problem Overview
Every once in a while I want to replace all instances of values like:
<BarFoo>
with
<barfoo>
i.e. do a regular expression replace of all things inside angle brackets with its lowercase equivalent.
Anyone got a nice snippet of Lisp that does this? It's safe to assume that we're dealing with just ASCII values. Bonus points for anything that is generic enough to take a full regular expression, and doesn't just handle the angle brackets example. Even more bonus points to an answer which just uses M-x query-replace-regexp
.
Thanks,
Dom
Regex Solutions
Solution 1 - Regex
Try M-x query-replace-regexp
with "<\([^>]+\)>"
as the search string and "<\,(downcase \1)>"
as the replacement.
This should work for Emacs 22 and later, see this Steve Yegge blog post for more details on how Lisp expressions can be used in the replacement string.
For earlier versions of Emacs you could try something like this:
(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))))
Solution 2 - Regex
I realize this question is ancient, but I just discovered how to do this in Emacs before version 22 (my version is 21.3.1) without the need for defining a custom Lisp function: use M-x query-replace-regexp-eval
(mentioned at the top of this Emacs wiki page) with <\([^>]+\)>
as the search string and (concat "<" (downcase \1) ">")
as the replacement.
This should work with any replacement string that can be defined as a concatenation of parts, including captured groups not modified by any function. For example:
<BarFoo baz="Quux">
can have just the tag name downcased:
<barfoo baz="Quux">
by using search string <\([A-Za-z]+\)\([^>]*\)>
and replacement (concat "<" (downcase \1) \2 ">")
(which also works on OP's example that looks like a tag with no attributes).
Solution 3 - Regex
When using evil, you can simply do :%s/<\([^>]+\)>/<\L\1>
\L
is responsible for lowercasing all following letters, this should also work for query-replace-regexp
.
I have not found documentation around Emacs for that, but it seems to match this list: https://www.boost.org/doc/libs/1_44_0/libs/regex/doc/html/boost_regex/format/perl_format.html