summaryrefslogtreecommitdiff
path: root/contrib/nogaps.el
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/nogaps.el')
-rw-r--r--contrib/nogaps.el7
1 files changed, 7 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))))