From 06a9dc65588a1b56add1188ba14fd5985a8a26d0 Mon Sep 17 00:00:00 2001
From: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
Date: Sun, 27 Sep 2020 01:07:44 +0200
Subject: [PATCH] gnu: Add u-boot-beagleboard.

* gnu/packages/bootloaders (u-boot-beagleboard): New variable.
* gnu/bootloader/u-boot (install-beagleboard-u-boot): New variable.
  (u-boot-beagleboard-bootloader): New variable.
* gnu/system/install (define beagleboard-installation-os): New variable.

Signed-off-by: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
---
 gnu/bootloader/u-boot.scm    | 7 +++++++
 gnu/packages/bootloaders.scm | 3 +++
 gnu/system/install.scm       | 6 ++++++
 3 files changed, 16 insertions(+)

diff --git a/gnu/bootloader/u-boot.scm b/gnu/bootloader/u-boot.scm
index 1da9d04eb2..7f94062053 100644
--- a/gnu/bootloader/u-boot.scm
+++ b/gnu/bootloader/u-boot.scm
@@ -29,6 +29,7 @@
             u-boot-a20-olinuxino-lime2-bootloader
             u-boot-a20-olinuxino-micro-bootloader
             u-boot-bananapi-m2-ultra-bootloader
+            u-boot-beagleboard-bootloader
             u-boot-beaglebone-black-bootloader
             u-boot-cubietruck-bootloader
             u-boot-firefly-rk3399-bootloader
@@ -140,6 +141,12 @@
    (package #f)
    (installer install-u-boot)))
 
+(define u-boot-beagleboard-bootloader
+  (bootloader
+   (inherit u-boot-bootloader)
+   (package u-boot-beagleboard)
+   (installer install-beagleboard-u-boot)))
+
 (define u-boot-beaglebone-black-bootloader
   (bootloader
    (inherit u-boot-bootloader)
diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
index d1de5cea4e..2b90fab895 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -685,6 +685,9 @@ it fits within common partitioning schemes.")
 (define-public u-boot-am335x-evm
   (make-u-boot-package "am335x_evm" "arm-linux-gnueabihf"))
 
+(define-public u-boot-beagleboard
+  (make-u-boot-package "omap3_beagle" "arm-linux-gnueabihf"))
+
 (define-public (make-u-boot-sunxi64-package board triplet)
   (let ((base (make-u-boot-package board triplet)))
     (package
diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index be5a678cec..646e7141fd 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -61,6 +61,7 @@
             a20-olinuxino-lime2-emmc-installation-os
             a20-olinuxino-micro-installation-os
             bananapi-m2-ultra-installation-os
+            beagleboard-installation-os
             beaglebone-black-installation-os
             mx6cuboxi-installation-os
             nintendo-nes-classic-edition-installation-os
@@ -542,6 +543,11 @@ The bootloader BOOTLOADER is installed to BOOTLOADER-TARGET."
            (operating-system-user-kernel-arguments installation-os)))
     (initrd-modules (append extra-modules %base-initrd-modules))))
 
+(define beagleboard-installation-os
+  (embedded-installation-os u-boot-beagleboard-bootloader
+                            "/dev/mmcblk0" ; SD card storage
+                            "ttyO0"))
+
 (define beaglebone-black-installation-os
   (embedded-installation-os u-boot-beaglebone-black-bootloader
                             "/dev/sda"
-- 
2.28.0