Re: Put a Style in memory?

  • From: Harry Binswanger <hb@xxxxxxxxxxxx>
  • To: xywrite@xxxxxxxxxxxxx
  • Date: Thu, 16 Feb 2012 17:32:49 -0800

Thanks, Carl.

I already adapted the earlier code to my idiosyncratic uses, so I'll pass on this, but it's good to have in the repertoire.


Harry wrote:
Yep. Works great.

Here's a matched pair of routines: ADDSS (same as before, but tweaked 
to preserve original cursor position) and a new frame, DELSS, which 
deletes the empty SS commands embedded by ADDSS (leaving the 
corresponding US commands intact).


XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5addss}} Add dummy (empty) SS commands for orphan US comma
nds in current file (command(s) embedded at top of file) [CLD
][cr|lf]{002}[BX_]es 1[Q2_]{<}SX01,{<}CP{>}{>}[DX_][XP_][TF_]
[YD_]{<}SV02,{>}{<}LBa{>}[BX_]se  [w<]US[Q2_]{<}IF@not({<}ER{
{062}}){>}[DF_][BX_]se/f  [w>][Q2_][DF_]{<}SV03{>}[CR_]{<}SX50,{<
}CP{>}{>}[YD_][TF_][BX_]se "[w<]SS{<}PV03{>}"[Q2_]{<}IF{<}ER{
{062}}{>}{<}SX02,{<}IS02{>}+"{<}SS"+{<}IS03{>}+"{>}"{>}{<}EI{>}[J
M_]2.ReJuMP[Q2_]{<}GLa{>}{<}EI{>}{<}IF{<}VA|02{>}>0{>}[TF_]{<
}GT02{>}{<}EI{>}{<}SX50,{<}PV01{>}+{<}VA|02{>}{>}[JM_]2.ReJuM
P[Q2_][DO_][FF_]{<}PRDone{>}{002}[cr|lf][cr|lf]{{;5delss}} De
lete dummy (empty) SS commands from current file (leaves corr
esponding US commands intact) [CLD][cr|lf]{002}[BX_]es 1[Q2_]
{<}SX50,{<}CP{>}{>}[DX_][XP_][TF_]{<}LBa{>}[YD_][BX_]se "[w<]
SS"[Q2_]{<}IF@not({<}ER{>}){>}[BX_]seb  [w<][Q2_][DF_][BX_]se
  [w>][Q2_][DF_]{<}SV01{>}{<}IF","{238}{<}IS01{>}<0{>}[DN_]{<
}EI{>}{<}GLa{>}{<}EI{>}[JM_]2.ReJuMP[Q2_][DO_][FF_]{<}PRDone{
{062}}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE


--
Carl Distefano
cld@xxxxxxxxxx


Other related posts: