* Regular expression - replace lower case to upper case
@ 2002-11-01 4:33 Rod Farmer
2002-11-01 2:32 ` Michael Slass
2002-11-01 2:33 ` David Forrest
0 siblings, 2 replies; 5+ messages in thread
From: Rod Farmer @ 2002-11-01 4:33 UTC (permalink / raw)
Hi,
I've been looking through the manuals and can't seem to find how to
replace all occurences of HTML tags in lower case, ie <body> with upper case
<BODY> as seems to be the W3C standards for 4.01
I was going to use M-x % regexp RET string RET but what I really want is
something like the s/foo/bar/g where
bar can actually be a reference back to the string that has been
matched.....
thanks heaps
Rod
^ permalink raw reply [flat|nested] 5+ messages in thread* Re: Regular expression - replace lower case to upper case
2002-11-01 4:33 Regular expression - replace lower case to upper case Rod Farmer
@ 2002-11-01 2:32 ` Michael Slass
2002-11-01 19:34 ` Reiner Steib
2002-11-01 2:33 ` David Forrest
1 sibling, 1 reply; 5+ messages in thread
From: Michael Slass @ 2002-11-01 2:32 UTC (permalink / raw)
"Rod Farmer" <raf@cs.mu.oz.au> writes:
>Hi,
> I've been looking through the manuals and can't seem to find how to
>replace all occurences of HTML tags in lower case, ie <body> with upper case
><BODY> as seems to be the W3C standards for 4.01
>
>I was going to use M-x % regexp RET string RET but what I really want is
>something like the s/foo/bar/g where
>bar can actually be a reference back to the string that has been
>matched.....
>
>
>thanks heaps
>
>
>Rod
>
>
Try this:
(defun upcase-html-tags (buf)
(interactive "*bUpcase html tags in buffer: ")
(save-excursion
(set-buffer buf)
(goto-char (point-min))
(let ((counter 0))
(while (re-search-forward "<\\(\\w+\\)>" nil t)
(upcase-region (match-beginning 1) (match-end 1))
(setq counter (1+ counter)))
(message "upcased %d html tags" counter))))
--
Mike Slass
^ permalink raw reply [flat|nested] 5+ messages in thread* Re: Regular expression - replace lower case to upper case
2002-11-01 2:32 ` Michael Slass
@ 2002-11-01 19:34 ` Reiner Steib
2002-11-01 21:49 ` Michael Slass
0 siblings, 1 reply; 5+ messages in thread
From: Reiner Steib @ 2002-11-01 19:34 UTC (permalink / raw)
On Fri, Nov 01 2002, Michael Slass wrote:
> Try this:
>
> (defun upcase-html-tags (buf)
> (interactive "*bUpcase html tags in buffer: ")
[...]
> (message "upcased %d html tags" counter))))
Nice. I changed your function slighly: include closing tags (</foo>),
always use current buffer. Because I prefer lowercase tags, you need
do give a prefix argument, if you want uppercase tags:
M-x rs-html-downcase-or-upcase-tags RET --> downcase buffer
C-u M-x rs-html-downcase-or-upcase-tags RET --> upcase buffer
(defun rs-html-downcase-or-upcase-tags (&optional upcase)
"Downcase html-tags in curent buffer. If given a prefix, upcase tags."
(interactive "P")
(save-excursion
(goto-char (point-min))
(let ((counter 0))
(while (re-search-forward "</?\\(\\w+\\)>" nil t)
(funcall
(if upcase 'upcase-region 'downcase-region)
(match-beginning 1) (match-end 1))
(setq counter (1+ counter)))
(message "%scased %d html-tags" (if upcase "up" "down") counter))))
Bye, Reiner.
--
,,,
(o o)
---ooO-(_)-Ooo--- PGP key available via WWW http://rsteib.home.pages.de/
^ permalink raw reply [flat|nested] 5+ messages in thread* Re: Regular expression - replace lower case to upper case
2002-11-01 19:34 ` Reiner Steib
@ 2002-11-01 21:49 ` Michael Slass
0 siblings, 0 replies; 5+ messages in thread
From: Michael Slass @ 2002-11-01 21:49 UTC (permalink / raw)
Reiner Steib <4uce.02.r.steib@gmx.net> writes:
>Nice. I changed your function slighly: include closing tags (</foo>),
>always use current buffer. Because I prefer lowercase tags, you need
>do give a prefix argument, if you want uppercase tags:
>
>M-x rs-html-downcase-or-upcase-tags RET --> downcase buffer
>C-u M-x rs-html-downcase-or-upcase-tags RET --> upcase buffer
>
That's even better -- the beauty of free software, you can season it
to taste.
Regards,
--
Mike Slass
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Regular expression - replace lower case to upper case
2002-11-01 4:33 Regular expression - replace lower case to upper case Rod Farmer
2002-11-01 2:32 ` Michael Slass
@ 2002-11-01 2:33 ` David Forrest
1 sibling, 0 replies; 5+ messages in thread
From: David Forrest @ 2002-11-01 2:33 UTC (permalink / raw)
On Fri, 1 Nov 2002, Rod Farmer wrote:
> Hi,
> I've been looking through the manuals and can't seem to find how to
> replace all occurences of HTML tags in lower case, ie <body> with upper case
> <BODY> as seems to be the W3C standards for 4.01
>
> I was going to use M-x % regexp RET string RET but what I really want is
> something like the s/foo/bar/g where
> bar can actually be a reference back to the string that has been
> matched.....
Well, you will probably need to write a function. regexps CAN refer back
to parts of the matched string (using \(html|body\) in the search part,
and \1 in the replace part), but they won't be able to uppercase it.
Dave
--
Dave Forrest (434)924-3954w(111B) (804)642-0662h (804)695-2026p
drf5n@virginia.edu http://mug.sys.virginia.edu/~drf5n/
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2002-11-01 21:49 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2002-11-01 4:33 Regular expression - replace lower case to upper case Rod Farmer
2002-11-01 2:32 ` Michael Slass
2002-11-01 19:34 ` Reiner Steib
2002-11-01 21:49 ` Michael Slass
2002-11-01 2:33 ` David Forrest
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.