Emacs: regular expression replacing to change case

RegexEmacsReplace

Regex 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

Attributions

All content for this solution is sourced from the original question on Stackoverflow.

The content on this page is licensed under the Attribution-ShareAlike 4.0 International (CC BY-SA 4.0) license.

Content TypeOriginal AuthorOriginal Content on Stackoverflow
QuestionDominic RodgerView Question on Stackoverflow
Solution 1 - RegexLuke GirvinView Answer on Stackoverflow
Solution 2 - RegexConfexianMJSView Answer on Stackoverflow
Solution 3 - RegexxerufView Answer on Stackoverflow