[Groff] Initials: Help appreciated

[Patrik Schindler]

Hello,

has anyone done a macro for initials yet?

I tried to do it inline to learn but I fail: The jumpback doesn't work  
for me. Even .sp -1v won't work. I get many warnings about "cannot  
adjust line" and I only see the initial (word) and two empty pages.

Last thing I don't know to handle is: How to determine when to reset  
the indent.


.\" Height of the initial in lines
.nr IH 2
.\" Set pointsize to a multiple of pointsize and spacing
.\" and add extra spacing
.sz \n(psu+\n(ssu*\n(IHu-\n(ssu
Lorem
.\" Set indent to the width of the inital,
.\" add 2n extra space afterwards
.in +\w'Lorem'+2n
.\" Jump back one line of the current (big) pointsize
\v'-\n(psu'
.\" reset pointsize so text can continue
.sz
ipsum dolor sit amet, consectetur adipiscing elit. Ut dapibus velit non
neque consectetur adipiscing. Sed accumsan, augue in eleifend  
consequat, tellus
neque pulvinar libero, accumsan vehicula mauris ante sit amet tellus.  
Aenean
tincidunt ultrices diam. Mauris ut tellus in lorem auctor dignissim.  
Morbi
lobortis rhoncus cursus. Pellentesque habitant morbi tristique  
senectus et
netus et malesuada fames ac turpis egestas.

Call with groff -me -ma4.


Any help is greatly appreciated!

:wq! PoC