02/02: installer: Specially-mark keymap directories in the output.

[Danny Milosavljevic]

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)