From b1495f5b6abd64bf253e616a65bbd2221a0eb0f6 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sun, 14 Jul 2002 22:11:26 +0000
Subject: [PATCH] lsd

---
 autotitle/autotitle.c             | 11 +++++------
 config                            |  7 ++++++-
 files/_.emacs                     |  2 +-
 files/_.ssh_authorized__keys      |  1 +
 files/personal_scripts_bin_xloadt |  2 +-
 perms                             |  3 +++
 6 files changed, 17 insertions(+), 9 deletions(-)
 create mode 100644 files/_.ssh_authorized__keys

diff --git a/autotitle/autotitle.c b/autotitle/autotitle.c
index 9858fa3..3ccf235 100644
--- a/autotitle/autotitle.c
+++ b/autotitle/autotitle.c
@@ -69,7 +69,6 @@
 #include <unistd.h>
 #include <math.h>
 #include <ctype.h>
-#include <values.h>
 #ifndef PATH_MAX
 #define PATH_MAX 1024
 #endif
@@ -83,9 +82,9 @@
 #define DEFAULTTITLE "%h - %d. %Y.[U..[U..[D./..%X.L]..R]./.. %U%?G(%G)%!"
 #define DEFAULTICON "%h: %d2. %Y.[U..[U..[D./..%X.L]..R]./.."
 
-#define BUILDMAX 1000
-#define SMALLBUFMAX 20
-#define MAXSCALED 15
+#define BUILDMAX 10000
+#define SMALLBUFMAX 100
+#define MAXSCALED 50
 
 #ifndef __HPUX
 static char lto_buf[20];
@@ -226,7 +225,7 @@ void mkstring(initialstring,finalstring,controlenv,controlstring)
     case 'x': geom_force(&wg); add_number(wg.x); break;
     case 'X': geom_force(&rg); add_scaled(wg.x,rg.w-wg.w+1); break;
 #else
-    case 'X': case 'Y': add_scaled(MAXINT,0); /* skip scaled parameter */
+    case 'X': case 'Y': add_scaled(INT_MAX,0); /* skip scaled parameter */
     case 'x': case 'y': break;
 #endif /* !NOXWINDOWS */
     case 'd': add_currentdir(); break;
@@ -331,7 +330,7 @@ void add_scaled(num,denom)
   }
   if (*cp) cp++; /* skip the '/' */
   sd= scaledstr_chop();
-  if (num==MAXINT && denom==0) return;
+  if (num==INT_MAX && denom==0) return;
   v= denom? (num/(double)denom) : -1;
   if (v<0 || v>1) {
     add_string(sd);
diff --git a/config b/config
index 34a0e56..34c9607 100644
--- a/config
+++ b/config
@@ -1,5 +1,6 @@
 @@-
-chomp($nodename= `uname -n`); $? and die 'uname $?';
+chomp($nodename= `uname -n`); $? and die "uname $?";
+chomp($username= `whoami`); $? and die "whoami $?";
 
 @he= gethostbyname $nodename or die "gethostbyname $nodename ?";
 @hostnames= ($he[0], split /\s/, $he[1]);
@@ -21,6 +22,10 @@ if ($uname =~ m/^Linux$/) {
     m/^\d+\.\d+/ or die "$_ ?";
     $platform= "SunOS$&";
     $xbindir= '/usr/openwin/bin';
+} elsif ($uname =~ m/^FreeBSD/) {
+    chomp($_= `uname -r`); $? and die "platform $?";
+    m/^(\d+\.\d+)\-/ or die "$_ ?";
+    $platform= "FreeBSD-$1";
 } elsif ($uname =~ m/^HP\-UX/) {
     chomp($_= `uname -r`); $? and die "platform $?";
     m/^B\.(\d+\.\d+)$/ or die "$_ ?";
diff --git a/files/_.emacs b/files/_.emacs
index b002057..83b8e14 100644
--- a/files/_.emacs
+++ b/files/_.emacs
@@ -1,6 +1,6 @@
 ; Ian Jackson's Emacs startup file - runs ~ian/emacs/ian.el
 ;
-(setq load-path (append '("~iwj/emacs") load-path))
+(setq load-path (append '("~@@$username@@/emacs") load-path))
 (load-library "ian")
 (load-library "ijackson")
 (menu-bar-mode -1)
diff --git a/files/_.ssh_authorized__keys b/files/_.ssh_authorized__keys
new file mode 100644
index 0000000..3375033
--- /dev/null
+++ b/files/_.ssh_authorized__keys
@@ -0,0 +1 @@
+1024 33 117385851636815625794682045272670348226429528350378659864768391051250351542749258151009620656468243493947746468877869045185455056624320499676925131648425561713585082385383007825961112176954557838606529291118468652728777501137394895737487546704720843287182661898072134181879704222022988749029714875365204438999 ian@anarres
diff --git a/files/personal_scripts_bin_xloadt b/files/personal_scripts_bin_xloadt
index a55f2a8..b81aa60 100755
--- a/files/personal_scripts_bin_xloadt
+++ b/files/personal_scripts_bin_xloadt
@@ -7,7 +7,7 @@ xload -geometry 120x120+@@
 
 @hostlist= ($ncipher eq 'bos' ? qw(viking dover pell arrakis) :
             $ncipher eq 'cam' ? qw(jura islay dover dounreay marple belgrano) :
-            qw(davenant anarres));
+            qw(davenant anarres lsd));
 for ($i=0; $i<@hostlist; $i++) { last if $hostlist[$i] eq $nodename; }
 if ($i>=@hostlist) {
     print STDERR "!! nodename $nodename not in $ncipher list @hostlist\n";
diff --git a/perms b/perms
index 67a5bdf..66dfa83 100644
--- a/perms
+++ b/perms
@@ -22,5 +22,8 @@ junk/					/
 .w3m/					2770
 private/				2770
 
+.ssh/					2755
+.ssh/authorized_keys			644
+
 bitmap/root -> fischer
 .
-- 
2.30.2