% 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}}}
+
+% Allow \emph{foo} (and {\emph foo}, but that's not really needed).
+\definealternativestyle[emph][\em][]
+
+% Put a bit of space betwen paragraphs, to make them easier to distinguish.
+\setupwhitespace[small]