chiark / gitweb /
lsd
authorian <ian>
Sun, 14 Jul 2002 22:11:26 +0000 (22:11 +0000)
committerian <ian>
Sun, 14 Jul 2002 22:11:26 +0000 (22:11 +0000)
autotitle/autotitle.c
config
files/_.emacs
files/_.ssh_authorized__keys [new file with mode: 0644]
files/personal_scripts_bin_xloadt
perms

index 9858fa36bbeb758a9e9cef058879ddaf49724d3a..3ccf235eb885683eb0e28fb5d423633b3d615fbd 100644 (file)
@@ -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 34a0e56eadad4ff816b483e211b78fe084495049..34c9607734cbec74f2cc7a1f666321b8f81d03e6 100644 (file)
--- 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 "$_ ?";
index b002057f739bac89052483eddc3376568790601c..83b8e1431b0c871c07147cfe4248d08349a7adb6 100644 (file)
@@ -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 (file)
index 0000000..3375033
--- /dev/null
@@ -0,0 +1 @@
+1024 33 117385851636815625794682045272670348226429528350378659864768391051250351542749258151009620656468243493947746468877869045185455056624320499676925131648425561713585082385383007825961112176954557838606529291118468652728777501137394895737487546704720843287182661898072134181879704222022988749029714875365204438999 ian@anarres
index a55f2a840fd097213c5590c0fdb75d1b3d9f9bcb..b81aa60d15ccf0b9da4075f7aebf1894ae497a7f 100755 (executable)
@@ -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 67a5bdfa388a7af74e8123171df7f5e180fc8dba..66dfa839da8315e770e82123c8e0e8094fcb008c 100644 (file)
--- a/perms
+++ b/perms
@@ -22,5 +22,8 @@ junk/                                 /
 .w3m/                                  2770
 private/                               2770
 
+.ssh/                                  2755
+.ssh/authorized_keys                   644
+
 bitmap/root -> fischer
 .