From 84ee33787e011fbf7d04eed1bc2d0765cef57b52 Mon Sep 17 00:00:00 2001
From: Danny Milosavljevic <dannym@scratchpost.org>
Date: Sat, 20 Jan 2018 22:05:16 +0100
Subject: 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(-)

(limited to 'gnu')

diff --git a/gnu/bootloader/u-boot.scm b/gnu/bootloader/u-boot.scm
index 535573791b..d80ffdb963 100644
--- a/gnu/bootloader/u-boot.scm
+++ b/gnu/bootloader/u-boot.scm
@@ -31,7 +31,8 @@ (define-module (gnu bootloader u-boot)
             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 @@ (define u-boot-allwinner-bootloader
    (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 e6fc9b602d..d16db455f0 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -436,6 +436,9 @@ (define-public u-boot-a20-olinuxino-lime2
 (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 e84e6a6bc1..fe330621ca 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -47,7 +47,8 @@ (define-module (gnu system install)
             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 @@ (define banana-pi-m2-ultra-installation-os
                             "/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
 
-- 
cgit v1.2.3