* Leif Gregory <[EMAIL PROTECTED]> writes:
> Someone posted a new and improved Box Quote macro recently, which I've
> tried, but can't seem to get working. What I end up with is something
> like this.
> ,----- [ ]
> | Someone posted a new and improved Box Quote macro recently, which I've tried, but
> can't seem to get working. What I end up with is something like this. `-----
This is the latest version, which works well with recent betas. You
may want to customize your boxquotes by setting some variables...
--8<---------------cut here---------------start------------->8---
%REM=' bq - Paste as Boxquote
written by Carsten Thoenges, December 2002
June 2003 - use new features of v1.63 beta 9
'%-
%_TopAndTail="-----"%-
%_TopCorner=","%-
%_BottomCorner="`"%-
%_Side="| "%-
%_TitleFormat=" [ %CURSOR ]"%-
%-
%If:+%_FirstTime+=++:+%-
%___%_FirstTime="No"%-
%___%_TopCorner%_TopAndTail%_TitleFormat
%___%_Text="%Clipboard"%-
%___%SetPattRegExp='(?is)(\n)\z'%-
%___%If:"%RegExpMatch(%_Text)"="":"%_Text='%_Text
'"%-
%___%QInclude(bq)
%___%_BottomCorner%_TopAndTail%-
+:+%-
%___%SetPattRegExp='(?is)\A(.*?)\n(.*\n)\z'%-
%___%RegExpBlindMatch(%_Text)%-
%___%If:"%Subpatt(2)"<>"":"%-
%______%_Side%SubPatt(1)%-
%______%_Text='%Subpatt(2)'
%______%QInclude(bq)%-
%___":"%-
%______%_Side%_Text%-
%______%_FirstTime=''"%-
--8<---------------cut here---------------end--------------->8---
--
Carsten
________________________________________________________
Current beta is 1.63b10 | "Using TBBETA" information:
http://www.silverstones.com/thebat/TBUDLInfo.html
