68/80: installer: Indicate which wireless access points are encrypted.

[John Darrington]

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

commit 241c4159a79651f1e11239f7dcbafad84195012f
Author: John Darrington <address@hidden>
Date:   Sun Jan 1 17:43:37 2017 +0100

    installer: Indicate which wireless access points are encrypted.
    
    * gnu/system/installer/wireless.scm (essid-page-init): Add field indicating 
whether
    the access point is encrypted or not.
---
 gnu/system/installer/wireless.scm |    9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/gnu/system/installer/wireless.scm 
b/gnu/system/installer/wireless.scm
index d0bfce7..65b60df 100644
--- a/gnu/system/installer/wireless.scm
+++ b/gnu/system/installer/wireless.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2016 John Darrington <address@hidden>
+;;; Copyright © 2016, 2017 John Darrington <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -142,8 +142,11 @@ network={
                     (assq-ref j 'signal)
                     (assq-ref i 'signal))))
                 #:disp-proc
-                (lambda (d _) (assq-ref d 'essid)))
-               ))
+                (lambda (d _)
+                  (format #f "~30a ~a" (assq-ref d 'essid)
+                          (if (assq-ref d 'encryption)
+                              (N_ "Encr.")
+                              (N_ "Clear")))))))
 
     (addstr*   text-window  (format #f
              (gettext