01/01: system: Add A20 OLinuXino LIME installer.

[Danny Milosavljevic]

dannym pushed a commit to branch master
in repository guix.

commit c55c6985948b12a39cd5805bde95db9a80def3ba
Author: Danny Milosavljevic <address@hidden>
Date:   Mon Jan 22 22:35:06 2018 +0100

    system: Add A20 OLinuXino LIME installer.
    
    * gnu/bootloader/u-boot.scm (u-boot-a20-olinuxino-lime-bootloader):
    New exported variable.
    * gnu/packages/bootloaders.scm (u-boot-a20-olinuxino-lime):
    New exported variable.
    * gnu/system/install.scm (a20-olinuxino-lime-installation-os):
    New exported variable.
---
 gnu/bootloader/u-boot.scm    | 6 ++++++
 gnu/packages/bootloaders.scm | 3 +++
 gnu/system/install.scm       | 6 ++++++
 3 files changed, 15 insertions(+)

diff --git a/gnu/bootloader/u-boot.scm b/gnu/bootloader/u-boot.scm
index d80ffdb..21d0aec 100644
--- a/gnu/bootloader/u-boot.scm
+++ b/gnu/bootloader/u-boot.scm
@@ -28,6 +28,7 @@
   #:use-module (guix records)
   #:use-module (guix utils)
   #:export (u-boot-bootloader
+            u-boot-a20-olinuxino-lime-bootloader
             u-boot-a20-olinuxino-lime2-bootloader
             u-boot-a20-olinuxino-micro-bootloader
             u-boot-banana-pi-m2-ultra-bootloader
@@ -90,6 +91,11 @@
     (inherit u-boot-allwinner-bootloader)
     (package u-boot-nintendo-nes-classic-edition)))
 
+(define u-boot-a20-olinuxino-lime-bootloader
+  (bootloader
+   (inherit u-boot-allwinner-bootloader)
+   (package u-boot-a20-olinuxino-lime)))
+
 (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 d16db45..f7aa21f 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -430,6 +430,9 @@ also initializes the boards (RAM etc).")
 (define-public u-boot-banana-pi-m2-ultra
   (make-u-boot-package "Bananapi_M2_Ultra" "arm-linux-gnueabihf"))
 
+(define-public u-boot-a20-olinuxino-lime
+  (make-u-boot-package "A20-OLinuXino-Lime" "arm-linux-gnueabihf"))
+
 (define-public u-boot-a20-olinuxino-lime2
   (make-u-boot-package "A20-OLinuXino-Lime2" "arm-linux-gnueabihf"))
 
diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index fe33062..2864150 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -44,6 +44,7 @@
   #:use-module (ice-9 match)
   #:use-module (srfi srfi-26)
   #:export (installation-os
+            a20-olinuxino-lime-installation-os
             a20-olinuxino-lime2-emmc-installation-os
             a20-olinuxino-micro-installation-os
             banana-pi-m2-ultra-installation-os
@@ -416,6 +417,11 @@ The bootloader BOOTLOADER is installed to 
BOOTLOADER-TARGET."
                             '("omap_hsmmc")))
 
 
+(define a20-olinuxino-lime-sd-installation-os
+  (embedded-installation-os u-boot-a20-olinuxino-lime-bootloader
+                            "/dev/mmcblk0" ; SD card storage
+                            "ttyS0"))
+
 (define a20-olinuxino-lime2-emmc-installation-os
   (embedded-installation-os u-boot-a20-olinuxino-lime2-bootloader
                             "/dev/mmcblk1" ; eMMC storage