Rearrange nc hosts list.

[ian-dotfiles.git] / files / _.vtwmrc

diff --git a/files/_.vtwmrc b/files/_.vtwmrc
index ad719fbd79b74f5dac693b585d47dc62f4a371e1..39429a878f5301e9702242ab3206c15c3739ca3c 100644 (file)
--- a/files/_.vtwmrc
+++ b/files/_.vtwmrc
@@ -263,7 +263,8 @@ menu "programs"
        "Emacs restart" !".configs/startemacs"
        "Emacs left"    !"emacs -geometry 79x40+0+35 &"
        ""              f.nop
-       "IRC chiark" !"xterm -geometry 80x80+240+95 -e irc Diziet localhost &"
+ "IRC Diziet" !"xterm -geometry 80x70+240-0 -T 'IRC Diziet' -e irc Diziet localhost &"
+ "IRC iwj" !"xterm -geometry 80x70+340-0 -T 'IRC iwj' -e irc iwj cam.irc.devel.ncipher.com &"
        ""              f.nop
        "Trn"           !"xterm -geometry 80x45+240+95 -e trn &"
        "Archie"        !"xarchie &"
@@ -281,18 +282,45 @@ menu "programs"
 Menu "hosts"
 {
         "Hosts"                f.title
- "Dounreay"    !"remoteshell dounreay &"
- "Dover"       !"remoteshell -rrsh dover &"
- "Titanic"     !"xterm-CT 'titanic rlogin' -e rlogin titanic &"
- "Belgrano"    !"xterm-CT 'belgrano ssh' -e ssh belgrano &"
+@@-
+       sub host {
+               my ($x,$usex,$rsh) = @_;
+               $x =~ m/^(.)(.*)$/;
+               my ($y) = (uc $1).$2;
+               my ($rlss) = $rsh ? 'rlogin' : 'ssh';
+               return " \"$y\"\t\t!\"".
+ ($usex ? "remoteshell ".($rsh?'-rrsh ':'')."$x" :
+       "xterm-CT '$x $rlss' -e $rlss $x"). "\t&\"";
+       }
+@@
+
+@@? $ncipher ?@@
+@@-
+       sub host_nc {
+               my ($x,$h,$rsh) = @_;
+               &host($x, $ncipher eq $h, $rsh);
+       }
+@@
+@@ &host_nc(   'dover',        'cam',  1)      @@
  ""            f.nop
- "Jura"                !"remoteshell jura &"
- "Islay"       !"remoteshell -rrsh islay &"
- "Keynes"      !"remoteshell -rrsh keynes &"
- "Scarp"       !"remoteshell -rrsh scarp &"
- "Fowey"       !"remoteshell -rrsh fowey &"
- "Ludlow"      !"remoteshell -rrsh ludlow &"
- "Greenock"    !"remoteshell -rrsh greenock &"
+@@ &host_nc(   'dounreay',     'cam',  0)      @@
+@@ &host(      'titanic',      0,      1)      @@
+@@ &host(      'belgrano',     0,      0)      @@
+ ""            f.nop
+@@ &host_nc(   'pell',         'bos',  0)      @@
+ ""            f.nop
+@@ &host_nc(   'jura',         'cam',  0)      @@
+@@ &host_nc(   'islay',        'cam',  0)      @@
+@@ &host_nc(   'keynes',       'cam',  1)      @@
+@@ &host_nc(   'scarp',        'cam',  1)      @@
+@@ &host_nc(   'fowey',        'cam',  1)      @@
+@@ &host_nc(   'ludlow',       'cam',  1)      @@
+@@ &host_nc(   'greenock',     'cam',  1)      @@
+ ""            f.nop
+@@ &host_nc(   'viking',       'bos',  0)      @@
+@@ &host_nc(   'arrakis',      'bos',  0)      @@
+@@;
+
  ""            f.nop
  "Relativity"  !"xterm-CT 'Relativity' -e ssh -p24 r-ian@relativity.dynamic.greenend.org.uk &"
  ""            f.nop