dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 825657b25be715df1b3867a61de0a30f65f54af1
Author: John Darrington <[email protected]>
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 <[email protected]>
+;;; Copyright © 2016, 2017 John Darrington <[email protected]>
;;;
;;; 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
