Subject: | Support for GNU screen window titles |
Hi,
Useful module, neatly encapsulates the business of setting terminal titles.
One little addition I think would be useful (at least for me) is support
for GNU Screen.
The following trivial patch adds support:
[davidp@supernova:~/Term]$ diff -u Title.pm.orig Title.pm
--- Title.pm.orig 2008-03-19 13:03:36.000000000 +0000
+++ Title.pm 2008-03-19 13:15:28.000000000 +0000
@@ -24,6 +24,10 @@
pre => "\033]2;",
post => "\007",
},
+ 'screen' => {
+ pre => "\ek",
+ post => "\e\\",
+ },
'mswin32' => sub {
my ($title, @optional) = @_;
my $c = Win32::Console->new();
Brief testing shows it works correctly, at least in the following screen
versions:
Screen version 3.09.10 (FAU) 4-Sep-01
Screen version 4.00.02 (FAU) 5-Dec-03
Screen version 4.00.03 (FAU) 23-Oct-06