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