% a bunch of empty space at the start of the frame.
\framed[offset=0mm,location=middle,strut=no,align=right,frame=off]{#1}
}
+
+% Define a \strikethrough command. For some reason, this does blue
+% strikethrough, sometime that still needs fixing.
+\definetextbackground
+ [strikethrough]
+ [location=text,
+ alternative=4,
+ background=,
+ frame=off]
+
+\def\setwidthof#1\to#2%
+{\bgroup
+\setbox\scratchbox\hbox{#1}%
+\expanded{\egroup\def\noexpand#2{\the\wd\scratchbox}}}