New alignment for processes

part of darcs patch Sat Sep 17 19:46:34 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>

scheme/layout.scm

@@ -181,13 +181,24 @@
 			(mvwaddstr window pos 1 line)
 			(loop (+ pos 1)))))))))))
 
-(define (fill-up-string length string)
+
+(define (left-align-string length string)
   (if (> (string-length string) length)
       (substring string 0 length)
       (string-append
        string (make-string (- length (string-length string))
 			   #\space))))
 
+(define (right-align-string length string)
+  (if (> (string-length string) length)
+      (substring string 0 length)
+      (string-append
+       (make-string (- length (string-length string))
+                    #\space)
+       string)))
+
+(define fill-up-string left-align-string)
+
 (define (cut-to-size length string)
   (if (> (string-length string) length)
       (substring string 0 length)

scheme/nuit-packages.scm

@@ -48,6 +48,8 @@
 	  sublist
 
 	  fill-up-string
+          right-align-string
+          left-align-string
 	  cut-to-size
 
 	  ;; old drawing cruft

scheme/process.scm

@@ -6,34 +6,34 @@
   (cut-to-size
    width
    (string-append
-    (fill-up-string 5 "PID")
+    (right-align-string 5 "PID")
     " "
-    (fill-up-string 5 "PPID")
+    (right-align-string 5 "PPID")
     " "
-    (fill-up-string 8 "USER")
+    (left-align-string 8 "USER")
     " "
-    (fill-up-string 5 "TIME")
+    (right-align-string 5 "TIME")
     " "
-    (fill-up-string 40 "COMMAND"))))
+    (left-align-string 40 "COMMAND"))))
 
 (define (layout-process width p)
   (cut-to-size 
    width
    (string-append
-    (fill-up-string 5 (number->string (process-info-pid p)))
+    (right-align-string 5 (number->string (process-info-pid p)))
     " "
-    (fill-up-string 5 (number->string (process-info-ppid p)))
+    (right-align-string 5 (number->string (process-info-ppid p)))
     " "
-    (fill-up-string 8 (process-info-logname p))
+    (left-align-string 8 (process-info-logname p))
     " "
-    (fill-up-string 5 (number->string (process-info-time p)))
+    (right-align-string 5 (number->string (process-info-time p)))
     " "
-    (fill-up-string 40 (string-append
-			(process-info-executable p)
-			" "
-			(string-join 
-			 (process-info-command-line p)))))))
-  
+    (left-align-string 40 (string-append
+                           (process-info-executable p)
+                           " "
+                           (string-join 
+                            (process-info-command-line p)))))))
+
 (define (make-process-selection-list num-cols num-lines processes)
   (let ((layout (lambda (p) (layout-process num-cols p))))
     (make-select-list