Re: слишком умный supercite
On Wed, 27 Nov 2002, deskpot(a)myrealbox.com wrote:
SO> У меня вопрос по поводу supercite. Можно ли его как-то
SO> настроить, дабы он не был слишком умным и не
пытался
SO> ужать текст письма?
Как именно?
Ну у меня при ответе на письмо, содержащее какой-либо код или листинг
программы,- из кода получается полнейшая мешанина :(
Ну вот пример из RU.PERL:
===========================================================================
Прежде чем подводить базу я позволил себе еще раз провести бенчмарки.
Сорри за длинный постинг. Зато достаточно полный.
====================== test.pl ======================= #!/usr/bin/perl
-w use strict; use Benchmark;
my ＠words = (qw(a b c a b c c d ftg g htg ftg tgtg gg h rg tg t t tg
yg))
x 12000;
my ＠swords = sort ＠words;
timethese -10, {
'foreach' => sub {
my %w;
foreach (＠words) {
$w{$_}++;
}
},
'oneline' => sub {
my %w;
$w{$_}++ foreach ＠words;
},
===========================================================================
И что получается:
===========================================================================
Andrey> Прежде чем подводить базу я позволил себе еще раз провести
Andrey> бенчмарки. Сорри за длинный постинг. Зато достаточно полный.
Andrey> ====================== test.pl =======================
Andrey> #!/usr/bin/perl -w use strict; use Benchmark;
Andrey> my ＠words = (qw(a b c a b c c d ftg g htg ftg tgtg gg h rg tg t t
Andrey> tg yg)) x 12000;
Andrey> my ＠swords = sort ＠words;
Andrey> timethese -10, { 'foreach' => sub { my %w; foreach (＠words) {
Andrey> $w{$_}++;
Andrey> }
Andrey> }, 'oneline' => sub { my %w; $w{$_}++
Andrey> foreach ＠words; }, 'void map' => sub { my %w; map $w{$_}++,
Andrey> ＠words; 1; }, 'map' => sub { my %w; my ＠arr = map $w{$_}++,
Andrey> ＠words; }, 'void block map' => sub { my %w; map { $w{$_}++ }
Andrey> ＠words; 1; }, 'block map' => sub { my %w; my ＠arr = map { $w{$_}++
Andrey> } ＠words; }, 'void grep' => sub { my %w; grep $w{$_}++, ＠words; 1;
Andrey> }, 'grep' => sub { my %w; my ＠arr = grep $w{$_}++, ＠words; },
Andrey> 'void block grep' => sub { my %w; grep { $w{$_}++ } ＠words; 1; },
Andrey> 'block grep' => sub { my %w; my ＠arr = grep { $w{$_}++ } ＠words;
Andrey> }, 'sorted foreach' => sub { my %w; foreach (＠swords) { $w{$_}++;
Andrey> }
===========================================================================
Мои настройки:
(defun so-sc-setup ()
(autoload 'sc-cite-original "supercite" nil t)
(add-hook 'sc-load-hook
'(lambda()
(sc-setup-filladapt)
(sc-auto-fill-region-p nil)))
(setq sc-nested-citation-p nil
sc-preferred-header-style 0
sc-rewrite-header-list '((so-sc-header))
sc-citation-leader " "
sc-cite-blank-lines-p nil
sc-fixup-whitespace-p nil
sc-confirm-always-p nil
sc-preferred-attribution-list
'("sc-consult" "x-attribution" "firstname"
"initials" "sc-lastchoice")
sc-attrib-selection-list
'(("sc-from-address"
(("(a)isd\\.dp\\.ua$" . "")
("(a)softcomputer\\.com$" . "")
(".*" . (so-sc-consult-bbdb))))
("newsgroups"
(("unix" . (sc-mail-field "sc-firstname"))
("ru.gnu" . (sc-mail-field "sc-firstname"))
("pvt.dragon" . (sc-mail-field "sc-firstname"))
(".*" . (sc-mail-field "sc-initials")))))))
--
ISD Configuration Management Team
solo(a)isd.dp.ua 2:464/227＠fidonet ICQ:74383178