amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

system: Add Banana Pi M2 Ultra installer.

Browse source 
* gnu/bootloader/u-boot.scm (u-boot-banana-pi-m2-ultra-bootloader): New
exported variable.
(install-allwinner-u-boot): New variable.
(u-boot-allwinner-bootloader): New variable.
* gnu/packages/bootloaders.scm (u-boot-banana-pi-m2-ultra): New exported
variable.
* gnu/system/install.scm (banana-pi-m2-ultra-installation-os): New exported
variable.
This commit is contained in:
Danny Milosavljevic 2018-01-19 00:25:13 +01:00
parent ed19fea0e5
commit 30aeb846d7
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
3 changed files with 38 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
gnu/bootloader/u-boot.scm
View file

@ -28,6 +28,7 @@
#:use-module (guix records)
#:use-module (guix utils)
#:export (u-boot-bootloader
u-boot-banana-pi-m2-ultra-bootloader
u-boot-beaglebone-black-bootloader))
(define install-u-boot
@ -50,6 +51,13 @@
(write-file-on-device u-boot (* 1024 512)
device (* 768 512)))))
(define install-allwinner-u-boot
#~(lambda (bootloader device mount-point)
(let ((u-boot (string-append bootloader
"/libexec/u-boot-sunxi-with-spl.bin")))
(write-file-on-device u-boot (stat:size (stat u-boot))
device (* 8 1024)))))
;;;
@ -68,3 +76,13 @@
(inherit u-boot-bootloader)
(package u-boot-beagle-bone-black)
(installer install-beaglebone-black-u-boot)))
(define u-boot-allwinner-bootloader
(bootloader
(inherit u-boot-bootloader)
(installer install-allwinner-u-boot)))
(define u-boot-banana-pi-m2-ultra-bootloader
(bootloader
(inherit u-boot-allwinner-bootloader)
(package u-boot-banana-pi-m2-ultra)))