06/08: system: Add Nintendo NES Classic Edition installer.

[Danny Milosavljevic]

dannym pushed a commit to branch master
in repository guix.

commit 84ee33787e011fbf7d04eed1bc2d0765cef57b52
Author: Danny Milosavljevic <address@hidden>
Date:   Sat Jan 20 22:05:16 2018 +0100

    system: Add Nintendo NES Classic Edition installer.
    
    * gnu/bootloader/u-boot.scm 
(u-boot-nintendo-nes-classic-edition-bootloader):
    New exported variable.
    * gnu/packages/bootloaders.scm (u-boot-nintendo-nes-classic-edition):
    New exported variable.
    * gnu/system/install.scm (nintendo-nes-classic-edition-installation-os):
    New exported variable.
---
 gnu/bootloader/u-boot.scm    | 8 +++++++-
 gnu/packages/bootloaders.scm | 3 +++
 gnu/system/install.scm       | 8 +++++++-
 3 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/gnu/bootloader/u-boot.scm b/gnu/bootloader/u-boot.scm
index 5355737..d80ffdb 100644
--- a/gnu/bootloader/u-boot.scm
+++ b/gnu/bootloader/u-boot.scm
@@ -31,7 +31,8 @@
             u-boot-a20-olinuxino-lime2-bootloader
             u-boot-a20-olinuxino-micro-bootloader
             u-boot-banana-pi-m2-ultra-bootloader
-            u-boot-beaglebone-black-bootloader))
+            u-boot-beaglebone-black-bootloader
+            u-boot-nintendo-nes-classic-edition-bootloader))
 
 (define install-u-boot
   #~(lambda (bootloader device mount-point)
@@ -84,6 +85,11 @@
    (inherit u-boot-bootloader)
    (installer install-allwinner-u-boot)))
 
+(define u-boot-nintendo-nes-classic-edition-bootloader
+  (bootloader
+    (inherit u-boot-allwinner-bootloader)
+    (package u-boot-nintendo-nes-classic-edition)))
+
 (define u-boot-a20-olinuxino-lime2-bootloader
   (bootloader
    (inherit u-boot-allwinner-bootloader)
diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
index e6fc9b6..d16db45 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -436,6 +436,9 @@ also initializes the boards (RAM etc).")
 (define-public u-boot-a20-olinuxino-micro
   (make-u-boot-package "A20-OLinuXino_MICRO" "arm-linux-gnueabihf"))
 
+(define-public u-boot-nintendo-nes-classic-edition
+  (make-u-boot-package "Nintendo_NES_Classic_Edition" "arm-linux-gnueabihf"))
+
 (define-public vboot-utils
   (package
     (name "vboot-utils")
diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index e84e6a6..fe33062 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -47,7 +47,8 @@
             a20-olinuxino-lime2-emmc-installation-os
             a20-olinuxino-micro-installation-os
             banana-pi-m2-ultra-installation-os
-            beaglebone-black-installation-os))
+            beaglebone-black-installation-os
+            nintendo-nes-classic-edition-installation-os))
 
 ;;; Commentary:
 ;;;
@@ -430,6 +431,11 @@ The bootloader BOOTLOADER is installed to 
BOOTLOADER-TARGET."
                             "/dev/mmcblk1" ; eMMC storage
                             "ttyS0"))
 
+(define nintendo-nes-classic-edition-installation-os
+  (embedded-installation-os u-boot-nintendo-nes-classic-edition-bootloader
+                            "/dev/mmcblk0" ; SD card (solder it yourself)
+                            "ttyS0"))
+
 ;; Return the default os here so 'guix system' can consume it directly.
 installation-os