01/01: installer: Use config-window-port for "format" page.

[Danny Milosavljevic]

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

commit 846879eb67ea12ccf4bd5578dc6b4740a9609f2b
Author: Danny Milosavljevic <address@hidden>
Date:   Mon Jul 10 03:01:35 2017 +0200

    installer: Use config-window-port for "format" page.
    
    * gnu/system/installer/format.scm (format-page-activate-item): Use
    config-window-port.
---
 gnu/system/installer/format.scm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/gnu/system/installer/format.scm b/gnu/system/installer/format.scm
index 100651d..5d2e7e0 100644
--- a/gnu/system/installer/format.scm
+++ b/gnu/system/installer/format.scm
@@ -24,6 +24,7 @@
    #:use-module (guix ui)
    #:use-module (ice-9 rdelim)
    #:use-module (ice-9 match)
+   #:use-module (gurses colors)
    #:use-module (gurses buttons)
    #:use-module (ncurses curses)
    #:use-module (srfi srfi-1)
@@ -79,7 +80,7 @@ match those uuids read from the respective partitions"
       (page-leave)
       'cancelled)
      ('format
-      (let ((window-port (make-window-port (inner config-window))))
+      (let ((window-port (page-datum page 'config-window-port)))
         (for-each
           (lambda (x)
             (match x
@@ -112,11 +113,7 @@ match those uuids read from the respective partitions"
                                           "-U" uuid
                                           "-f"
                                           dev))))
-
-                      ))))) mount-points)
-
-            (close-port window-port))
-
+                      ))))) mount-points))
       (when (filesystems-are-current?)
             (page-leave))
       'handled)