[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
61/197: installer: Indicate which wireless access points are encrypted.
From: |
Danny Milosavljevic |
Subject: |
61/197: installer: Indicate which wireless access points are encrypted. |
Date: |
Mon, 3 Jul 2017 20:37:00 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 825657b25be715df1b3867a61de0a30f65f54af1
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
- 41/197: installer: Enable scrolling in the installation window., (continued)
- 41/197: installer: Enable scrolling in the installation window., Danny Milosavljevic, 2017/07/03
- 38/197: installer: Correct bugs generating the configuration., Danny Milosavljevic, 2017/07/03
- 45/197: installer: Fix bug where window-pipe did not return the proper exit status., Danny Milosavljevic, 2017/07/03
- 43/197: installer: Rename module "new" to "guixsd-installer"., Danny Milosavljevic, 2017/07/03
- 42/197: installer: Wrap installer in (catch #t ...), Danny Milosavljevic, 2017/07/03
- 48/197: installer: Close unused ports in pipe-cmd., Danny Milosavljevic, 2017/07/03
- 47/197: installer: Improve install page., Danny Milosavljevic, 2017/07/03
- 29/197: installer: Add a task to actually call guix system init., Danny Milosavljevic, 2017/07/03
- 53/197: installer: Change N_ from a procedure to a macro., Danny Milosavljevic, 2017/07/03
- 50/197: installer: Issue message to user on failure of filesystems task., Danny Milosavljevic, 2017/07/03
- 61/197: installer: Indicate which wireless access points are encrypted.,
Danny Milosavljevic <=
- 59/197: installer: Format configuration to fix width of window., Danny Milosavljevic, 2017/07/03
- 65/197: installer: Ensure that all mount points are absolute paths., Danny Milosavljevic, 2017/07/03
- 09/197: installer: Use a record instead of a list to contain tasks., Danny Milosavljevic, 2017/07/03
- 23/197: installer: Use a cleaner way of generating the lspci information., Danny Milosavljevic, 2017/07/03
- 35/197: installer: New predicate valid-hostname?, Danny Milosavljevic, 2017/07/03
- 36/197: installer: Ensure that all mount-points have a file system., Danny Milosavljevic, 2017/07/03
- 39/197: installer: Replace an instance of cdr with match., Danny Milosavljevic, 2017/07/03
- 46/197: installer: Replace "%temporary-configuration-file-port" with "config-file"., Danny Milosavljevic, 2017/07/03
- 30/197: installer: Write the configuration to a temporary file., Danny Milosavljevic, 2017/07/03
- 24/197: installer: Add a new menu to configure wireless interfaces., Danny Milosavljevic, 2017/07/03