Untrimmed Lines by Zed Lopez


This adds a single phrase:

the/an/-- untrimmed line number <number> in <text>... text

It returns the corresponding line but unlike the plain 'line number X in', it maintains and left or right whitespace.

Example: * Untrimmed Whitespace

"Untrimmed Whitespace"

Include Untrimmed Lines by Zed Lopez.

wabe-list is always
{ "And the wabe is the grass-plot round[line break]",
" a sun-dial, I suppose?' said Alice,[line break]",
"surprised at her own ingenuity.[line break]",
"[line break]",
"'Of course it is. It[']s called wabe,[line break]",
" you know, because it goes a long way[line break]",
"before it, and a long way behind it.'[line break]" }.

Lab is a room.

When play begins:
let wabe be "";
repeat with i running from 1 to the number of entries in wabe-list begin;
now wabe is "[wabe][entry i in wabe-list]";
end repeat;
say wabe;
say "[line break]--[line break][line break]";
repeat with i running from 1 to the number of lines in wabe begin;
say line number i in wabe;
say line break;
end repeat;
say "[line break]--[line break][line break]";
repeat with i running from 1 to the number of lines in wabe begin;
say untrimmed line number i in wabe;
say line break;
end repeat;