config.scm bananapi

(use-modules (gnu) (gnu bootloader extlinux)
         (gnu bootloader u-boot)
         (gnu bootloader)
         (gnu packages bootloaders)
         (gnu system nss)
         (gnu packages display-managers)
         (gnu packages bash)
         (gnu packages disk)
         (gnu packages admin)
         (gnu packages linux)
         (gnu packages glib)
         (gnu packages gl)
         (gnu packages libunwind)
         (gnu packages nettle)
         (gnu packages multiprecision)
         (gnu packages mpd)
         (gnu packages gnupg)
         (gnu packages compression)
         (gnu packages bootloaders))

(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-booloader)
  (package u-boot-bananapi-m1)))

(use-service-modules networking ssh)

(use-package-modules certs version-control wget screen ssh)

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

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

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

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

         %base-initrd-modules))

 ;; Use BIOS
 ;;(bootloader (bootloader-configuration
 ;;              (bootloader grub-bootloader)
 ;;              ;; VM disk
 ;;              (target "/dev/sda")))

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

 ;; This is where we specify system-wide packages.
 (packages (cons* nss-certs         ;for HTTPS access
          bash
          xorg-server
          xrandr
                  setxkbmap
          xf86-input-libinput
                  pavucontrol
          openssh
          lm-sensors
          poppler
          gnupg
          pinentry
          redshift
          mpd
          atool
          htop
          dosfstools
                  wget
                  unzip
                  rxvt-unicode
                  %base-packages))

 (services
  (remove (lambda (service)
        (eq? (service-kind service) screen-locker-service-type))
      %desktop-services))

 ;; Allow resolution of '.local' host names with mDNS.
 (name-service-switch %mdns-host-lookup-nss))