1#
2# $Id: lyx.perl,v 1.1 1999/06/10 23:57:12 RRM Exp $
3# lyx.perl
4#   Ross Moore <ross@maths.mq.edu.au> 10-JUN-99
5#
6# Extension to LaTeX2HTML to support macros used by lyx .
7#
8# Change Log:
9# ===========
10#
11# $Log: lyx.perl,v $
12# Revision 1.1  1999/06/10 23:57:12  RRM
13# 	New file, to support Lyx idiosyncracies
14#
15#  --  defines \url to understand \url{....} or \url[...]{...}
16#  	else \url parses like \verb, so recognises  \url|....|
17#
18
19package main;
20
21sub do_lyx_url {
22    local($_) = @_;
23    my ($delim, $url);
24    if (s/^\s*(\S)/$delim=$1;''/es) {
25	if ($delim =~ /[\{\[]/) { &do_cmd_htmlurl(@_) }
26	else {
27	    s/^.+?\Q$delim\E/$url=$`;''/es;
28	    join('','<TT>', &make_href($url,$url), '</TT>', $_);
29	}
30    } else { &do_cmd_htmlurl(@_) }
31}
32
33
34# override the default \url to catch lyx syntax
35
36sub do_cmd_url { &do_lyx_url(@_) }
37
381; 		# Must be last line
39