guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

07/12: installer: Whitespace changes only


From: John Darrington
Subject: 07/12: installer: Whitespace changes only
Date: Sun, 15 Jan 2017 15:45:40 +0000 (UTC)

jmd pushed a commit to branch wip-installer
in repository guix.

commit efd1cd96683b8580dd970cbb698991ecebfcf3b2
Author: John Darrington <address@hidden>
Date:   Sun Jan 15 07:13:46 2017 +0100

    installer: Whitespace changes only
    
    * gnu/system/installer/configure.scm,
    gnu/system/installer/dialog.scm,
    gnu/system/installer/disks.scm,
    gnu/system/installer/filesystems.scm,
    gnu/system/installer/format.scm,
    gnu/system/installer/hostname.scm,
    gnu/system/installer/install.scm,
    gnu/system/installer/key-map.scm,
    gnu/system/installer/mount-point.scm,
    gnu/system/installer/network.scm,
    gnu/system/installer/partition-reader.scm,
    gnu/system/installer/ping.scm,
    gnu/system/installer/role.scm,
    gnu/system/installer/time-zone.scm,
    gnu/system/installer/utils.scm,
    gurses/buttons.scm,
    gurses/form.scm,
    gurses/menu.scm: Remove trailing whitespace.
---
 gnu/system/installer/configure.scm        |   14 +++++++-------
 gnu/system/installer/dialog.scm           |    4 ++--
 gnu/system/installer/disks.scm            |   12 ++++++------
 gnu/system/installer/filesystems.scm      |    6 +++---
 gnu/system/installer/format.scm           |   18 +++++++++---------
 gnu/system/installer/hostname.scm         |   12 ++++++------
 gnu/system/installer/install.scm          |    2 +-
 gnu/system/installer/key-map.scm          |   10 +++++-----
 gnu/system/installer/mount-point.scm      |   16 ++++++++--------
 gnu/system/installer/network.scm          |    2 +-
 gnu/system/installer/partition-reader.scm |   16 ++++++++--------
 gnu/system/installer/ping.scm             |    2 +-
 gnu/system/installer/role.scm             |    4 ++--
 gnu/system/installer/time-zone.scm        |   12 ++++++------
 gnu/system/installer/utils.scm            |   10 +++++-----
 gurses/buttons.scm                        |    8 ++++----
 gurses/form.scm                           |   24 ++++++++++++------------
 gurses/menu.scm                           |    8 ++++----
 18 files changed, 90 insertions(+), 90 deletions(-)

diff --git a/gnu/system/installer/configure.scm 
b/gnu/system/installer/configure.scm
index 75cd15e..061d97c 100644
--- a/gnu/system/installer/configure.scm
+++ b/gnu/system/installer/configure.scm
@@ -100,9 +100,9 @@
      ((eq? ch KEY_UP)
       (buttons-unselect-all nav))
 
-     
+
      ((buttons-key-matches-symbol? nav ch 'cancel)
-      ;; Close the menu and return 
+      ;; Close the menu and return
       (page-leave))
 
 
@@ -116,7 +116,7 @@
         (set! config-file (port-filename cfg-port))
         (close-port cfg-port))
 
-      ;; Close the menu and return 
+      ;; Close the menu and return
       (page-leave))
      )
 
@@ -145,7 +145,7 @@
                   p #:width width)
     (newline p)
 
-    (pretty-print 
+    (pretty-print
      `(use-service-modules
        ,@(role-service-modules system-role)) p #:width width)
     (newline p)
@@ -169,7 +169,7 @@
                   (partition-volume-pairs)
                   (find-partition grub-mount-point))))
               (timeout 2))))
-        
+
         (file-systems
          ,(append (list 'cons*)
                   (map (lambda (x)
@@ -199,7 +199,7 @@
              (- (getmaxy s) 4) (- (getmaxx s) 2)
              2 1
              #:title (page-title p)))
-         
+
         (text-window (derwin
                       (inner pr)
                       3 (getmaxx (inner pr))
@@ -213,7 +213,7 @@
         (buttons (make-buttons my-buttons 1))
 
 
-         (config-window (make-boxed-window 
+         (config-window (make-boxed-window
                          (inner pr)
                          (- (getmaxy (inner pr))
                             (getmaxy bwin)
diff --git a/gnu/system/installer/dialog.scm b/gnu/system/installer/dialog.scm
index edc5926..41059c7 100644
--- a/gnu/system/installer/dialog.scm
+++ b/gnu/system/installer/dialog.scm
@@ -53,7 +53,7 @@
       (cond
        ((eqv? (buttons-selected nav) (1- (buttons-n-buttons nav)))
        (buttons-unselect-all nav))
-       
+
        (else
        (buttons-select-next nav))))
 
@@ -94,7 +94,7 @@
                   (if (promise? m) (force m) m))
          (addstr text-window
                  (if (promise? m) (force m) m))))
-    
+
   (push-cursor (page-cursor-visibility p))
   (page-set-wwin! p frame)
   (page-set-datum! p 'text-window text-window)
diff --git a/gnu/system/installer/disks.scm b/gnu/system/installer/disks.scm
index 481a9bb..398930f 100644
--- a/gnu/system/installer/disks.scm
+++ b/gnu/system/installer/disks.scm
@@ -52,7 +52,7 @@
       (addstr win
              (justify* (gettext "Select a disk to partition (or repartition), 
or choose \"Continue\" to leave the disk(s) unchanged.")
                        (getmaxx win)))
-      
+
       (menu-set-items! menu (volumes))
       (touchwin (outer (page-wwin page)))
       (refresh (outer (page-wwin page)))
@@ -74,14 +74,14 @@
        ((menu-active menu)
          (menu-set-active! menu #f)
          (buttons-select nav 0))
-       
+
        ((eqv? (buttons-selected nav) (1- (buttons-n-buttons nav)))
        (menu-set-active! menu #t)
        (buttons-unselect-all nav))
-       
+
        (else
        (buttons-select-next nav))))
-     
+
      ((eq? ch KEY_LEFT)
       (menu-set-active! menu #f)
       (buttons-select-prev nav))
@@ -108,7 +108,7 @@
 
 (define (truncate-string ss w)
  (if (> (string-length ss) w)
-         (string-append 
+         (string-append
           (string-take ss (- w 3)) "...")
          ss))
 
@@ -128,7 +128,7 @@
                              4
                              (getmaxx (inner frame))
                              0 0 #:panel #f))
-                             
+                       
         (menu-window (derwin (inner frame)
                       (- (getmaxy (inner frame)) 3 (getmaxy text-window))
                        (getmaxx (inner frame))
diff --git a/gnu/system/installer/filesystems.scm 
b/gnu/system/installer/filesystems.scm
index 4c323e5..68105c3 100644
--- a/gnu/system/installer/filesystems.scm
+++ b/gnu/system/installer/filesystems.scm
@@ -55,7 +55,7 @@
   (make-file-system-spec' mount-point label type uuid)
   file-system-spec?
   (mount-point      file-system-spec-mount-point)
-  (label            file-system-spec-label)      
+  (label            file-system-spec-label)
   (type             file-system-spec-type)
   (uuid             file-system-spec-uuid))
 
@@ -267,14 +267,14 @@
                          (name (partition-name part))
                          (fs-spec
                           (assoc-ref mount-points name)))
-                    
+
                     (format #f "~30a ~7a ~16a ~a"
                             name
                             (number->size (partition-size part))
                             (if fs-spec (file-system-spec-type fs-spec) "")
                             (if fs-spec
                                 (file-system-spec-mount-point fs-spec) 
"")))))))
-    
+
     (push-cursor (page-cursor-visibility p))
     (page-set-wwin! p pr)
     (page-set-datum! p 'menu menu)
diff --git a/gnu/system/installer/format.scm b/gnu/system/installer/format.scm
index 39103c4..fc9d84d 100644
--- a/gnu/system/installer/format.scm
+++ b/gnu/system/installer/format.scm
@@ -36,7 +36,7 @@
      str)))
 
 (define (device-fs-uuid dev)
-  "Retrieve the UUID of the filesystem on DEV, where DEV is the name of the 
+  "Retrieve the UUID of the filesystem on DEV, where DEV is the name of the
 device such as /dev/sda1"
   (car (assoc-ref
         (slurp (string-append "blkid -o export " dev)
@@ -91,9 +91,9 @@ match those uuids read from the respective partitions"
      ((eq? ch KEY_UP)
       (buttons-unselect-all nav))
 
-     
+
      ((buttons-key-matches-symbol? nav ch 'cancel)
-      ;; Close the menu and return 
+      ;; Close the menu and return
       (page-leave))
 
 
@@ -111,12 +111,12 @@ match those uuids read from the respective partitions"
                                       "-v"
                                       dev))
                      )))) mount-points)
-        
+
         (close-port window-port))
-      
+
       ;;(page-leave)
       ))
-     
+
     #f))
 
 (define (format-page-refresh page)
@@ -134,7 +134,7 @@ match those uuids read from the respective partitions"
              (- (getmaxy s) 4) (- (getmaxx s) 2)
              2 1
              #:title (page-title p)))
-         
+
         (text-window (derwin
                       (inner pr)
                       3 (getmaxx (inner pr))
@@ -148,7 +148,7 @@ match those uuids read from the respective partitions"
         (buttons (make-buttons my-buttons 1))
 
 
-         (config-window (make-boxed-window 
+         (config-window (make-boxed-window
                          (inner pr)
                          (- (getmaxy (inner pr))
                             (getmaxy bwin)
@@ -166,7 +166,7 @@ match those uuids read from the respective partitions"
                             mount-points))))
 
 
-        
+
     (push-cursor (page-cursor-visibility p))
     (page-set-wwin! p pr)
     (page-set-datum! p 'navigation buttons)
diff --git a/gnu/system/installer/hostname.scm 
b/gnu/system/installer/hostname.scm
index 71aeb1e..d1bd71e 100644
--- a/gnu/system/installer/hostname.scm
+++ b/gnu/system/installer/hostname.scm
@@ -124,17 +124,17 @@
              (- (getmaxy s) 4) (- (getmaxx s) 2)
              2 1
              #:title (page-title p)))
-        
+       
         (text-window (derwin (inner pr) 5 (getmaxx (inner pr))
                              0 0))
-        
+       
         (bwin (derwin (inner pr)
                       3 (getmaxx (inner pr))
                       (- (getmaxy (inner pr)) 3) 0
                       #:panel #f))
-        
+       
         (nav (make-buttons my-buttons 1))
-        
+       
         (fw (derwin (inner pr)
                     2
                     (getmaxx (inner pr))
@@ -143,11 +143,11 @@
 
         (form (make-form my-fields)))
 
-    (page-set-datum! p 'navigation nav)    
+    (page-set-datum! p 'navigation nav)
     (page-set-datum! p 'text-window text-window)
     (page-set-datum! p 'form form)
     (push-cursor (page-cursor-visibility p))
-    
+
     (form-post form fw)
     (buttons-post nav bwin)
     (page-set-wwin! p pr)
diff --git a/gnu/system/installer/install.scm b/gnu/system/installer/install.scm
index c7fa646..3c21eab 100644
--- a/gnu/system/installer/install.scm
+++ b/gnu/system/installer/install.scm
@@ -161,7 +161,7 @@
     (addstr* text-window
              (gettext
               "Choose \"Continue\" to start installing the system."))
-    
+
     (push-cursor (page-cursor-visibility p))
     (page-set-wwin! p pr)
     (page-set-datum! p 'navigation buttons)
diff --git a/gnu/system/installer/key-map.scm b/gnu/system/installer/key-map.scm
index 636d57f..c2febb6 100644
--- a/gnu/system/installer/key-map.scm
+++ b/gnu/system/installer/key-map.scm
@@ -57,7 +57,7 @@
       (cond
        ((eqv? (buttons-selected nav) (1- (buttons-n-buttons nav)))
        (buttons-unselect-all nav))
-       
+
        (else
        (buttons-select-next nav))))
 
@@ -112,15 +112,15 @@
                              (- (getmaxy (inner frame)) 3 (getmaxy 
text-window))
                              (getmaxx (inner frame))
                              (getmaxy text-window) 0 #:panel #f))
-        
+       
         (menu (make-menu
                (let ((dir (page-datum p 'directory)))
                      (slurp (string-append "ls -1 "
                                                dir)
                              identity)))))
-    
+
     (menu-post menu menu-window)
-    
+
     (addstr* text-window
             (gettext "Select an item most closely matching your keyboard 
layout:" ))
     (push-cursor (page-cursor-visibility p))
@@ -133,5 +133,5 @@
     (refresh text-window)
     (refresh button-window)))
 
-                             
+                       
 
diff --git a/gnu/system/installer/mount-point.scm 
b/gnu/system/installer/mount-point.scm
index afa3b60..5715a2f 100644
--- a/gnu/system/installer/mount-point.scm
+++ b/gnu/system/installer/mount-point.scm
@@ -63,7 +63,7 @@
       (page-leave))
 
      ((buttons-key-matches-symbol? nav ch 'cancel)
-      ;; Close the menu and return 
+      ;; Close the menu and return
       (page-leave))
 
      ((or (eq? ch KEY_RIGHT)
@@ -97,17 +97,17 @@
              (- (getmaxy s) 4) (- (getmaxx s) 2)
              2 1
              #:title (page-title p)))
-        
+       
         (text-window (derwin (inner pr) 3 (getmaxx (inner pr))
                              0 0))
-        
+       
         (bwin (derwin (inner pr)
                       3 (getmaxx (inner pr))
                       (- (getmaxy (inner pr)) 3) 0
                       #:panel #f))
-        
+       
         (nav (make-buttons my-buttons 1))
-        
+       
         (fw (derwin (inner pr)
                     (length my-fields)
                     (getmaxx (inner pr))
@@ -124,7 +124,7 @@
                                           host-name "-"
                                           (form-get-value f 
'mount-point)))))))))
 
-    (page-set-datum! p 'navigation nav)    
+    (page-set-datum! p 'navigation nav)
     (let ((dev (page-datum p 'device)))
       (addstr*
        text-window
@@ -148,9 +148,9 @@
                              (file-system-spec-mount-point fss))
             (form-set-value! form 'fs-type
                              (file-system-spec-type fss))))
-    
+
     (form-set-current-field form 0)
-    
+
     (push-cursor (page-cursor-visibility p))
     (buttons-post nav bwin)
     (page-set-datum! p 'form form)
diff --git a/gnu/system/installer/network.scm b/gnu/system/installer/network.scm
index 655988c..617e8a2 100644
--- a/gnu/system/installer/network.scm
+++ b/gnu/system/installer/network.scm
@@ -124,7 +124,7 @@
       (let ((next (make-wireless-page page (M_ "Wireless interface setup")
                                       (assq-ref (menu-get-current-item menu) 
'name))))
         (page-enter next)))
-     
+
      ((select-key? ch)
       (let ((item (menu-get-current-item menu)))
         (when (eq? (assq-ref item 'class) 'ethernet)
diff --git a/gnu/system/installer/partition-reader.scm 
b/gnu/system/installer/partition-reader.scm
index d55f798..41d58ee 100644
--- a/gnu/system/installer/partition-reader.scm
+++ b/gnu/system/installer/partition-reader.scm
@@ -16,7 +16,7 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 
-(define-module (gnu system installer partition-reader) 
+(define-module (gnu system installer partition-reader)
   #:export (disk?
            partition?
            disk-vendor
@@ -31,13 +31,13 @@
            partition-name
 
            partition-volume-pairs
-           
+       
            number->size
 
            find-partition
-           
+       
             volumes)
-  
+
   #:use-module (ice-9 rdelim)
   #:use-module (ice-9 match)
   #:use-module (ice-9 popen)
@@ -48,7 +48,7 @@
 
 (define (number->size n)
   "Convert a number of megabytes into a human readable size representation"
-  (let ((pr 
+  (let ((pr
   (let loop ((q (* n 1000))
             (m 0))
     (if (and (integer? (/ q 100))
@@ -70,7 +70,7 @@ number of Megabytes"
   (let* ((threshold (1+ (string-index-right size char-set:digit)))
         (quantity (string->number (substring size 0 threshold)))
         (unit (substring size threshold))
-        (multiplier 
+        (multiplier
          (cond
           ((equal? "KB" unit)
            0.001)
@@ -123,7 +123,7 @@ number of Megabytes"
 (define (parse-disk port disk-list)
   (if (not (string=? "BYT" (read-line-drop-semi port)))
       (error "Expected BYT;"))
-  
+
   (let ((line (read-line-drop-semi port)))
     (match (string-split line #\:)
       ((name size type logical physical table vendor xx)
@@ -136,7 +136,7 @@ number of Megabytes"
   (let ((line (read-line-drop-semi port)))
     (match (string-split line #\:)
       ((number start stop size fs type flags)
-       (cons 
+       (cons
        (make-partition number start stop
                        (size->number size)
                        fs type flags)
diff --git a/gnu/system/installer/ping.scm b/gnu/system/installer/ping.scm
index 3e04b01..a8cd82e 100644
--- a/gnu/system/installer/ping.scm
+++ b/gnu/system/installer/ping.scm
@@ -59,7 +59,7 @@
 
     (cond
      ((buttons-key-matches-symbol? nav ch 'cancel)
-      ;; Close the menu and return 
+      ;; Close the menu and return
       (page-leave))
 
      ((eq? ch KEY_RIGHT)
diff --git a/gnu/system/installer/role.scm b/gnu/system/installer/role.scm
index aa146e4..7193677 100644
--- a/gnu/system/installer/role.scm
+++ b/gnu/system/installer/role.scm
@@ -92,7 +92,7 @@
 
      ((select-key? ch)
       (set! system-role (menu-get-current-item menu))
-      
+
       (page-leave))
 
      ((buttons-key-matches-symbol? nav ch 'cancel)
@@ -158,7 +158,7 @@
         (menu (make-menu roles
                           #:disp-proc (lambda (datum row)
                                         (role-description datum)))))
-         
+
     (addstr*   text-window  (format #f
              (gettext
               "Select from the list below the role which most closely matches 
the purpose of the system to be installed.")))
diff --git a/gnu/system/installer/time-zone.scm 
b/gnu/system/installer/time-zone.scm
index 727dbf5..ad62514 100644
--- a/gnu/system/installer/time-zone.scm
+++ b/gnu/system/installer/time-zone.scm
@@ -57,7 +57,7 @@
       (cond
        ((eqv? (buttons-selected nav) (1- (buttons-n-buttons nav)))
        (buttons-unselect-all nav))
-       
+
        (else
        (buttons-select-next nav))))
 
@@ -120,7 +120,7 @@
                              (- (getmaxy (inner frame)) 3 (getmaxy 
text-window))
                              (getmaxx (inner frame))
                              (getmaxy text-window) 0 #:panel #f))
-        
+       
         (menu (make-menu
                (let nn ((ds (opendir (page-datum p 'directory)))
                         (ll '()))
@@ -130,16 +130,16 @@
                          (closedir ds)
                          (sort ll string< ))
                        (nn ds
-                           (cond 
+                           (cond
                             ((equal? "." o) ll)
                             ((equal? ".." o) ll)
                             ((>= (string-suffix-length o ".tab") 4) ll)
-                            (else 
+                            (else
                              (cons o ll)))))))))
         )
-    
+
     (menu-post menu menu-window)
-    
+
     (addstr* text-window
             (gettext "Select the default time zone for the system:" ))
 
diff --git a/gnu/system/installer/utils.scm b/gnu/system/installer/utils.scm
index 68cf08c..35da260 100644
--- a/gnu/system/installer/utils.scm
+++ b/gnu/system/installer/utils.scm
@@ -33,7 +33,7 @@
            make-boxed-window
             inner
             outer
-           
+       
            open-input-pipe-with-fallback
 
            find-mount-device
@@ -118,7 +118,7 @@
               (+ n (1+ len)))
 
           (if (linefull? n width)
-              (string-append acc 
+              (string-append acc
                              (make-string (- width len) #\space))
               (string-append acc word " "))))))
 
@@ -148,7 +148,7 @@ This version assumes some external entity puts in the 
carriage returns."
           (+ n (string-length appendage))
 
           (string-append acc appendage)))))
-  
+
   (justify' (string-split text char-set:blank) 0  ""))
 
 
@@ -231,7 +231,7 @@ which will process each string before returning it."
        ((eqv? ch KEY_UP)
         (menu-driver menu REQ_UP_ITEM)
         ))
-    
+
     (refresh win)))
 
 
@@ -326,7 +326,7 @@ mounts return the device on which the path IN would be 
mounted."
            (cons (car p)
                  (string-split (normalise-directory-path (pair->mp p)) 
dir-sep)))
          (sort mp (lambda (x y) (string> (pair->mp x) (pair->mp y)))))))
-    
+
     (let loop ((pp paths))
       (if (null? pp)
          #f
diff --git a/gurses/buttons.scm b/gurses/buttons.scm
index 8be4983..a893494 100644
--- a/gurses/buttons.scm
+++ b/gurses/buttons.scm
@@ -29,7 +29,7 @@
   #:export (buttons-n-buttons)
   #:export (buttons-get-current-selection)
   #:export (buttons-key-matches-symbol?)
-  
+
   #:use-module (ncurses curses)
   #:use-module (srfi srfi-9))
 
@@ -58,7 +58,7 @@
     (color-set! b color)
     (box b 0 0)
     (refresh b))
-  
+
 (define (buttons-unselect-all buttons)
   (let* ((arry (buttons-array buttons))
         (current (buttons-selected buttons))
@@ -99,7 +99,7 @@
 (define* (buttons-select-next buttons #:key (wrap #f))
   (let ((current (buttons-selected buttons)))
     (if (and wrap
-            (>= current 
+            (>= current
                 (1- (array-length (buttons-array buttons)))))
        (buttons-select buttons 0)
        (buttons-select buttons (1+ current)))))
@@ -159,6 +159,6 @@
               (and=> (buttons-get-current-selection nav)
                      (lambda (x) (eq? x symbol)))))
   #f))
-                     
+               
 
 
diff --git a/gurses/form.scm b/gurses/form.scm
index 13254f5..58b0e4b 100644
--- a/gurses/form.scm
+++ b/gurses/form.scm
@@ -67,7 +67,7 @@
            (make-list (field-size field) (underline #\space))
            #:y n
            #:x (form-tabpos form))
-  
+
   (addstr (form-window form) (field-value field)
          #:y n
          #:x (form-tabpos form)))
@@ -78,7 +78,7 @@
     (let ((f (array-ref (form-items form) n)))
       (field-set-value! f str)
       (redraw-field form f n)))
-   
+
    ((symbol? n)
     (let loop ((idx 0))
       (if (array-in-bounds? (form-items form) idx)
@@ -142,7 +142,7 @@ label eq? to N"
               (field-set-value! f (string-join
                                    (list left right)
                                    (make-string 1 ch)))
-              
+       
               (field-set-cursor-position! f (1+ (field-cursor-position f)))
               (addch (form-window form) (normal ch)))
 
@@ -150,7 +150,7 @@ label eq? to N"
               (field-set-value! f (string-append left right))
               (redraw-current-field form f)
               (form-update-cursor form))
-             
+       
              ((eq? ch KEY_BACKSPACE)
               (if (positive? (field-cursor-position f))
                   (begin
@@ -166,30 +166,30 @@ label eq? to N"
               (field-set-value! f (substring (field-value f)
                                              0 (field-cursor-position f)))
               (redraw-current-field form f))
-             
+       
              ((or (eq? ch KEY_DOWN)
                   (eq? ch #\so)
                   (eq? ch #\tab))
               (form-next-field form)
               (cursor-move form f 0))
-             
+       
              ((or (eq? ch KEY_UP)
                   (eq? ch #\dle))
               (form-previous-field form)
               (cursor-move form f 0))
-             
+       
              ((eq? ch KEY_RIGHT)
               (if (< (field-cursor-position f) (string-length (field-value f)))
                   (cursor-move form f (1+ (field-cursor-position f)))))
-             
+       
              ((eq? ch KEY_LEFT)
               (if (positive? (field-cursor-position f))
                   (cursor-move form f (1- (field-cursor-position f)))))
-             
+       
              ((eq? ch #\soh)
               ;; Move to start of field
               (cursor-move form f 0))
-             
+       
              ((eq? ch #\enq)
               ;; Move to end of field
               (cursor-move form f (string-length (field-value f))))
@@ -217,7 +217,7 @@ label eq? to N"
 
 (define (form-post form win)
   (form-set-window! form win)
-  (let ((xpos 
+  (let ((xpos
         ;; Print the labels and return the length of the longest
         (let loop ((fields (form-items form))
                    (pos 0)
@@ -231,7 +231,7 @@ label eq? to N"
                                            (string-length (field-label 
f)))))))))
 
     (form-set-tabpos! form xpos)
-    
+
     ;; Print the field entry areas
     (let loop ((fields (form-items form))
               (pos 0))
diff --git a/gurses/menu.scm b/gurses/menu.scm
index 1fca9bc..d43fec1 100644
--- a/gurses/menu.scm
+++ b/gurses/menu.scm
@@ -17,7 +17,7 @@
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (gurses menu)
-  
+
   #:export (make-menu)
   #:export (menu-post)
   #:export (menu-refresh)
@@ -33,9 +33,9 @@
   #:export (menu-set-active-attr!)
   #:export (menu-set-active-color!)
   #:export (menu-top-item)
-  
+
   #:export (menu-get-current-item)
-  
+
   #:export (std-menu-key-handler)
 
   #:use-module (ncurses curses)
@@ -134,7 +134,7 @@
   (let ((win (menu-window menu))
        (colour (if (menu-active menu) (menu-active-color menu) 0))
        (attr (if (menu-active menu) (menu-active-attr menu) A_DIM)))
-    
+
     (bkgd win (color 0 (normal #\space)))
     (chgat win -1 attr colour #:y
           (- (menu-current-item menu) (menu-top-item menu))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]