[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: installer: Specially-mark keymap directories in the output.
From: |
Danny Milosavljevic |
Subject: |
02/02: installer: Specially-mark keymap directories in the output. |
Date: |
Wed, 5 Jul 2017 06:25:30 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 2219ed98e4dd374459cee34476d48e79c11ea252
Author: Danny Milosavljevic <address@hidden>
Date: Wed Jul 5 12:24:44 2017 +0200
installer: Specially-mark keymap directories in the output.
* gnu/system/installer/key-map.scm (key-map-page-init): Modify.
---
gnu/system/installer/key-map.scm | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/gnu/system/installer/key-map.scm b/gnu/system/installer/key-map.scm
index 1ece1b0..1269de0 100644
--- a/gnu/system/installer/key-map.scm
+++ b/gnu/system/installer/key-map.scm
@@ -98,9 +98,13 @@
(menu (make-menu
(let ((dir (page-datum p 'directory)))
- (filter (lambda (name)
- (not (string=? name ".")))
- (scandir dir))))))
+ (map (lambda (name)
+ (match (stat:type (stat (string-append dir "/" name)))
+ ('directory (string-append name "/"))
+ (_ name)))
+ (filter (lambda (name)
+ (not (string=? name ".")))
+ (scandir dir)))))))
(menu-post menu menu-window)