Hello Kirk
On Sat, 13 Jan 2001 10:47:51 +0100, Kirk McElhearn wrote:
> Does anyone have an idea how I can add line numbers to a document, in the
> following manner: this is a long poem, and I would like to have a number
> every 5 lines. I can't use the built-in line numbers, since I want to
> export this to HTML.
Below is a macro which adds line numbers at the top of every 5 lines of
the selected text in the following manner:
Parfum exotique
Quand, les deux yeux fermés, en un soir chaud d'automne,
Je respire l'odeur de ton sein chaleureux,
Je vois se dérouler des rivages heureux
Qu'éblouissent les feux d'un soleil monotone;
[5]Une île paresseuse où la nature donne
Des arbres singuliers et des fruits savoureux;
Des hommes dont le corps est mince et vigoureux,
Et des femmes dont l'oeil par sa franchise étonne.
Guidé par ton odeur vers de charmants climats,
[10]Je vois un port rempli de voiles et de mâts
Encor tout fatigués par la vague marine,
Pendant que le parfum des verts tamariniers,
Qui circule dans l'air et m'enfle la narine,
Se mêle dans mon âme au chant des mariniers.
(Ch. Baudelaire)
I'm almost sure that this is NOT what you want. I don't know in what
format you wish to have line numbers. So please modify the macro as you like.
// add numbers to every 5 lines
if(SelectStart==SelectEnd) goto no_selection
Find All "^[^\r\t]" "os-SA-w-Gg"
n=NumFound; ndiv=n div 5
s->qpush(starts)
loop:
if(!ndiv) exit
SetSelect(s[ndiv*5],s[ndiv*5])
clipboard="["+ndiv*5+"]"
MacroPaste
ndiv=ndiv-1; goto loop
no_selection:
:1 'Please select some lines%l-\rbefore executing the macro.'
// end of macro
Sorry for the example in French. I don't have E-text of English poem.
Yusuke KINOSHITA
This archive was generated by hypermail 2b29 : Thu Jan 18 2001 - 23:01:54 AEDT