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


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


desc
@Elisp macros to perform primitive roff to sgml conversion
@


1.1
log
@Initial revision
@
text
@(query-replace-regexp "^\\.H2 \"\\(.*\\)\"" "<sect><heading>\\1</heading>" nil)
(query-replace-regexp "^\\.H3 \"\\(.*\\)\"" "<sect1><heading>\\1</heading>" nil)
(query-replace-regexp "^\\.H4 \"\\(.*\\)\"" "<sect2><heading>\\1</heading>" nil)
(query-replace-regexp "^\\.P" "<p>" nil)
(query-replace-regexp "\\\\fI\\([^\\\\]+\\)\\\\fP\\\\|" "<i>\\1</i>" nil)
(query-replace-regexp "\\\\fI\\([^\\\\]+\\)\\\\fP" "<i>\\1</i>" nil)
(query-replace-regexp "^\\.X .*
" "" nil)
(query-replace-regexp "\\\\f(CW\\([^\\\\]+\\)\\\\fP" "<tt>\\1</tt>" nil)
(query-replace-regexp "\\\\f(CB\\([^\\\\]+\\)\\\\fP" "<b><tt>\\1</tt></b>" nil)
(query-replace-regexp "\\\\fB\\([^\\\\]+\\)\\\\fP" "<b>\\1</b>" nil)
(query-replace-regexp "\\\\(em" "--" nil)
(query-replace-regexp "^\\.Pn \\(.*\\)$" "<a name=\\1></a>" nil)
(query-replace-regexp "^\\.TB \"\\(.*\\)\"" "<caption align=top>\\1" nil)
(query-replace-regexp "^\\.Dx" "<pre><tt>" nil)
(query-replace-regexp "^\\.De" "</tt></pre>" nil)
(query-replace-regexp "^\\.Ls B" "<ul>" nil)
(query-replace-regexp "^\\.LI" "<li>" nil)
(query-replace-regexp "^\\.Le" "</ul>" nil)
@
