01/01: installer: Hide non-keymaps.

[Danny Milosavljevic]

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

commit 8508dbb030f29bc6b6f07ae3994d2c9da119b8b9
Author: Danny Milosavljevic <address@hidden>
Date:   Wed Jul 5 13:53:31 2017 +0200

    installer: Hide non-keymaps.
    
    * gnu/system/installer/key-map.scm (key-map-page-init): Modify.
---
 gnu/system/installer/key-map.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/system/installer/key-map.scm b/gnu/system/installer/key-map.scm
index c460165..4b97a8d 100644
--- a/gnu/system/installer/key-map.scm
+++ b/gnu/system/installer/key-map.scm
@@ -98,7 +98,8 @@
          (menu (make-menu
                (let ((dir (page-datum p 'directory)))
                   (filter (lambda (name)
-                            (not (string=? name ".")))
+                            (and (not (string=? name "./"))
+                                 (not (string=? name "include/"))))
                           (scandir-with-slashes dir))))))
 
     (menu-post menu menu-window)