config.scm bananapi

(use-modules (gnu)
         (gnu bootloader extlinux)
         (gnu bootloader u-boot)
         (gnu bootloader)
         (gnu build bootloader)
         (gnu system)
         (gnu packages bootloaders)
         (gnu packages bash)
         (gnu packages linux)
         (gnu packages gnupg)
         (gnu packages compression)
         (nongnu packages linux)
         (nongnu system linux-initrd)
         (gnu packages)
             (guix derivations))

(define u-boot-bananapi-m1
 (make-u-boot-package "Bananapi-M1" "arm-linux-gnueabihf"))

(define u-boot-allwinner-bootloader
 (@@ (gnu bootloader u-boot) u-boot-allwinner-bootloader))

(define u-boot-bananapi-m1-bootloader
 (bootloader
  (inherit u-boot-allwinner-bootloader)
  (package u-boot-bananapi-m1)))

(use-service-modules networking ssh)

(use-package-modules certs wget screen ssh)

(operating-system
 (host-name "GuixARM")
 (timezone "Europe/Moscow")
 (locale "en_US.utf8")

;; (kernel linux)
;; (initrd microcode-initrd)
;; (firmware (list linux-firmware))

 (file-systems
  (cons* (file-system
      (device "/dev/mmcblk0p1")
          (mount-point "/")
          (type "ext4"))
         %base-file-systems))

 (bootloader (bootloader-configuration
              (bootloader u-boot-bananapi-m1-bootloader)
              (target "/dev/mmcblk0")))

 (initrd-modules (cons* "sd_mod"
            "mmc_spi"
            "sunxi-mmc"
            "wmt-sdmmc"
            "of_mmc_spi"
            "armmmci"
            "dw_mmc-rockchip"
            "omap_hsmmc"
            "via-sdmmc"
            "dw_mmc-pltfm"
            "cb710-mmc"
            "dw_mmc"
            "dw_mmc-exynos"
            "rtsx_usb_sdmmc"
            "rtsx_pci_sdmmc"
            "phy-rockchip-emmc"
            "mmc"
            "ahci_sunxi"
            "sunxi"
            "ahci_sunxi"
            "sunxi-cir"
            "sunxi-ss"
            "dwmac-sunxi"
            "sunxi_wdt"
            "sunxi_nand"
            "nvmem_sunxi_sid"

         %base-initrd-modules))

 (users (cons (user-account
           (name "user")
           (comment "Hacker")
           (group "users")
           (supplementary-groups '("wheel" "netdev" "users" "audio" "video"))
           (home-directory "/home/user"))
              %base-user-accounts))

 (packages (cons* nss-certs
          bash
          openssh
          lm-sensors
          gnupg
          wget
          unzip
       %base-packages))

 (name-service-switch %mdns-host-lookup-nss))