*** empty log message ***

2 files changed, 21 insertions, 0 deletions

diff --git a/contrib/nogaps.el b/contrib/nogaps.el
new file mode 100644
index 0000000..a38afcc
--- /dev/null
+++ b/contrib/nogaps.el
@@ -0,0 +1,7 @@
+(require 'cl)
+
+(defun ratpoison-nogaps ()
+  (let ((wins (mapcar 'string-to-number (split-string (ratpoison-windows "%n")))))
+  (loop for n in wins
+	for i from 1 to (length wins)
+	do (ratpoison-number i n))))
diff --git a/contrib/rpbatch.pl b/contrib/rpbatch.pl
new file mode 100644
index 0000000..6fce57f
--- /dev/null
+++ b/contrib/rpbatch.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+#
+# Copyright (C) 2003 Shawn Betts
+# Execute a sequence of commands read from stdin.
+
+$ratpoison = $ENV{RATPOISON} or die "Where is ratpoison?";
+
+while (<>) {
+    chomp;
+    push @accum, "-c";
+    push @accum, "\"$_\"";
+}
+
+system ("$ratpoison @accum");