head	1.1;
access;
symbols
	fourth_edition:1.1;
locks
	grog:1.1; strict;
comment	@# @;


1.1
date	98.02.03.02.52.34;	author grog;	state Exp;
branches;
next	;


desc
@Emacs commands to turn .mm files into a semblance of html
@


1.1
log
@Initial revision
@
text
@(query-replace-regexp "\\\\fI\\([^\\\\]+\\)\\\\f[RP]" "<i>\\1</i>" nil)
(query-replace-regexp "\\\\f(CW\\([^\\\\]+\\)\\\\f[RP]" "<tt>\\1</tt>" nil)
(query-replace-regexp "\\\\|" "" nil)
(query-replace-regexp "\\\\(em" "--" nil)
(query-replace-regexp "\\\\f(CB\\([^\\\\]+\\)\\\\f[RP]" "<tt><b>\\1</b></tt>" nil)
(query-replace-regexp "\\.H2 \\(.*\\)" "<h2>\\1</h2>" nil)
(query-replace-regexp "\\.P" "<p>" nil)
(query-replace-regexp "\\.H3 \\(.*\\)" "<h3>\\1</h3>" nil)
(query-replace-regexp "\\\\fI" "<i>" nil)
(query-replace-regexp "\\.Ls B" "<ul>" nil)
(query-replace-regexp "\\.LI" "<li>" nil)
(query-replace-regexp "\\.Le" "</li></ul>" nil)
(query-replace-regexp "\\.Dx" "<tt><p>" nil)
(query-replace-regexp "\\.De" "</tt><p>" nil)
; Remove <> from mail IDs?@
