Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (use-modules (gnu) (gnu bootloader extlinux)
- (gnu packages bootloaders)
- (gnu packages bash)
- (gnu packages linux)
- (gnu packages gnupg)
- (gnu packages compression)
- )
- (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")
- (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"
- "ahci_sunxi"
- "sunxi-mmc"
- %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 ;for HTTPS access
- bash
- openssh
- lm-sensors
- gnupg
- wget
- unzip
- %base-packages))
- (name-service-switch %mdns-host-lookup-nss))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement